ShellExecute Códigos
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
ShellExecute Códigos
ShellExecute serve pra Abrir arquivos, Navegador e etc. Abaixo exemplos de códigos mais usados:
Executar o Bloco de Notas
Abrir o arquivo leiame.txt com o Bloco de Notas
Exibir o conteúdo da pasta 'Invision'
Abrir um arquivo com o aplicativo associado a sua extensão
Abrir um determinado site com o browser padrão
Enviar email com assunto e corpo semi-preenchidos
Creditos: Pelo Topico : Mr.Positive
Creditos pelo Codicos: -Ztouzan-<s></s><s></s>
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
- Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
:: Programação :: Delphi :: Delphi Tutoriais.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos