Se om en fil er åben

<quote>Jeg ved at man kan starte et program med

ShellExecute(Handle, PChar('open'), PChar('c:\\winnt\\notepad.exe'), nil,
nil, SW_SHOWNORMAL);

men hvordan tjekker jeg om en given fil er åben. Jeg skal altså have mit lille program til at se om "notepad.exe" kører og gør den ikke det så skal den åbnes.

På forhånd tak for hjælpen... det er ikke for at være nærig men jeg har snart ikke flere point at give væk af.</quote>

Prøv den her
Function FileIsOpen(const FileName : TFileName) : Boolean;
begin
result := false;
try
With TFileStream.Create( FileName, fmOpenread or fmShareExclusive)
Do Free;
except
result := true;
end;
end;

<quote>Jeg ved at man kan starte et program med

ShellExecute(Handle, PChar('open'), PChar('c:\\winnt\\notepad.exe'), nil,
nil, SW_SHOWNORMAL);

men hvordan tjekker jeg om en given fil er åben. Jeg skal altså have mit lille program til at se om "notepad.exe" kører og gør den ikke det så skal den åbnes.
<quote>

Prøv at læs http://www.delphi3000.com/articles/article_2724.asp. Det kræver nok at du registrere dig, men det er gratis