Danke für die schnelle Antwort.
Zitat von
Tryer:
Warte doch darauf das Du Test.odt wieder exklusiv öffnen kannst.
Kannst Du das bitte etwas konkreter ausführen und/oder mir ggf. Quellcode bzw. Links zukommen lassen?
Ich würde es nach Deiner Antwort so machen:
Delphi-Quellcode:
Function OpenExclusive(FName: String): Boolean;
Var
F : File;
Begin
AssignFile(F, FName);
FileMode:=fmShareExclusive;
{$I-}
Reset(F);
CloseFile(F);
{$I+}
Result:=(IOResult=0);
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
Repeat
Application.ProcessMessages;
Until OpenExclusive('D:\Test.odt');
ShowMessage('Jetzt isser fertig.');
end;
Das Problem ist dabei aber die lang andauernde Schleife. Das soll nicht so Resourcen schonend sein.
Gruß, Alex