Fórum Janelas Estilo MSN #291738
14/08/2005
0
Holla caros colegas...
Gostaria de saber se a alguma forma de criar janelas indepedentes do form principal, estilo janelas do Msn Messenger.
Quando o FORM PRINCIPAL for minimizado, as janelas criadas por ele permanece abertas na tela do usuário sem serem minimizadas. E quando essas janelas criadas pelo FORM PRINCIPAL forem minimizadas elas vão para a barra de tarefa como se fosse uma aplicação.
Resumindo, gostaria de trabalhar com as janelas da minha aplicação igual as janelas do Msn Messenger.
Obrigado,
T +.
Antônio.
Gostaria de saber se a alguma forma de criar janelas indepedentes do form principal, estilo janelas do Msn Messenger.
Quando o FORM PRINCIPAL for minimizado, as janelas criadas por ele permanece abertas na tela do usuário sem serem minimizadas. E quando essas janelas criadas pelo FORM PRINCIPAL forem minimizadas elas vão para a barra de tarefa como se fosse uma aplicação.
Resumindo, gostaria de trabalhar com as janelas da minha aplicação igual as janelas do Msn Messenger.
Obrigado,
T +.
Antônio.
Janbaceiredo
Curtir tópico
+ 0
Responder
Posts
15/08/2005
Janbaceiredo
:idea: :idea: Bom, dei uma pesquisa sobre passagem de parametro e consegui resolver o problema da seguinte forma:
1º WinExec
[b:4f32ed2fe8]WinExec(´Project2.exe ´ParametroDesejado´´, SW_HIDE);[/b:4f32ed2fe8]
[b:4f32ed2fe8]2º ShellExecute (É necessario declarar ShellApi na clausula Uses)[/b:4f32ed2fe8]
ShellExecute(0, nil, ´Project2.exe´, ´ParametroDesejado´, nil, SW_HIDE);
Sendo que pelo WinExec posso passar mais de 1 parametro o que não ocorre com o ShellExecute.
Só que nesse momento surgiu uma nova duvida.
Como posso enviar parametro para essas janelas(EXE) depois que elas foram criadas pelo pelos comandos acima :?: :?: :?:
Para localizar as janelas(EXE) que foram criadas pelo comando acima, estou usando essa procedimento:
procedure LocalizaJanela(aNome: String);
var
Win: THandle;
begin
Win:= FindWindow(nil, aNome);
if Win <> 0 then
ShowMessage(´Janela(EXE) Localizada´
else
ShowMessage(´Janela(EXE) não Localizada´);
end;
Sendo assim, como posso mandar uma cadeia de caracter para uma determinada Janela(EXE) [b:4f32ed2fe8][i:4f32ed2fe8]depois que ela foi criada pelos comandos WinExec ou ShellExecte :?: :?: :?: [/i:4f32ed2fe8][/b:4f32ed2fe8]
Obrigado,
T+
Antônio.
1º WinExec
[b:4f32ed2fe8]WinExec(´Project2.exe ´ParametroDesejado´´, SW_HIDE);[/b:4f32ed2fe8]
[b:4f32ed2fe8]2º ShellExecute (É necessario declarar ShellApi na clausula Uses)[/b:4f32ed2fe8]
ShellExecute(0, nil, ´Project2.exe´, ´ParametroDesejado´, nil, SW_HIDE);
Sendo que pelo WinExec posso passar mais de 1 parametro o que não ocorre com o ShellExecute.
Só que nesse momento surgiu uma nova duvida.
Como posso enviar parametro para essas janelas(EXE) depois que elas foram criadas pelo pelos comandos acima :?: :?: :?:
Para localizar as janelas(EXE) que foram criadas pelo comando acima, estou usando essa procedimento:
procedure LocalizaJanela(aNome: String);
var
Win: THandle;
begin
Win:= FindWindow(nil, aNome);
if Win <> 0 then
ShowMessage(´Janela(EXE) Localizada´
else
ShowMessage(´Janela(EXE) não Localizada´);
end;
Sendo assim, como posso mandar uma cadeia de caracter para uma determinada Janela(EXE) [b:4f32ed2fe8][i:4f32ed2fe8]depois que ela foi criada pelos comandos WinExec ou ShellExecte :?: :?: :?: [/i:4f32ed2fe8][/b:4f32ed2fe8]
Obrigado,
T+
Antônio.
Responder
Gostei + 0
15/08/2005
Janbaceiredo
Alguem tem alguma ideia de como resolver esse problema???
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)