Datei exklusiv öffnen

[Avax2k]

das geht auch nicht..ist auch logisch, denn egal was als Ergebnis ist, sobald das Programm versucht die Datei zu starten ist der Prozess auf Öffnen und zeitgleich wird der Zugriff gesperrt..ist wohl wie dein Vorredner sagte..unmöglich umzusetzen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
freeandnil(fs);
ShellExecute(Application.Handle, 'OPEN', PChar(FILE_NAME),nil,nil,fmShareExclusive);
//Application.Run;
fs:=TFileStream.Create(FILE_NAME, fmShareExclusive);

komischerweise geht das ganze, wenn ich Application.Run mache...jedoch werden die Rechte dann nicht wie es sollte zugrückgesetzt und die Datei ist frei kopierbar.