Incluir um programa dentro de outro
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?
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
Curtidas 0
Respostas
Sabado
03/11/2005
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
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
GOSTEI 0