Zitat:
...wenn MS es kann warum funktioniert es dann nicht bei mir?
Spruch des Tages, Internet kann zu!
Du hast den vollständigen Processpfad/-dateinamen, du hast das Process
Handle, du hast die Process ID...woran scheitert es jetzt genau?
Hier noch ein Schups in die richtige Richtung, weil heute Donnerstag ist:
Delphi-Quellcode:
procedure ExtractIcons(
const FileName:
string);
var
IconCount: Cardinal;
I: Integer;
IconHandle: HICON;
begin
IconCount := ExtractIcon(HInstance, PChar(FileName), UINT(-1));
if IconCount <> 0
then
begin
for I := 0
to IconCount - 1
do
begin
IconHandle := ExtractIcon(HInstance, PChar(FileName), I);
if IconHandle <> 0
then
begin
// mach irgendwas mit dem Icon Handle
// . . .
// am Ende freigeben
DestroyIcon(IconHandle);
end;
end;
end;
end;