Prøv med dette, håber det virker for dig. Jeg går ud fra at du har
programmer kørende på alle client maskiner som får besked når filen åbnes
eller lukkes:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
sStream: TFileStream;
implementation
{$R *.dfm}
//Lås
procedure TForm1.Button1Click(Sender: TObject);
begin
sStream := TFileStream.Create('test.txt', fmShareExclusive);
end;
//unlock
procedure TForm1.Button2Click(Sender: TObject);
begin
sStream.Free;
end;
end.
"Frank N" <ask@me.dk> skrev i en meddelelse
news:IvZJ9.16$5f1.231@news.get2net.dk...
> Hejsa
>
> Jeg er igang med at udvikle et program som skal kunne køre på flere
klienter
> samtidig, og hente informationer fra en fil i en delt mappe på et netværk.
> Der må max være én der læser i filen af gangen, så jeg har brug for at
låse
> filen hver gang programmet på en klient bliver åbnet.
>
> Kan jeg, evt. vha. Reset funktionen, låse filen, så den ikke kan åbnes af
> andre før den closes igen?
>
> Mvh Frank
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.427 / Virus Database: 240 - Release Date: 06-12-2002