Zitat von
mOzZzI:
So jetzt Compiliert er und alles, aber wie nehme ich jetzt z.B. Desktopicons via Drag&Drop in einen Bitbtn auf?
Eigeninitiative ist das Stichwort
Zitat von
Matze:
Das Icon kannst du anhand des Dateinamens aus der Datei auslesen (Einfach die Suche benutzen)
Wenn du das machst, findest du zum Bleistift:
Zitat von
Martin K:
Für alle, die das Icon aus einer beliebigen Datei haben möchten,
hier der endgültige Quellcode:
Delphi-Quellcode:
uses ... ShellApi;
...
function FileIcon(FileName: String): TIcon;
var FileInfo: TSHFileInfo; AIcon: TIcon;
begin
FillChar(FileInfo,SizeOf(FileInfo),#0);
SHGetFileInfo(PChar(FileName),0,FileInfo,SizeOf(FileInfo),SHGFI_ICON or SHGFI_LARGEICON);
AIcon:=TIcon.Create;
Try
AIcon.Handle:=FileInfo.HIcon;
AIcon.Transparent:=True;
Except end;
Result:=AIcon;
end;
Vielen Dank nochmal an ichbins
aus
diesem Thread