Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

ShellExecute Códigos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

ShellExecute Códigos

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:19 pm

ShellExecute serve pra Abrir arquivos, Navegador e etc. Abaixo exemplos de códigos mais usados:

Executar o Bloco de Notas

uses ShellApi;


ShellExecute(Handle, 'open',
'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);


Abrir o arquivo leiame.txt com o Bloco de Notas

ShellExecute(Handle,'open',
'c:\windows\notepad.exe','c:\leiame.txt',
nil, SW_SHOWNORMAL);



Exibir o conteúdo da pasta 'Invision'


ShellExecute(Handle,'open',
'c:\ThunderHome',
nil, nil, SW_SHOWNORMAL);


Abrir um arquivo com o aplicativo associado a sua extensão


ShellExecute(Handle, 'open',
'c:\Meus Documentos\teste_delphi.doc',nil,nil,SW_SHOWNORMAL );



Abrir um determinado site com o browser padrão


ShellExecute(Handle, 'open',
'http://www.invisoncheats.com.br',nil,nil, SW_SHOWNORMAL);


Enviar email com assunto e corpo semi-preenchidos


var em_subject, em_body, em_mail : string;
begin
em_subject := 'Assunto';
em_body := 'Corpo da mensagem';

em_mail := 'mailto:teste@procode.net?subject=' +
em_subject + '&body=' + em_body;

ShellExecute(Handle,'open',
PChar(em_mail), nil, nil, SW_SHOWNORMAL);
end;

Creditos: Pelo Topico : Mr.Positive
Creditos pelo Codicos: -Ztouzan-<s></s><s></s>

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum