OpenDialog blockiert das Umbenennen eines Ordners

[Mysticus]

Hallo,

wenn ich mit OpenDialog eine Datei auswähle und anschließend versuche, den Ordner, in dem die ausgewählte Datei liegt, umzubenennen, meldet Windows: "Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird." Mit 'Datei' meint Windows hier wohl den umzubenennenden Pfad und mit 'einem anderen Prozeß' meint es wohl den eigenen (das Umbenennen versuchenden) Prozeß.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  InFile: TextFile;
begin
  OpenDialog1.InitialDir := 'C:\Testle1';
  if OpenDialog1.Execute() then
  begin
    AssignFile(InFile, OpenDialog1.FileName);
    Reset(InFile);
    CloseFile(InFile);
  end;
//  OpenDialog1.InitialDir := 'C:\';
//  OpenDialog1.FileName := '';
//  OpenDialog1.Execute();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if MoveFile('C:\Testle1', 'C:\Testle2') then
    Application.MessageBox('Hat gefunzt', 'Fehler', MB_OK)
  else
    Application.MessageBox(PChar(SysErrorMessage(GetLastError())), 'Fehler', MB_OK); 
end;

Wird nach dem Programmstart Button2 betätigt, tut das Umbenennen. Wird zuvor Button1 betätigt, tut es nicht. Werden aber in Button1Click() die drei auskommentierten Zeilen aktiviert (und beim zweiten Execute() eine Datei aus einem anderen Verzeichnis ausgewählt), so läßt sich das Verzeichnis wieder umbenennen. Auch RenameFile() verhält sich gleich und auch ein Erzeugen und Zerstören von TOpenDialog zur Laufzeit hilft nicht weiter. Anscheinend blockiert OpenDialog den Pfad der zuletzt ausgewählten Datei sogar über seine Lebensdauer hinaus.

Hat jemand einen Lösungsvorschlag?

Gruß & Danke,

Mysticus

[Christian Seehase]

Moin Mysticus,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Hast Du es auch einmal mit einer längeren Wartezeit zwischen den Aufrufen probiert?
Ich habe irgendwie nicht OpenDialog im Verdacht, da dieser eh' keine Datei/Verzeichnis öffnet, sondern ResetFile/CloseFile.

[Robert Marquardt]

Das lieg wohl daran das der Dialog die aktuelle Directory in das Verzeichnis der ausgewaehlten Datei verlegt hat.

[Mysticus]

Hallo,

eigentlich wollte ich eben noch hinzufügen, daß auch der Explorer sich weigert, das Verzeichnis umzubenennen. Auch wenn man AssignFile(), Reset() und CloseFile() wegläßt, hat man den selben Effekt.

Aber hier sind ja schon zwei Antworten eingegangen. Danke! Besonders an der von Robert ist was dran. Wenn ich nämlich anstelle der drei auskommentierten Zeilen ein ChDir('C:\') einfüge, tut's, zumindest in meinem kleinen Testproggi. In der eigentlichen Anwendung hatte ich das auch schon ausprobiert - aber wie es zunächst aussah ohne Erfolg. Jetzt werde ich die Applikation nochmal draufhin abklopfen, ob evtl. noch woanderst der aktuelle Pfad auf das umzubenennende Verzeichnis umgestellt wird.

[Robert Marquardt]

Stell mal in den Options des TOpenDialog ofNoChangeDir ein.

[Mysticus]

Mit ofNoChangeDir = TRUE tut's auch. Vielen Dank.