Vlw camarada, era isso mesmo que precisava. Vlw -------------- Adriano Santos Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.
Colunista e Comissão Editorial da revista ClubeDelphi. Blog: http://www.delphitodelphi.blogspot.com Walter Alves Chagas Junior respondeu: > > Eu uso esta aqui: > > 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; > > declare a Windows na clausula uses da unit > > []s > > Walter Alves Chagas Junior > Projeto e desenvolvimento de sistemas > Telemont Engenharia de telecomunicações S/A > Belo Horizonte - MG - Brasil > [EMAIL PROTECTED] <mailto:wchagas%40telemont.com.br> > Fone: (31) 3389-8217 Fax: (31) 3389-8215 > > -----Mensagem original----- > De: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > [mailto:delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br>]Em > nome de Adriano Santos > Enviada em: quarta-feira, 9 de maio de 2007 18:33 > Para: Delphi-br > Assunto: [delphi-br] Arquivo em Uso > > Galera, > > Há um tmepo um camarada passou uma função pra descobrir se o arquivo > está em uso. > Queria saber duas coisas: alguém lembra pelo menos o assunto da mensagem > pra eu procurar na lista? > É possível eu saber se um executável está em uso? > > Vejam, tenho um executável que roda em background e preciso saber se ele > está em uso. > vlw. > > -- > Adriano Santos > Desenvolvedor Delphi desde 1998. Professor e programador PHP. > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. > > Colunista e Comissão Editorial da revista ClubeDelphi. > Respondam minhas enquetes: > Qual banco você utiliza? > Qual Delphi você utiliza? > Blog: http://www.delphitodelphi.blogspot.com > <http://www.delphitodelphi.blogspot.com> > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Links do Yahoo! Grupos > > > ------------------------------------------------------------------------ > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.467 / Virus Database: 269.6.6/795 - Release Date: 9/5/2007 15:07 > -- Boa leitura Atenciosamente, ------------------------------------------------------------------------ *Adriano Santos* Desenvolvedor Delphi desde 1998. Professor e programador PHP. Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. Colunista e Comissão Editorial da revista ClubeDelphi. Blog: Delphi to Delphi <http://www.delphitodelphi.blogspot.com> ------------------------------------------------------------------------ <http://www.devmedia.com.br> <http://www.devmedia.com.br/clubedelphi/pagina.asp>