如何让应用程序本身不能双击运行,但是可以通过其他程序调用运行
delphi吧
全部回复
仅看楼主
level 1
x1988426 楼主
如题
2016年09月05日 07点09分 1
level 2
发消息
2016年09月06日 06点09分 2
level 2
//应用程序本身,当双击运行程序时判断是否有传值参数,如果没有则退出程序
if ParamCount=0 then
Begin
Showmessage('非法启动更新程序.');
Self.Close;
Exit;
End;
//其他程序执行应用程序
winexec(PAnsiChar(AnsiString('应用程序路径'+‘ ’+‘参数1’+‘ ’+‘参数2’));
winexec(PAnsiChar(AnsiString('D:\A.EXE 参数1 参数2');
执行上术语句
执行A.EXE并传递参数。而ParamCount是获取参数的个数
ParamStr(ParamCount)获取参数的数据
2016年09月06日 06点09分 3
吧务
level 14
dll
2016年09月06日 06点09分 4
1