Forum: Win32/Win64 API (native code)
Delphi
by Piro,
24. Apr 2009
Hat vielleicht doch einer ne Idee?
Forum: Win32/Win64 API (native code)
Delphi
by Piro,
18. Apr 2009
** PUSH **
Hat denn keiner ne Idee?
Forum: Win32/Win64 API (native code)
Delphi
by Piro,
13. Apr 2009
Ich habe etwas gefunden und es klappt auch schon ganz gut.
Vorweg, ich arbeite mit 3 ImageListen. Eine Fixe(enthält 5 Icons), eine Variable und Ein, die alles enthält. Desweiteren benutze ich 2 Forms, die diese ImageListen benutzen. Die 2. Form ist eine Art Icon Übersicht (auswählen, hinzufügen, löschen).
procedure Tfrm_main.FormCreate(Sender: TObject);
var
SHFileInfo: TSHFileInfo;
...
Forum: Win32/Win64 API (native code)
Delphi
by Piro,
13. Apr 2009
Guten Tag,
meine Anwendung speichert alle wichtigen Anwendungen, Dokumente und Ordner, die man so braucht unter Windows.
Ich ermitteln mit GetFileIcon das Icon (kleines Icon) und lade es in ein TImage. Funktioniert auch wunderbar und sieht gut aus.
function GetFileIcon(const FileName: string; const Icon: TIcon; const FileMustExist: Boolean): Boolean;
var
FI: TSHFileInfo;
Attributes:...