shellexecute

[frnd]

tenho um botao no delphi e queria que ele abrisse um file qualquer da maquina...

então fiz assim...

uses 
ShellApi;
...........................
.........

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'c:\logs.txt',nil,nil, SW_SHOWNORMAL);
end;

mas quando rodo e clico no botão o programa fecha!

oque tem de errado? ou seria melhor com execfile?

[]s

[frnd]

Agora funcionou....

com o botão normal, e com o bitbtn não...

[Micheus]

Agora funcionou....

com o botão normal, e com o bitbtn não...

frnd, isto não faz sentido.

Por acaso este botão anterior não teria a sua propriedade ModalResult modificada (diferente de mrNone) ?

[frnd]

Sim, tinha modificado!

Editado Maio 7, 2008 por frnd

[Jhonas]

Outros exemplos com o ShellExecute (Dica de martins_vicente )

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 'forumweb'

ShellExecute(Handle,'open',
 'c:\forumweb',
 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.forumweb.com.br/foruns',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@forumweb.com.br?subject=' +
  em_subject + '&body=' + em_body;

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

abraço

[Micheus]

Sim, tinha modificado!

Então. Por exemplo, quando você usa opção como mrOk e mrCancel e chama o form que o possui com ShowModal, ao clicar neste botão a janela será fechada.

[michel pael]

CLICK DE UM BUTTON

ShellExecute(Handle, nil, 'C:\temp2.htm', nil, nil, SW_SHOW);