Hey,
tolle Funktion, aber wenig Hilfreich oder? Ich meine ok, wenn man weiß dass man das Icon icon_nr_s möchte, toll, wenn ich aber gar nicht weiß an welcher Stelle sich welches Icon befindet...
Vorallem bekommst du hier ein Gültiges TIcon mit ungültigem
Handle, weiß nicht ob dass so erwünscht ist. Es sollte also mindestens die Gültigkeit des Handles überprüft werden
Delphi-Quellcode:
function GetIcon(icon_nr_s : Cardinal;
const FileName :
String) : TIcon;
var handle : HICON;
begin
result :=
nil;
handle := ExtractIcon(Application.Handle, PChar(FileName), icon_nr_s);
if handle <> 0
then
begin
Result := TIcon.Create;
Result.Handle :=
handle;
end;
// if handle <> 0
end;
function GetIconCount(
const FileName :
String) : HICON;
begin
result := 0;
result := ExtractIconEx(PChar(FileName), -1, result, result, 0);
end;