Hi!
Ich versuch grad nen Prog zu schreiben das ausgewählte Programme in ein Menü einbindet und dessen Icon dann auch anzeigt (so wie es ja normalerweiße sein sollte
)
So nun sieht mein Source so aus:
Delphi-Quellcode:
var
hInst: THandle;
hBild: HICON;
begin
with dlgOpen do
begin
if Execute then
begin
NewEntry := TRUE;
edtProgrammpfad.Text := FileName;
hInst := BeginUpdateResource(PChar(FileName), FALSE);
hBild := LoadIcon(HInst, PChar(''));
Image1.Picture.Icon.Handle := hBild;
end;
end;
Die Variable FileName kommt von em Open - Dialog. Jetzt kommt jedes mal, wenn er LoadIcon macht, 0 zurück!
Könnt ihr mir da helf0rn ?
tHx Planet