Iniciar um programa junto com um aplicativo feito em Delphi
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!
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
Curtidas 0
Respostas
Joel Rodrigues
23/03/2012
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.
Boa sorte.
GOSTEI 0
Juliano Sk
23/03/2012
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!
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!
GOSTEI 0
Glauber Lima
23/03/2012
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;
obs: add essa uses: Shellapi
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0, Nil, caminho do arquivo com extenção, , Nil, SW_Show);
end;
GOSTEI 0
Juliano Sk
23/03/2012
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..
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..
GOSTEI 0
Bruno Leandro
23/03/2012
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
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
GOSTEI 0