Delphi dicas

Abri qualquer arquivo, muito facil e funciona!!

Adicionar à cláusula uses da unit:  ShellApi



procedure TForm1.Button1Click(Sender: TObject);

begin

        if (fileExists('c:wellington	este.doc')) then

        ShellExecute(Handle, nil, Pchar('c:wellington	este.doc'), nil, nil, SW_SHOWNORMAL)

        else

        showmessage('Arquivo não existe');

end;

por : Wellington Barbosa Rodrigues