Abrir um Executavel

[Pseudalopex 0]

Boa Tarde a todos.

 

Estou tentando abrir um Executavel a partir do meu aplicativo. Mas esse executavel que pretendo abrir não permite ser minimizado. Eu abro ele normalmente e fecho. Quando eu escondo ele some e nao volta mais. Quanto mando minimizar ele fecha.

 

Então como faço para abrir esse executável dentro de outro? Vou tentar explicar melhor. Eu abriria um segundo aplicativo que funcionaria como uma janela, e jogaria esse executavel dentro dessa janela. Ai poderia miniza-lo. Já vi isso funcionando. Queria saber se tem como fazer isso em delphi.

 

Não precisa ser desse modo, desde que eu consiga minimizar o executavel (que é um jogo) e restaura-lo. Ja tentei de várias maneiras e nao vai.

 

Esse comando que estou usando.

janela:=FindWindow(nil,'programa');ShowWindow(janela, SW_SHOWMiniMIZED);

O comando funciona, mas é o proprio executavel que nao roda em janela. Por isso pensei em tentar se for possível jogar ele dentro de um segundo aplicativo para que eu possa minimizar.

[marcio.theis 3]

Pequeno exemplo usando calculadora

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	janela: HWND;beginjanela:=FindWindow(nil,'Calculadora');Windows.SetParent(janela,self.Handle);Windows.SetWindowPos(janela,0,0,0,0,0,0);Windows.ShowWindow(janela,SW_MAXIMIZE);end;

[Pseudalopex 0]

Nao deu.O programa nao permite mesmo. Mas descobri como fazer.Tenho que inserir uma chave no registro. Mas nao sei como.Tem como me ajudar nisso?preciso incluir uma chave no registroreg.RootKey := HKEY_CURRENT_USER;"Software\OctaProg\Vetor\Config"criar a chave"Software\OctaProg\Vetor\Config\Mode"Mode como DWORD, valor=1E preciso tambem de uma linha de comando para ver como alterar de 1 para 0 mais tarde.Se puder ajudar com isso tambem agradeço muito.

[marcio.theis 3]

Veja este tópico, fala sobre...

[Pseudalopex 0]

Li, la.Mas nao mostra como criar uma chave.Antes de alterar a chave eu preciso criar, porque a chave que nao existe ainda.

[marcio.theis 3]

Mas, você precisa somente seguir a lógica e ver os comandos possíveis usando o Ctrl+espaço para lista os comandos:

 

reg.CreateKey()

Nem sempre se tem tudo pronto...

[Pseudalopex 0]

Mas la mostra como mecher com chaves do tipoREG_SZe eu preciso que seja REG_DWORDEu me bato ainda nas conversões.

[marcio.theis 3]

Como falei antes, basta dar um ctrl+espaço depois do reg. para listar todos os comando possíveis, pode tentar com o WriteBool() ou então WriteInteger()

[Pseudalopex 0]

Na verdade eu estou testando. Para ver se consigo fazer com que o executavel permita funcionar em janela.E esta embaralhando tudo.E não é para criar uma chave e sim colocar valores na que ja tem.Software\OctaProg\Vetor\Configna chave Config eu preciso colocar um Valor REG_DWORD com Valor igual a 1.Como tem o (Padrão) REG_SZ (Valor não definido)preciso de um assim:Mode REG_DWORD 0x00000001Tem como me ajudar?Não é por preguiça estou apanhando mesmo.

[marcio.theis 3]

Ela pode estar criada, não tem problema, é só dar um Write na informação que desejar, passa a chave e o valor que deseja...

[Pseudalopex 0]

deu certo.

 

reg.WriteInteger('mode',1);

não sabia que ja cria automatico o

eu estava tentando com o REG_DWORD

reg.WriteBinaryData();

Estava dando um mode de caca.

 

Agora ta OK.

Valeu pela ajuda ai.

[marcio.theis 3]

beleza, ele mesmo cria se não existir, se não me engano pode passar um parametro para ele nao criar se não existir, mas bom que funcionou...