Loading af memo

function IsFileInUse(FileName: TFileName): Boolean;
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(FileName) then Exit;
  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.Button1Click(Sender: TObject);
begin
  if IsFileInUse('c:\test\test.exe') then
    ShowMessage('Filen er i brug.');
  else
    ShowMessage('Filen er ikke  ibrug.');
end;

den viser stadig fejl vis de 2 programmer saver til txt filen på sam tidig :(

vallemandens kode går jo kun ind og tjekker om filen er i brug og løser ikke dit problem at der er 2 bruger om den samme txt fil.

Så det er da klart at der kommer en fejl når 2 brugere prøver at gemme filen på samme tid.

ja det har jeg så forstået nu, det er ikke loading af txt fil til memo, men gemme en txt fil

jaa kan i hjælpe mig med  det :)