ShellExecute Códigos

Ir em baixo

ShellExecute Códigos

Mensagem por Mr.Positive em Ter Dez 28, 2010 2:29 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>
avatar
Mr.Positive
Membro
Membro

Mensagens : 54
Agradecimentos : 11
Data de inscrição : 28/12/2010
Idade : 23
Localização : Recreio

Ver perfil do usuário http://www.jonathanmaia.com.br

Voltar ao Topo Ir em baixo

Re: ShellExecute Códigos

Mensagem por JokeR em Ter Jan 04, 2011 3:55 pm

muito bom cara esses são codigos simples mais que tem suas utilidades apropriadas.
avatar
JokeR
Membro
Membro

Mensagens : 203
Agradecimentos : 29
Data de inscrição : 26/12/2010
Localização : @cheatsnanet

Ver perfil do usuário http://cheatsnanet.com/forum

Voltar ao Topo Ir em baixo

Voltar ao Topo


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