Schnellstartleiste

[Daniel G]

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.