Fórum Iniciar um programa junto com um aplicativo feito em Delphi #414494

23/03/2012

0

Olá amigos!

Quero saber como faço pra quando eu abrir um programa feito em Delphi, junto com ele abra o MSN por exemplo.


Alguem sabe como faço isso?

Obs: O programa que abrirá junto com o aplicativo em Delphi deve abrir apenas uma vez.


Desde já agradeço!
Juliano Sk

Juliano Sk

Responder

Posts

23/03/2012

Joel Rodrigues

Pesquise sobre as funções WinExec e ShellExecute, são utilizadas para chamar aplicativos externos. Você pode usá-las no momento em que desejar, ao iniciar a aplicação, no onShow de um form, etc.

Boa sorte.
Responder

Gostei + 0

24/03/2012

Juliano Sk

WinExec e ShellExecute

Amigo,

A funçao WinExec é para executar programas próprios do Windows, certo?
mas a funçao ShellExecute necessita de um Handle, porem, nao sei como utilizar...

Se puder me ajudar...

Obrigado!
Responder

Gostei + 0

26/03/2012

Glauber Lima

Coloque o seguinte codigo no Create do form.
obs: add essa uses: Shellapi

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, Nil, caminho do arquivo com extenção, , Nil, SW_Show);
end;
Responder

Gostei + 0

27/03/2012

Juliano Sk

Está dando um erro de tipo incompativeis, porem nao sei como resolver, pois nao estou conseguindo converter os tipos.

Segue o código..

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Mmo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0) )+memo.txt);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Mmo1.Lines.LoadFromFile(ExtractFilePath(ParamStr( 0))+memo.txt);
ShellExecute(0, Nil, C:\Program Files\Windows Live\Messenger\msnmsgr.exe, Nil, SW_Show);
end;

Sou meio iniciante ainda.. agradeço a ajuda..
Responder

Gostei + 0

27/03/2012

Bruno Leandro

tenta substituir

ShellExecute(0, Nil, C:\Program Files\Windows Live\Messenger\msnmsgr.exe, Nil, SW_Show);

por:

ShellExecute(0, Nil, PChar(C:\Program Files\Windows Live\Messenger\msnmsgr.exe), Nil, SW_Show);

ou seja converter para pchar o terceiro parametro
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar