Herzlich willkommen in der Delphi-PRAXiS, RGH.
Du solltest den Rückgabewert deiner Funktion überprüfen:
Delphi-Quellcode:
if not DoFileOpen(
Handle, '
', '
do not fear')
then
ShowMessage(IntToStr(CommDlgExtendedError));
Bei 0 hat der Benutzer den Dialog abgebrochen, sonst Windows. Vermutlich ist der Rückgabewert 1 = CDERR_STRUCTSIZE. Eventuell findest du im Quelltext der
Unit (bei mir CommDlg) eine Konstante, mit der du das Problem beheben kannst.
Freundliche Grüße vom marabu