Hallo Rufo,
die Lösung ist ganz einfach:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
sPfad: string;
begin
sPfad:='C:\Windows\Programme\XYZABC\12345\Hinweis.exe';
self.Caption:=MinimizeName(sPfad,Form1.Canvas,200);
end;
Dein Hinweis auf Canvas und das Beispiel haben weiter geholfen. Danke!
Willie.