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