opendialog mit fixem pfad?

[illegal eagle]

Als Notlösung geht ja auch 'ne Schleife:

Code:

Var     FixedDir : String = 'C:\';

Code:

While True do  If OpenDialog.Execute then Begin
        If (ExtractFilePath(OpenDialog.FileName) = FixedDir) then Break;
        ShowMessage('Nur Dateien aus dem Verzeichnis ' + FixedDir + ' sind erlaubt.');
End;

'FixedDir' kann man ja noch bei Programmstart an Windows-Verzeichnis etc. anpassen.