delphi如何判断程序是外部启动还是内部启动

[w000111]

我写了一段独立代码，不想让它给用户双击直接启动，只能由另外的程序调用启动，如何做到？刚学delphi两个星期不要见笑啊。

[风之谷]

百度 或者谷歌

[不若人生一场醉]

[Quote=引用 1 楼 jiap1723 的回复:]
加入运行参数


如果运行参数为1 则为双击

为2 则为其他程序启动
[/Quote]
+1

[风之谷]

加入运行参数


如果运行参数为1 则为双击

为2 则为其他程序启动

[w000111]

具体怎样操作啊，刚刚起步

[yinweixian]

运行之前看一下传入的参数ParamStr，两个程序自己定义传的参数是什么，判断正确就运行，不正确就退出

[-失魂落魄-]

在工程.dpr加上这段代码

if Length(ParamStr(1)) > 0 then   //运行时带参数
    if (CompareText(Paramstr(1),'/k')<>0) then   //参数不是/k
      Halt(0);

..............
Application.Initialize;
..............

[xisiyong]

ParamStr就是外部传给这个exe的参数。可以通过有没有传入参数来判断是不是外部调用的。