Incluir um programa dentro de outro

03/11/2005

Senhores, vejam a situação que me deparei:

Gostaria de restringir o uso de um programa. O problema todo é que não tenho mais o código-fonte para implementar uma função para isso. Só o
executável (ele não tem dlls ou outros arquivos). Haveria um jeito de eu escrever um novo programa, implementar a função de controle de acesso e compilá-lo junto com esse programa tornando assim um unico executável? A idéia é essa. Poderiam me ajudar?


Bombril

Respostas

15/11/2005

Sabado

Inclua nba seção uses: windows
Antes da linha APPLICATION INITIALIZE do programa 1 (programa a ser chamado), coloque o código abaixo:
If paramStr(1)<>’Minha Senha’ then begin
//para usar showmessage, coloque dialogs no uses
Showmessage(‘Execute este programa através do programa 2’);
Halt;
End;

No form1 do programa 2 (programa chamador), coloque um botão e escreva no evento onclick, conforme as linhas abaixo:

Var
Erro: Word;
Begin
Erro:= winexec(‘programa2.exe Minha Senha’,SW_SHOW);
If erro <= 31 then
Showmessage(‘erro ao executar o programa.’);
End;

OBS:
Aqui o parâmetro passado foi minha senha. Você deverá trocar Minha Senha por algo que apenas você saiba


Responder Citar