然后让指定的外部程序调用自身

Question

本帖最后由 youlostme 于 2010-11-01 16:36:12 编辑

Answer 1

api函数shellexecute传递命令行参数给test.exe，test成序启动时，读取这个参数，不符合就over

Answer 2

main.exe中按鈕寫：
ShellExecute(0, 'Open','C:\test.exe','OK', nil, SW_SHOWNORMAL);test.exe Create事件寫:
if Paramstr(1)<>'OK' then
halt;

Answer 3

使用废弃的winexec更简单：main.exe中按鈕寫：
WinExec('C:\test.exe password=1234',...);test.exe dpr里寫:
begin
  if Paramstr(1)<>'password=1234' then
    exit;  这里才是原来的代码
end;