logo DevMedia  
Home Entenda o site Revistas Canais Cursos Palestras Suporte Fórum +Serviços Assine Compre Créditos

Edição do Mês
  Fórum DevMedia
Fórum de Discussão
Conheça também o NOVO fórum da DevMedia, no endereço: www.devmedia.com.br/forum
O novo fórum possui diversas vantagens! Saiba mais em
www.devmedia.com.br/articles/viewcomp.asp?comp=14726
Estamos sempre trabalhando na melhora do site como um todo! Bons códigos!
Equipe DevMedia

 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos  RegistrarRegistrar   
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 
Edição do Mês

ShellExecute
 
Novo Tópico   Responder Mensagem    Fórum DevMedia - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
cgm2k10
Novato


Registrado em: Quarta-Feira, 10 de Fevereiro de 2010
Mensagens: 4

MensagemEnviada: Qua Fev 10, 2010 9:41 pm    Assunto: ShellExecute Responder com Citação

Olá pessoal,
É o seguite estou tentando executar um jogo (Swat.exe) q estar na sua repectiva pasta onde foi instalado. Mas nen com Shellexeute e nem com WinExecute eu estou conseguindo executar este aquivo. Mas tenho quaze serteza o jogo só aceita ser executado clicando diretamente no executavél
atravez de um atalho no qual o mesmo tenha
Destino: "C:\Program Files\SWAT 4\Content\System\Swat4.exe"
Iniciar Em: "C:\Program Files\SWAT 4\Content\System"

alguem sabe como faço para executar este aquivo com este algumeto

Veja meu esquema:
function TForm1.executar;
var
exec: string;
begin
exec :=GetEnvironmentVariable('PROGRAMFILES') +'\SWAT 4\Content\System\Swat4.exe';
if FileExists(exec) then
ShellExecute(handle,'open',PChar(exec), '','',SW_SHOWNORMAL);
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lehapan
Membro Pleno


Registrado em: Quarta-Feira, 26 de Outubro de 2005
Mensagens: 104
Localiza?: Caxias do Sul - RS

MensagemEnviada: Qua Fev 17, 2010 8:55 am    Assunto: Responder com Citação

Verifique se o atalho não passa algum parâmetro para executá-lo.

Espero ter colaborado.
_________________
Wilson Junior, vulgo Paulista...!!!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar Email
cgm2k10
Novato


Registrado em: Quarta-Feira, 10 de Fevereiro de 2010
Mensagens: 4

MensagemEnviada: Qui Fev 18, 2010 7:32 am    Assunto: já consegui Responder com Citação

lehapan escreveu:
Verifique se o atalho não passa algum parâmetro para executá-lo.

Espero ter colaborado.


Valeu amigo mas já consegui com a ajuda do 'Paulo Gurgel' de um outro forum.

procedure TForm1.executar;
var
Destino: string;
Iniciar_Em : string;
begin
Destino :=GetEnvironmentVariable('programfiles')+'\SWAT 4\Content\System\Swat4.exe';
Iniciar_Em :=ExtractFilePath(Destino);
if FileExists(Destino) then begin //Verifica se o arquivo existe
ShellExecute(handle,'open',PChar(Destino), '',PChar(Iniciar_Em),SW_SHOWNORMAL) end
else
OpenDialog1.Execute; //Se não existir, o openDialog1 abre a uma janela para localizar manualmente
if FileExists(OpenDialog1.FileName) then begin
Edit1.Text :=OpenDialog1.FileName;
ShellExecute(handle,'open',PChar(OpenDialog1.FileName), '',PChar(Iniciar_Em),SW_SHOWNORMAL) end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
executar; // executa a procedure acima quando clicado no Button1
end;

{Na inicialização verifica se o arquivo(Destino:) e a pasta(Iniciar Em:) existe
se existir é exibida nos Edit4 e Edit5}

procedure TForm1.FormCreate(Sender: TObject);
var
Destino: string;
Iniciar_Em : string;
begin
Destino :=GetEnvironmentVariable('programfiles')+'\SWAT 4\Content\System\Swat4.exe';
Iniciar_Em :=ExtractFilePath(Destino);
if FileExists(Destino) then begin
Edit4.Text :=Destino;
Edit5.Text :=Iniciar_Em end
else
begin
Edit4.Text :='Arquivo não Existe';
Edit5.Text :='Diretorio não Existe';
end;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    Fórum DevMedia - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Hours
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibído.
Responder Tópicos Proibído
Editar Mensagens: Proibído.
Excluir Mensagens: Proibído.
Votar em Enquetes: Proibído.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB