Opa, obrigado pela dica, excelente.
Um abraço e bom final de semana!
Eduardo Castro Alves escreveu:
> De uma olhada.
>
> procedure AbreArquivo(pArquivo : String);
> var
> vArq : Array [0..MAX_PATH] of Char;
>
> begin
>
> StrPCopy(vArq, pArquivo);
> shellexecute (Application.handle, 'open', vArq, '', Nil, sw_shownormal);
>
> end;
>
> procedure TForm1.btn1Click(Sender: TObject);
> begin
>
> AbreArquivo('C:\Documents and Settings\Eduardo\Desktop\B1.xls');
>
> end;
>
> Eduardo
_______________________________________________________
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
