Wie hieß dieses Lied von Scooter nochmal? "I'm your Pusher?"
So what..
Erstmal: Wozu zum Henker benötigt das Programm die Indys in der Uses?
Dann: Das Problem liegt hier:
Delphi-Quellcode:
procedure TForm1.WMDROPFILES (var Msg: TMessage);
//[...]
begin
//[...]
Icon := TIcon.Create;
try
Icon.Loadfromfile(dateiname);
//[...]
end;
Das LoadFromFile macht keinen Sinn. Die Funktion erwartet eine gültige *.ico - Datei, und keine Executable.
Daher müsste es lauten:
Delphi-Quellcode:
procedure TForm1.WMDROPFILES (var Msg: TMessage);
//[...]
begin
//[...]
Icon := TIcon.Create;
try
Icon := FileIcon(Dateiname);
//[...]
end;
Soweit ich das gesehen habe, wird das Icon aber noch keinem Button zugewiesen, richtig? Mal schauen, ob ich heute Abend ein kleines Beispiel schaffe, wenn sich noch nichts getan hat.