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 :

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