Valeuuu, deu certo!
Abraço!
From: [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
CC: [EMAIL PROTECTED]
Subject: RES: [delphi-br] WinExec
Date: Tue, 22 Jan 2008 16:01:42 -0200
Faz assim:
//--
Uses ShellApi;
procedure TfrmMenu.lblManualLinkClick(Sender: TObject);
var sArquivo: string;
iTeste: Integer;
begin
{ regular WinExec() codes
SE_ERR_FNF = 2; { file not found
SE_ERR_PNF = 3; { path not found
SE_ERR_ACCESSDENIED = 5; { access denied
SE_ERR_OOM = 8; { out of memory
SE_ERR_DLLNOTFOUND = 32;}
{ error values for ShellExecute() beyond the regular WinExec()
codes
SE_ERR_SHARE = 26;
SE_ERR_ASSOCINCOMPLETE = 27;
SE_ERR_DDETIMEOUT = 28;
SE_ERR_DDEFAIL = 29;
SE_ERR_DDEBUSY = 30;
SE_ERR_NOASSOC = 31;}
sArquivo:=\\caminho\arquivo.ext;
//if FileExists(sArquivo) then
begin
iTeste:=ShellExecute(Application.Handle, 'open',
PChar(sArquivo), nil, nil, SW_SHOWMAXIMIZED);
if iTeste in [2,3,5,8,26,27,28,29,30,31,32] then
Application.MessageBox(Pchar('Não foi possível abrir este
arquivo! Ocorreu o erro número: '+ IntToStr(iTeste) +' !'),'Sistem',
MB_OK+MB_ICONERROR);
end;
end;
//--
Um abraço,
Levi Ribeiro
Analista Free Lance
De:
delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome
de Evandro .
Enviada em: terça-feira, 22 de janeiro de 2008 11:56
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] WinExec
Bom Dia !
Estou com problemas na hora de abrir uma Imagem JPG pelo delphi..
dessa maneira funciona..
winexec(pchar('c:\windows\system32\mspaint.exe "c:\imagem.jpg"'),sw_show);
Porém queria abrir a imagem pelo Visualizador definido como padrão pelo Usuário
no Windows... e não ficar limitado ao Paint... pois cada pessoa que for usar o
Sistema tem seu visualizador preferido!
Alguem sabe como fazer isso ??
abraços!!
__________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
[As partes desta mensagem que não continham texto foram removidas]
_________________________________________________________________
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
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
