Hmm... Deutsch...
Also ich hab Herbstferien!!!
Übrigens kannst du deinen Code noch vereinfachen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
Application.Icon:=fileicon(opendialog1.FileName);
end;
Aber vielen vielen Dank für deine Hilfe, werd's schon hinkriegen!
