ActiveDelphi

[ric_rio2]

Bom dia..
Fiz um projeto em que abro a calculadora dentro de um form..
Funciona tudo ok.. ate consigo posiciona-la no top e left do panel que eu quero.
Contudo ... sempre tem um contudo só funciona em windows 7..
Quando Rodo a aplicação em WIN10... a aplicação abre a calculadora mas
NÃO coloca dentro do panel..
Algum dos senhores sabe o motivo para tal comportamento?
Sei que é por causa do sistema operacional
Alguma ideia de como devo proceder para funcionar corretamente no WIN10???

[strak2012]

Poste o codigo de como estar a colocar a calculadora no panel.

Dependendo se tenha usado funções do tipo findwondow é provavel que seja pela classe da janela calculadora que deve ser diferente em ambos sistema win7 e win10 onde sabemos que o findwindow(classe da janela, titulo da janela).

voce resolve a questão executando a calculadora e pegando seu pid e trabalhando diretamente com ele.

para isso trablhar com conversão de pid para handle será nescessario.
_________________
Tudo podemos quando tudo sabemos!

[ric_rio2]

Bom dia strak2012
Cara.. Entendi o que tu falou..
Estava fazendo os acertos aqui para testar..mas me pediram para dar atenção a outra parada..
Assim que testar posto como ficou..
Já Pego o pID ... tanto para win7 e para win10
Já chamo o programa (calculadora)
Ao Fechar o FORM já MATO o processo pID.

Agora falta testar o shellexecute chamando uma aplicação delphi com parametros..
comecei assim ..:
Lista:= ' 0 GIF 12 12';
ShellExecute(0, 'open' , PWideChar(ED_Caminho_AguardeVCL.Text), PwideChar(Lista), nil, 0);
Como falei.. Assim que terminar a demanda aqui, acabo de testar essa parada da CALCULADORA e posto aqui completo
Obrigado pela atenção

[ric_rio2]

Boa tarde a todos..
Segue abaixo o codigo quase perfeito..
Ainda não consigo colocar o programa CHAMADO dentro do panel1.
Função que acha e retorna o Pid..:

[marcieldeg]

Provavelmente o erro está nessa linha:

[marcieldeg]

De qualquer forma, tem muitos pontos falhos nesse código.

Acha_Processo() retorna o Handle do processo, e não da janela. São coisas totalmente diferentes. Você fez metade do caminho rs...

Abrir o processo com ShellExecute e depois buscar todos os processos abertos também pode ser uma fria... se o processo já estiver aberto em background ele vai ser capturado de forma errada. Use CreateProcess() que retorna o PID e o Handle do processo que você criou, sem erros.

Você pode iniciar uma aplicação mas, no momento que tentar recuperar sua janela, a mesma ainda não foi criada. Antes de usar SetParent(), você precisa testar se a janela já está visível com o método IsWindowVisible().

Enfim, nesse tópico tem umas dicas legais: http://www.activedelphi.com.br/forum/viewtopic.php?t=75148&sid=83c0074c966c3bc3679f988097fc06be
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!"

[strak2012]

o codigo é mais ou menos este aqui:

[ric_rio2]

Boa Tarde marcieldeg e strak2012
Muito obrigado pela atenção
Vamos la..

marcieldeg O que postei em
"hwnd:= Acha_Processo(ExtractFileName('ED_Caminho_AguardeVCL.Text'));"

Era só erro de digitação aqui.. o código estava sem o plick simples..
Grande observação mesmo assim

Como o Strak2012 demonstrou sabiamente no exemplo com as opções
// hProcess: THandle; handle da aplicação
// hThread: THandle; handle da thread principal da aplicação
// dwProcessId: DWORD; pid (id da aplicação) da aplicação
// dwThreadId: DWORD; tid (id da thread) da aplicação

Eu já tinha tentado retorna o Handle do processo, a janela, o pid.... Retornar eu ate retorno.. mas não funciona o
Windows.SetParent( hwnd,panel1.handle )
Mesmo no seu exemplo Strak2012 não COLA o programa CHAMADO no programa CHAMADOR...


Como fiz funcionar..
var
text : RawByteString;
begin
Text:= ED_Caminho_AguardeVCL.text;
WinExec(pansiChar(text),SW_NORMAL);// se Colocar direto pAnsiChar( ED_Caminho_AguardeVCL.text) NÃO FUNCIONA
Windows.SetParent( FindWindow( nil, 'NOME_X' ),panel1.handle ) ;

Onde NOME_X é ..:
No Windows 7 no gerenciador de tarefas -> Aplicativos o NOME QUE APARECE NELE do aplicativo CHAMADO

No Windows 10 - > Gerenciador de Tarefas -> Processos -> Aplicativos -> Seleciona o aplicativo e coloca a seta para baixo -> o Nome que aparecer


bom..
Funcionou..

Espero que sirva para alguem essa informação
Abraço a todos

[strak2012]

WinExec(pansiChar(text),SW_NORMAL);// se Colocar direto pAnsiChar( ED_Caminho_AguardeVCL.text) NÃO FUNCIONA

para funcionar precisar fazer mais um cast para ansistring tipo:
WinExec(pansiChar(ansistring(ED_Caminho_AguardeVCL.text)),SW_NORMAL);// assim ja funciona

Mas isso é variante de acordo com a versão do delphi

em delphi 6 esta linha seria:
WinExec(pchar(ED_Caminho_AguardeVCL.text),SW_NORMAL);

nas versões de delphi com suporte a unidecode ficou:
WinExec(pansiChar(ansistring(ED_Caminho_AguardeVCL.text)),SW_NORMAL);
_________________
Tudo podemos quando tudo sabemos!

[ric_rio2]

Bom dia strak2012.. tudo certinho??
De fato então o problema era esse desde o começo.. a versão do delphi...
No Delphi 7 Funciona de boa o Winexec(pChar(variavelstring),sw_normal)

Enquanto no Delphi CE não.. e também não tinha feito a conversão como tu demonstrou agora.. e que funciona PERFEITAMENTE

Valeu mesmo pela atenção..
Abraços