Abrir EXE somente atraves de outro EXE

Bom dia amigos

Desejo abrir determinado programa somente atraves de meu programa, ou seja, se eu tentar abrir direto não vai deixar.

achei essa dica que funciona super bem

Antes da linha "Application.Initialize;" de Prog1.dpr (programa a ser chamado), coloque o código abaixo:

if ParamStr(1) <> 'MinhaSenha' then begin
{ Para usar ShowMessage, coloque Dialogs no uses }

 ShowMessage('Execute este programa através de Prog2.EXE');
 Halt; { Finaliza }

end; { No Form1 de Prog2 (programa chamador) coloque um botão e escreva o OnClick deste botão como abaixo:}

procedure TForm1.Button1Click(Sender: TObject);
var
Erro: Word;
begin

 Erro := WinExec('Pro2.exe MinhaSenha', SW_SHOW);
 if Erro <= 31 then { Se ocorreu erro... }
 ShowMessage('Erro ao executar o programa.');
end;

atualmente uso o codigo abaixo, pq o comando winexec não se adapta as minhas necessidades

ShellExecute(0,nil, PChar(frmdm.tbconfiguracoesCaminho_exe_excluir.value) ,nil, nil, SW_SHOWNORMAL);
preciso adaptar o modo que uso no lugar do winexec. Tentei e não consegui, alguem pode me dar uma luz