Zugriff auf USB Stick beenden

[Lemmy]

Hallo,

folgendes Problem: Form+Button+Edit+OpenDialog. Nach folgendem Code

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
    Edit1.Text:=OpenDialog1.FileName;
  end;
end;

ist der USB Stick gesperrt, d.h. ich kann diesen nicht mehr entfernen. Erst wenn ich die komplette Anwendung schließe (das Form freigeben bringt leider nix) kann ich den USB Stick freigeben.

Wie schaffe ich es der Anwendung mitzuteilen den Zugriff auf den Stick zu beenden?

Grüße

[Luckie]

Das wird daran liegen, dass das aktuelle Verzeichnis (CurrentDirectory) noch auf den USB-Stick verweist. Merk fir vor dem Aufruf von OpenDialog das aktuelle Verzeichnis und wechsele danach wieder dort hin. Es gibt aber, glaube ich, auch eine Einstellung vom TOpenDialog, die das setzen des neuen aktuellen Verzeichnisses bei einer Dateiauswahl unterbindet.

[Lemmy]

Ahhh... Luckie Du bist mein Held!! Vielen Dank für den Hinweis... Klappt einwandfrei...

Grüße

[edit]
Die Option heißt ofNoChangeDir oder eben über GetCurrentDir/SetCurrentDIr
[/edit]