Textdatei auf Verwendung prüfen

**alfred**

Hallo Leute,

gibt es eine Möglichkeit zu prüfen, ob eine Textdatei bereits von einem anderen Programm benutzt wird. Ich habe bereits folgenden Code probiert :

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

{$R *.dfm}

function TForm1.IsFileInUse(FileName: string): boolean;

var HFileRes: HFILE;

begin

  HFileRes:=CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil,

    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

  result:=HFileRes=INVALID_HANDLE_VALUE;

  if not result then CloseHandle(HFileRes);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

  if IsFileInUse('C:\Temp\Test.txt') then showmessage('Hallo Welt.');

end;

Dazu habe ich meine Testdatei mit dem Editor geöffnet und anschließend ein Programm mit dem Quellauszug laufen lassen. Leider tut sich da nichts.

Habt Ihr eine Ahnung wo mein Gedankenfehler ist ?

Besten Dank im voraus !

Gruß alfred

Textdatei auf Verwendung prüfen

Textdatei auf Verwendung prüfen

Forumregeln