ShellExecute Códigos

por Mr.Positive 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>~~

por JokeR Ter Jan 04, 2011 3:55 pm

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

ShellExecute Códigos

ShellExecute Códigos

Re: ShellExecute Códigos