Tenta isso ai
*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:\Programs\delphi6\bin\delphi32.exe') *then
*ShowMessage('File is in use.');
*else
*ShowMessage('File not in use.');
*end*;
Marcos Abreu Ferreira escreveu:
>Pessoal
>
>
>
>Alguém saberia me dizer como verifico se um arquivo texto está aberto por
>algum outro software, para que eu abra o arquivo somente quando ele não
>estiver sendo utilizado!
>
>
>
>
>
>Att,
>
>
>
>Marcos Ferreira
>
>
>
>
>
>"O problema das novas tecnologias não é ter que aprendê-las, o problema é
>sentir-se idiota perante os outros durante todo o processo de aprendizado."
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
