Buscar

Abri qualquer arquivo, muito facil e funciona!!

Código

Adicionar à cláusula uses da unit:  ShellApi

procedure TForm1.Button1Click(Sender: TObject);
begin
if (fileExists('c:wellingtonteste.doc')) then
 ShellExecute(Handle, nil, Pchar('c:wellingtonteste.doc'), nil, nil, SW_SHOWNORMAL)
else
 showmessage('Arquivo não existe');
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 22/05/07
Por: Wellington Barbosa Rodrigues
Visualizada: 3214 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009