ich hab die sache in eine
unit gesetzt und hab ein progr geschrieben, das wie folgt aussieht:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var i:tcsfilelocker;
begin
i:=tcsfilelocker.Create;
i.LockFile(edit1.text);
i.free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:tcsfilelocker;
begin
i:=tcsfilelocker.Create;
i.unLockFile(edit1.text);
i.free;
end;
Hab ich was falsch gemacht`??
Man kann die Datei trtzdem noch öffnen und ausführen!
MFG
Thomas