Ladeprogramm:
ShellExecute(Application.Handle, nil, 'Namedeshauptprogramms.exe', '***', GetCurrentDir, SW_SHOW);
Hauptprogramm
Delphi-Quellcode:
onFormCreate or im Projekt-Quelltext:
if not (ParamStr(1) = '***') then
Application.Terminate;
Wobei *** eine Art Passwort sein sollte, wenn möglich eine wirre Kombination aus Ziffer und Buchstaben, muss (per Copy & Paste
) in beiden Programmen gleich sein.
Gruß,
ManuMF