Das einzigste was bei meinen Versuchen geklappt hat, war
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
try
open := TOpenPictureDialog.Create(self);
open.InitialDir := ExtractFilePath(Application.ExeName);
IF open.Execute THEN
image1.picture.loadfromfile(open.filename);
finally
open.Free;
end;
end;
warum das InitialDir beim 2.Versuch ohne Wirkung ist, ist mir auch schleierhaft. Auch noChangeDir war wirkungslos.
//Edit Code noch geändert