| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
BonneR
Novato
Registrado: Sábado, 14 de Julho de 2012
Mensagens: 5
Localização: Manaus-Am
|
 Enviada: Sáb Ago 04, 2012 4:05 pm Assunto: [Ajuda] Shell Execute |
 |
|
Boa Tarde Eu dei umas olhas no forum encontrei algo parecido mas eu que eu desejo mesmo é um ajuda tipo a minha pergunta como eu executar um programa externo com shell execute de onde ele estiver tipo não importa onde ele esteja localizado > exemplo no desktop no meus documentos também no ''C://" e talz mais se não estiver possivel ele executar tipo assim eu coloco Shellexecute : arquivos de programas / cheat/cheat.exe e talz se o programa não estiver localizado la ele abri um diretorio uma pasta pra configurar manualmente , sabe para procurar a pasta ou arquivo exemplo : cheat .exe ai ele executar bom agradeço desde já =)
Grato! |
|
| Voltar ao Topo |
|
 |
leogazio
Colaborador
Registrado: Domingo, 18 de Fevereiro de 2007
Mensagens: 1047
Localização: Alto Paraná - PR
|
| Enviada: Qua Ago 08, 2012 2:00 pm Assunto: Re: [Ajuda] Shell Execute |
|
|
| BonneR escreveu: | Boa Tarde Eu dei umas olhas no forum encontrei algo parecido mas eu que eu desejo mesmo é um ajuda tipo a minha pergunta como eu executar um programa externo com shell execute de onde ele estiver tipo não importa onde ele esteja localizado > exemplo no desktop no meus documentos também no ''C://" e talz mais se não estiver possivel ele executar tipo assim eu coloco Shellexecute : arquivos de programas / cheat/cheat.exe e talz se o programa não estiver localizado la ele abri um diretorio uma pasta pra configurar manualmente , sabe para procurar a pasta ou arquivo exemplo : cheat .exe ai ele executar bom agradeço desde já =)
Grato! |
winexec() filho. winexec('c:\caminho\ate\o\executavel.exe');
Ou se o executável ou um atalho dele está dentro da pasta system, basta;
winexec('aplicativo.exe') ou winexec('atalhodoaplicativo.lnk')
_________________
Leonardo Gazio - Consultoria e Suporte a Desenvolvedores.
Suporte para todo o Brasil via;
E-mail: leonardogazio@delphimasters.com
Msn: lngsmattos@hotmail.com
Claro: (21) 7301-7243 |
|
| Voltar ao Topo |
|
|
marcieldeg
Colaborador
Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
|
| Enviada: Qui Ago 09, 2012 12:24 pm Assunto: Re: [Ajuda] Shell Execute |
|
|
| BonneR escreveu: | Boa Tarde Eu dei umas olhas no forum encontrei algo parecido mas eu que eu desejo mesmo é um ajuda tipo a minha pergunta como eu executar um programa externo com shell execute de onde ele estiver tipo não importa onde ele esteja localizado > exemplo no desktop no meus documentos também no ''C://" e talz mais se não estiver possivel ele executar tipo assim eu coloco Shellexecute : arquivos de programas / cheat/cheat.exe e talz se o programa não estiver localizado la ele abri um diretorio uma pasta pra configurar manualmente , sabe para procurar a pasta ou arquivo exemplo : cheat .exe ai ele executar bom agradeço desde já =)
Grato! |
| Código: | procedure TForm1.OpenExe(AExeName: String);
var
ExeName: String;
begin
ExeName := AExeName;
// checa se o executável informado existe
if not FileExists(ExeName) then
// não existe, abre diálogo para localizar
if OpenDialog1.Execute then
ExeName := OpenDialog1.FileName;
ShellExecute(Handle, 'open', PChar(ExeName), '', '', SW_SHOW);
end; |
Obs: Evite usar WinExec. A função foi "deprecated" nas versões recentes do Windows, e é mantida apenas para retrocompatibilidade com programas já existentes. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
