Visualiser le bitmap n°100 d'un Logonui.exe [Résolu]
cincap
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
A voir également:
- Visualiser le bitmap n°100 d'un logonui.exe
- Impossible de visualiser un bitmap sous Photoshop ou IE... ✓ - Forum - C# / .NET
- Le vrai zip pour visualisateur d'images - Codes sources - Visual Basic / VB.NET (Graphique)
- Asp - visualisateur de table - Codes sources - Visual Basic / VB.NET (ASP)
- Ouvrir et visualiser tout fichiers ! (edi'tout v1.0.0.0) - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visualisateur d'images sans api - Codes sources - Visual Basic / VB.NET (Graphique)
20/25 réponses
Meilleure réponse
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonsoir,
J'ai finalement adopté le 1er code controlant l'exception de l'ami Japee puisque seule la ressource n° 100 m'intéressait au niveau extraction et affichage avant l'installation d'un logonui.
Le logonui étant un exécutable (dos) il peut être manipulé prudemment independemment du WinXp pack1 ou pack2.
Reshacker est encore le logiciel qui permet de remplacer facilement les différents bitmaps et textes et de créer un logonui personnalisé.
Merci donc a Cirec et Japee pour leur savoir.
Vu l'audience élevée, a quand un logiciel en Delphi pour remplacer Reshacker ?
@+,
Cincap
[url]mailto:/url
J'ai finalement adopté le 1er code controlant l'exception de l'ami Japee puisque seule la ressource n° 100 m'intéressait au niveau extraction et affichage avant l'installation d'un logonui.
Le logonui étant un exécutable (dos) il peut être manipulé prudemment independemment du WinXp pack1 ou pack2.
Reshacker est encore le logiciel qui permet de remplacer facilement les différents bitmaps et textes et de créer un logonui personnalisé.
Merci donc a Cirec et Japee pour leur savoir.
Vu l'audience élevée, a quand un logiciel en Delphi pour remplacer Reshacker ?
@+,
Cincap
[url]mailto:/url
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
112 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
Voici une solution :
tu places un TImage et un TButton sur ta Form principale et tu complètes comme suit :
procedure TfrmMain.Button1Click(Sender: TObject);
Var HandleLib : THandle;
aBmp : TBitmap;
begin
HandleLib := LoadLibrary('LogonUi.exe');
If HandleLib <> 0 Then Begin
aBmp : = TBitmap.Create;
Try
aBmp.LoadFromResourceID(HandleLib, 100);
Image1.Picture.Assign(aBmp);
Finally
FreeLibrary(HandleLib);
aBmp.Free;
End;
End;
end;
@+
Cirec
<hr size="2" />
Voici une solution :
tu places un TImage et un TButton sur ta Form principale et tu complètes comme suit :
procedure TfrmMain.Button1Click(Sender: TObject);
Var HandleLib : THandle;
aBmp : TBitmap;
begin
HandleLib := LoadLibrary('LogonUi.exe');
If HandleLib <> 0 Then Begin
aBmp : = TBitmap.Create;
Try
aBmp.LoadFromResourceID(HandleLib, 100);
Image1.Picture.Assign(aBmp);
Finally
FreeLibrary(HandleLib);
aBmp.Free;
End;
End;
end;
@+
Cirec
<hr size="2" />
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
@ Japee : en fait la méthode d'accès reste la même sauf que dans ce cas de figure la ressource qui nous intéresse ne se trouve pas dans l'application appelante mais dans une autre ce qui explique l'utilisation de LoadLibrary et FreeLibrary.
Avec cette méthode tu peux charger n'importe quelle ressource de n'importe quelle fichier en contenant (*.exe; *.dll; *.ocx; *.bpl ...)
@ Francky :c'est très très facile à réaliser (3 où 4 lignes de code), Ajout, Suppression, Modification de ressources mais je ne crois pas qu'un code de ce type soit bien vu sur DelphiFr
@+
Cirec
<hr size="2" />
Avec cette méthode tu peux charger n'importe quelle ressource de n'importe quelle fichier en contenant (*.exe; *.dll; *.ocx; *.bpl ...)
@ Francky :c'est très très facile à réaliser (3 où 4 lignes de code), Ajout, Suppression, Modification de ressources mais je ne crois pas qu'un code de ce type soit bien vu sur DelphiFr
@+
Cirec
<hr size="2" />
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour tout le monde,
Merci Cirec pour ton astuce, je connais ResHacker et je m'en sers pour créer mes Logons.
Rassurer vous, l'idée était de pouvoir greffer sur une fiche un viewer qui permettrait de charger avec un "TopenDialogue" un Logon déja créé (avec ResHacker par ex) dans le répertoire "C:\WINDOWS\Resources\LogonUI\Logon" et de visualiser le bitmap 100 avant de l'installer avec une procédure utilisant Regedit sans plus.
Attention le Logon pourrait se nommer "Logonui_Tartempion.exe" et se trouver dans le répertoire cité.
Avec une unité qui modifie l'extension *.exe avec *.jpg et un "TopenPictureDialogue", il était facile d'assimiler une photo *.jpg avec le même nom que le logon.
Mais j'aurais aimé un viewer plus personnel avec agrandissement de la photo.
@+,
Cincap
[url]mailto:/url
Merci Cirec pour ton astuce, je connais ResHacker et je m'en sers pour créer mes Logons.
Rassurer vous, l'idée était de pouvoir greffer sur une fiche un viewer qui permettrait de charger avec un "TopenDialogue" un Logon déja créé (avec ResHacker par ex) dans le répertoire "C:\WINDOWS\Resources\LogonUI\Logon" et de visualiser le bitmap 100 avant de l'installer avec une procédure utilisant Regedit sans plus.
Attention le Logon pourrait se nommer "Logonui_Tartempion.exe" et se trouver dans le répertoire cité.
Avec une unité qui modifie l'extension *.exe avec *.jpg et un "TopenPictureDialogue", il était facile d'assimiler une photo *.jpg avec le même nom que le logon.
Mais j'aurais aimé un viewer plus personnel avec agrandissement de la photo.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
L'essai est assez concluant avec le code de l'ami Cirec, j'étais parti dans une autre direction.
En ajoutant sur ma fiche les composants TFileslistbox, TDirectoryListBox et TDriveComboBox il serait possible d'appliquer le code de l'ami Cirec ?
Car un Fileslistbox.filename et un HandleLib = difficulté.
Existe t'il aussi une solution ?
@+,
Cincap
[url]mailto:/url
En ajoutant sur ma fiche les composants TFileslistbox, TDirectoryListBox et TDriveComboBox il serait possible d'appliquer le code de l'ami Cirec ?
Car un Fileslistbox.filename et un HandleLib = difficulté.
Existe t'il aussi une solution ?
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour Japee,
Meuuu siiii
Déjà essayé voici ce que cela donne en utilisant le code de l'ami Cirec.
"[Erreur] Unit1.pas(107): Types incompatibles : 'String' et 'PChar'"
@+
[url]mailto:/url
Meuuu siiii
Déjà essayé voici ce que cela donne en utilisant le code de l'ami Cirec.
"[Erreur] Unit1.pas(107): Types incompatibles : 'String' et 'PChar'"
@+
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Japee,
Voici la méthode qui donne un résultat mais forcément si tu pointes sur un fichier *.exe qui n'a pas de bitmap (100) tu as une erreur ! :
"HandleLib := LoadLibrary(pchar(FileListBox1.FileName));"
Sinon pour les logonuis_zaza.exe cela fonctionne correctement, on avance.
La connaissance s'accroit quand on la partage
@+,
Cincap
[url]mailto:/url
Voici la méthode qui donne un résultat mais forcément si tu pointes sur un fichier *.exe qui n'a pas de bitmap (100) tu as une erreur ! :
"HandleLib := LoadLibrary(pchar(FileListBox1.FileName));"
Sinon pour les logonuis_zaza.exe cela fonctionne correctement, on avance.
La connaissance s'accroit quand on la partage
@+,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Rebonjour à tous,
Voila, grand merci à maître Cirec pour sa solution, pour parrer l'exception concernant les exécutables qui n'ont pas la ressource (100), il suffit de forcer le mask du composant TFileListBox en donnant le nom des Logons, dans mon cas Logonui_*.exe pour un logonui qui se nomme "Logonui_tartempion.exe".
Donc à l'ouverture, le composant TFileListBox n'affiche que les logonui_*.exe et par conséquent plus d'exception, cette solution m'agrée.
Dernière petite question, peut t'on forcer le directory de recherche avec le composant "TDirectoryListBox".
Merci.
@+
[url]mailto:jmcapellen@skynet.be/url
Voila, grand merci à maître Cirec pour sa solution, pour parrer l'exception concernant les exécutables qui n'ont pas la ressource (100), il suffit de forcer le mask du composant TFileListBox en donnant le nom des Logons, dans mon cas Logonui_*.exe pour un logonui qui se nomme "Logonui_tartempion.exe".
Donc à l'ouverture, le composant TFileListBox n'affiche que les logonui_*.exe et par conséquent plus d'exception, cette solution m'agrée.
Dernière petite question, peut t'on forcer le directory de recherche avec le composant "TDirectoryListBox".
Merci.
@+
[url]mailto:jmcapellen@skynet.be/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Déjà essayé, le TdirectoryListBox se trouve sur la fiche principale et la dans le oncreate j'ai une erreur "Imposible de focaliser une fenêtre désactivée ou invisible" une fois que je fais OK en effet le répertoire est bien celui que je voulais.
Je vais tester sur une fiche à part.
@+
[url]mailto:/url
Je vais tester sur une fiche à part.
@+
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
"Impossible de focaliser une fenêtre désactivée ou invisible"
C'était bien cela, j'ai donc ajouté un Tbouton pour choisir le dossier contenant les logonuis pour forcer son directory après la création de la fiche.
Maintenant, je peu visualiser mes logons de session avant de les installer, très pratique.
Merci à tous ,
Cincap
[url]mailto:/url
C'était bien cela, j'ai donc ajouté un Tbouton pour choisir le dossier contenant les logonuis pour forcer son directory après la création de la fiche.
Maintenant, je peu visualiser mes logons de session avant de les installer, très pratique.
Merci à tous ,
Cincap
[url]mailto:/url
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour Cirec,
Avec ton code, serait il possible et peut être préférable de préciser si le fichier exécutable possède en ressource le bitmap 100 si non l'indiquer par un message afin d'éviter l'exception.
Car ma méthode d'éviter l'exception en indiquant comme Mask "logonui_*.exe" ne fonctionne que pour mes logons personnels bien entendu.
Si je vérifie des logons sur le net, forcément leur noms sont différents et ne seront donc pas visible avec ma méthode.
@+,
Cincap
[url]mailto:/url
Avec ton code, serait il possible et peut être préférable de préciser si le fichier exécutable possède en ressource le bitmap 100 si non l'indiquer par un message afin d'éviter l'exception.
Car ma méthode d'éviter l'exception en indiquant comme Mask "logonui_*.exe" ne fonctionne que pour mes logons personnels bien entendu.
Si je vérifie des logons sur le net, forcément leur noms sont différents et ne seront donc pas visible avec ma méthode.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Bonjour Cirec,
Je m'invite dans la discussion, lol.
Il faut au minimum un Form, une Image, un Label et un SpinEdit pour tester ce code.
function LoadBmpFromLogon(const FileName: string; const Param: Byte;
aBmp: TBitmap): Boolean;
var
HandleLib : THandle;
begin
try
HandleLib := LoadLibrary(PChar(FileName));
if HandleLib <> 0 then
try
aBmp.LoadFromResourceID(HandleLib, Param);
Result := True;
finally
FreeLibrary(HandleLib);
end;
except
Result := False;
end;
end;
procedure TForm1.seParamChange(Sender: TObject);
var
NumBmp: Byte;
FilePath: string;
begin
FilePath := 'D:\WINDOWS\system32\LogonUi.exe'; // par exemple...
NumBmp := seParam.Value;
Label1.Caption := '';
if not LoadBmpFromLogon(FilePath, NumBmp, Image1.Picture.Bitmap) then
Label1.Caption := 'Paramètre non valide';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
seParamChange(nil);
end;
Bonne prog'
japee
Je m'invite dans la discussion, lol.
Il faut au minimum un Form, une Image, un Label et un SpinEdit pour tester ce code.
function LoadBmpFromLogon(const FileName: string; const Param: Byte;
aBmp: TBitmap): Boolean;
var
HandleLib : THandle;
begin
try
HandleLib := LoadLibrary(PChar(FileName));
if HandleLib <> 0 then
try
aBmp.LoadFromResourceID(HandleLib, Param);
Result := True;
finally
FreeLibrary(HandleLib);
end;
except
Result := False;
end;
end;
procedure TForm1.seParamChange(Sender: TObject);
var
NumBmp: Byte;
FilePath: string;
begin
FilePath := 'D:\WINDOWS\system32\LogonUi.exe'; // par exemple...
NumBmp := seParam.Value;
Label1.Caption := '';
if not LoadBmpFromLogon(FilePath, NumBmp, Image1.Picture.Bitmap) then
Label1.Caption := 'Paramètre non valide';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
seParamChange(nil);
end;
Bonne prog'
japee
- Messages postés
- 490
- Date d'inscription
- dimanche 5 décembre 2004
- Dernière intervention
- 6 avril 2009
Bonjour Japee,
Excellente solution, en ce qui concerne les logonuis, les bitmaps commencent au n° 100 jusqu'au n° 127.
Je m'en vais tester cela.
@+,
Cincap
[url]mailto:/url
Excellente solution, en ce qui concerne les logonuis, les bitmaps commencent au n° 100 jusqu'au n° 127.
Je m'en vais tester cela.
@+,
Cincap
[url]mailto:/url
- Messages postés
- 1799
- Date d'inscription
- vendredi 27 décembre 2002
- Dernière intervention
- 19 juillet 2018
Salut,
Si tu connais d'avance les paramètres, tu peux faire un truc comme ça :
function LoadBmpFromLogon(const FileName: string; const Param: Byte;
aBmp: TBitmap): Boolean;
const
Valid = [100, 102..114, 119, 121..127];
var
HandleLib : THandle;
begin
Result := False;
if not (Param in Valid) then Exit;
try
HandleLib := LoadLibrary(PChar(FileName));
if HandleLib <> 0 then
try
aBmp.LoadFromResourceID(HandleLib, Param);
Result := True;
finally
FreeLibrary(HandleLib);
end;
except
end;
end;
Bonne prog'
Si tu connais d'avance les paramètres, tu peux faire un truc comme ça :
function LoadBmpFromLogon(const FileName: string; const Param: Byte;
aBmp: TBitmap): Boolean;
const
Valid = [100, 102..114, 119, 121..127];
var
HandleLib : THandle;
begin
Result := False;
if not (Param in Valid) then Exit;
try
HandleLib := LoadLibrary(PChar(FileName));
if HandleLib <> 0 then
try
aBmp.LoadFromResourceID(HandleLib, Param);
Result := True;
finally
FreeLibrary(HandleLib);
end;
except
end;
end;
Bonne prog'
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
désolé j'avais pas trop de temps ces derniers jours ...
j'ai écris un petit prog avec une unité a part qui se charge de récuperer tous les noms de bitmaps contenus dans un executable ... si il n'y en a pas vous en êtes aussi averti
J'ai simplifier au maximum pour ne conserver que ce qui nous interresse
Le programme est simple :
vous cliquez sur le bouton ... selectionnez un fichier (Valide *.exe;*.dll;*.ocx;*.bpl) ...
et si il contient des Bitmaps leurs nom seront affichés dans une TListBox ...
et a chaque clique sur un item de la TListBox le Bitmap correspondant est affiché
// une unité à part pour chercher les bitmaps dans un fichier (*.exe; *.dll ...)
// copie et nomme la UcrResource.pas
<hr size= "2" width="100%" />
unit
UcrResource
;
interface
Uses
Windows
,
SysUtils
,
Classes
;
Function
GetResources
(
Res_Handle
:
THandle
;
Res_Type
:
PChar
):
TStringList
;
implementation
Function
enumResNamesProcex
(
module
:
HMODULE
;
restype
,
resname
:
PChar
;
LParam
:
Integer
):
Integer
;
Stdcall
;
Begin
With
TStrings
(
LParam
)
do
If
HiWord
(
Cardinal
(
resname
))
<>
0
Then
Add
(
Resname
)
Else
Add
(
IntToStr
(
loword
(
Cardinal
(
resname
))));
Result
:=
1
;
End
;
Function
GetResources
(
Res_Handle
:
THandle
;
Res_Type
:
Pchar
):
TStringList
;
OverLoad
;
Begin
Result
:=
TStringList
.
Create
;
If
Not
EnumResourceNames
(
Res_Handle
,
Res_Type
,
@
enumResNamesProcEx
,
Integer
(
Result
))
Then
Result
.
Add
(
SysErrorMessage
(
GetLastError
));
End
;
end
.
<hr size="2" width="100%" />
// ici c'est l'unité principale ...
// reproduis la même en n'oubliant rien : 1 TListBox; 1 TImage; et 1 TButton
<hr size ="2" width="100%" />
unit
UMain
;
interface
uses
Windows
,
Messages
,
SysUtils
,
Classes
,
Graphics
,
Controls
,
Forms
,
Dialogs
,
StdCtrls
,
ExtCtrls
;
type
Tfrm_Main
=
class
(
TForm
)
lb_Bitmaps
:
TListBox
;
img_Bitmaps
:
TImage
;
Btn_Open
:
TButton
;
procedure
Btn_OpenClick
(
Sender
:
TObject
);
procedure
FormClose
(
Sender
:
TObject
;
var
Action
:
TCloseAction
);
procedure
lb_BitmapsClick
(
Sender
:
TObject
);
private
{ Déclarations privées }
Procedure
CloseLib
;
public
{ Déclarations publiques }
end
;
var
frm_Main
:
Tfrm_Main
;
implementation
{$R *.DFM}
//Ne pas oublier de déclarer :
Uses
UcrResource
;
Var
HandleLib
:
THandle
=
0
;
procedure
Tfrm_Main
.
FormClose
(
Sender
:
TObject
;
var
Action
:
TCloseAction
);
begin
CloseLib
;
end
;
procedure
Tfrm_Main
.
Btn_OpenClick
(
Sender
:
TObject
);
Var
BmpList
:
TStringList
;
begin
With
TOpenDialog
.
Create
(
Self
)
do
Try
InitialDir
:=
'%SYSTEMROOT%\System32'
;
Filter
:=
'Files with resources|*.EXE;*.DLL;*.OCX'
;
FilterIndex
:=
1
;
If
Execute
Then
Begin
CloseLib
;
HandleLib
:=
LoadLibrary
(
PChar
(
FileName
));
If
HandleLib
<>
0
Then
Begin
lb_Bitmaps
.
Clear
;
BmpList
:=
GetResources
(
HandleLib
,
RT_BITMAP
);
lb_Bitmaps
.
Items
.
AddStrings
(
BmpList
);
BmpList
.
Free
;
End
;
End
;
Finally
Free
;
End
;
end
;
procedure
Tfrm_Main
.
CloseLib
;
begin
If
HandleLib
<>
0
Then
FreeLibrary
(
HandleLib
);
end
;
procedure
Tfrm_Main
.
lb_BitmapsClick
(
Sender
:
TObject
);
Var
aBmp
:
TBitmap
;
BmpNum
:
Integer
;
begin
If
lb_Bitmaps
.
ItemIndex
<
0
Then
Exit
;
With
lb_Bitmaps
Do
BmpNum
:=
StrToIntDef
(
Items
[
ItemIndex
],
-
1
);
If
BmpNum
<
0
Then
Exit
;
aBmp
:=
TBitmap
.
Create
;
With
aBmp
Do
Try
LoadFromResourceID
(
HandleLib
,
BmpNum
);
img_Bitmaps
.
Picture
.
Assign
(
aBmp
);
Finally
aBmp
.
Free
;
End
;
end
;
end
.
<hr size="2" width="100%" />
Voilà c'est tout ...
@+
Cirec
<hr size="2" />
désolé j'avais pas trop de temps ces derniers jours ...
j'ai écris un petit prog avec une unité a part qui se charge de récuperer tous les noms de bitmaps contenus dans un executable ... si il n'y en a pas vous en êtes aussi averti
J'ai simplifier au maximum pour ne conserver que ce qui nous interresse
Le programme est simple :
vous cliquez sur le bouton ... selectionnez un fichier (Valide *.exe;*.dll;*.ocx;*.bpl) ...
et si il contient des Bitmaps leurs nom seront affichés dans une TListBox ...
et a chaque clique sur un item de la TListBox le Bitmap correspondant est affiché
// une unité à part pour chercher les bitmaps dans un fichier (*.exe; *.dll ...)
// copie et nomme la UcrResource.pas
<hr size= "2" width="100%" />
unit
UcrResource
;
interface
Uses
Windows
,
SysUtils
,
Classes
;
Function
GetResources
(
Res_Handle
:
THandle
;
Res_Type
:
PChar
):
TStringList
;
implementation
Function
enumResNamesProcex
(
module
:
HMODULE
;
restype
,
resname
:
PChar
;
LParam
:
Integer
):
Integer
;
Stdcall
;
Begin
With
TStrings
(
LParam
)
do
If
HiWord
(
Cardinal
(
resname
))
<>
0
Then
Add
(
Resname
)
Else
Add
(
IntToStr
(
loword
(
Cardinal
(
resname
))));
Result
:=
1
;
End
;
Function
GetResources
(
Res_Handle
:
THandle
;
Res_Type
:
Pchar
):
TStringList
;
OverLoad
;
Begin
Result
:=
TStringList
.
Create
;
If
Not
EnumResourceNames
(
Res_Handle
,
Res_Type
,
@
enumResNamesProcEx
,
Integer
(
Result
))
Then
Result
.
Add
(
SysErrorMessage
(
GetLastError
));
End
;
end
.
<hr size="2" width="100%" />
// ici c'est l'unité principale ...
// reproduis la même en n'oubliant rien : 1 TListBox; 1 TImage; et 1 TButton
<hr size ="2" width="100%" />
unit
UMain
;
interface
uses
Windows
,
Messages
,
SysUtils
,
Classes
,
Graphics
,
Controls
,
Forms
,
Dialogs
,
StdCtrls
,
ExtCtrls
;
type
Tfrm_Main
=
class
(
TForm
)
lb_Bitmaps
:
TListBox
;
img_Bitmaps
:
TImage
;
Btn_Open
:
TButton
;
procedure
Btn_OpenClick
(
Sender
:
TObject
);
procedure
FormClose
(
Sender
:
TObject
;
var
Action
:
TCloseAction
);
procedure
lb_BitmapsClick
(
Sender
:
TObject
);
private
{ Déclarations privées }
Procedure
CloseLib
;
public
{ Déclarations publiques }
end
;
var
frm_Main
:
Tfrm_Main
;
implementation
{$R *.DFM}
//Ne pas oublier de déclarer :
Uses
UcrResource
;
Var
HandleLib
:
THandle
=
0
;
procedure
Tfrm_Main
.
FormClose
(
Sender
:
TObject
;
var
Action
:
TCloseAction
);
begin
CloseLib
;
end
;
procedure
Tfrm_Main
.
Btn_OpenClick
(
Sender
:
TObject
);
Var
BmpList
:
TStringList
;
begin
With
TOpenDialog
.
Create
(
Self
)
do
Try
InitialDir
:=
'%SYSTEMROOT%\System32'
;
Filter
:=
'Files with resources|*.EXE;*.DLL;*.OCX'
;
FilterIndex
:=
1
;
If
Execute
Then
Begin
CloseLib
;
HandleLib
:=
LoadLibrary
(
PChar
(
FileName
));
If
HandleLib
<>
0
Then
Begin
lb_Bitmaps
.
Clear
;
BmpList
:=
GetResources
(
HandleLib
,
RT_BITMAP
);
lb_Bitmaps
.
Items
.
AddStrings
(
BmpList
);
BmpList
.
Free
;
End
;
End
;
Finally
Free
;
End
;
end
;
procedure
Tfrm_Main
.
CloseLib
;
begin
If
HandleLib
<>
0
Then
FreeLibrary
(
HandleLib
);
end
;
procedure
Tfrm_Main
.
lb_BitmapsClick
(
Sender
:
TObject
);
Var
aBmp
:
TBitmap
;
BmpNum
:
Integer
;
begin
If
lb_Bitmaps
.
ItemIndex
<
0
Then
Exit
;
With
lb_Bitmaps
Do
BmpNum
:=
StrToIntDef
(
Items
[
ItemIndex
],
-
1
);
If
BmpNum
<
0
Then
Exit
;
aBmp
:=
TBitmap
.
Create
;
With
aBmp
Do
Try
LoadFromResourceID
(
HandleLib
,
BmpNum
);
img_Bitmaps
.
Picture
.
Assign
(
aBmp
);
Finally
aBmp
.
Free
;
End
;
end
;
end
.
<hr size="2" width="100%" />
Voilà c'est tout ...
@+
Cirec
<hr size="2" />
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.