Goeiendag,
Ik heb een TSpeedButton waar ik met ExtractAssociatedIcon een Glyph in wil zetten.
Delphi Code:
procedure TfrmMain.CreateButton(vPath, vParameters: string);
var
vIcon:HICON;
vIndex:Word;
begin
vIndex:=0;
if FileExists(vPath) then
begin
vIcon:=ExtractAssociatedIcon(HINSTANCE,PChar(vPath),vIndex);
end;
end;
De Glyph is een bitmap en geen icon, maar dat is het probleem niet. Dat is wel om te zetten lijkt me.
Het probleem is, de volgende foutmeldingen.
Code:
umain.pas(103,16) Error: Identifier not found "HICON"
umain.pas(103,16) Error: Error in type definition
umain.pas(109,67) Error: Incompatible type for arg no. 3: Got "Word", expected "LPWORD"
Ik heb ShellAPI in de uses staan. Als ik de cursor zet op ExtractAssociatedIcon geeft de compiler aan dat er inderdaad een HICON en een LPWORD nodig zijn.
Via ShellAPI heb ik gezien dat de types in base.inc staan.
Wat doe ik fout?
Greets,
Peter.
Bookmarks