Hallo,
da ich das gerade selber gesucht habe,
rumprobiert GELÖST haben
hier mal die Lösung
Delphi-Quellcode:
uses
Windows;
{$R MyIcon.Res} // oder als RC
procedure ExecuteForm; // die Methode wird von der importierten proc aufgerufen
var
theIcon : hIcon;
begin
theIcon:= LoadIcon(HInstance, 'ICON1');
Application.Icon.Handle:= theIcon;
Form:= TForm.Create;
try
Form.ShowModal;
finally
Form.Free;
end;
DestroyIcon(theIcon);
end;
Heiko