Question

delphi 制作带命令参数的程序

1、用delphi如何制作带命令参数的程序，比如：制作一个名为run.exe,正常运行是显示窗口，如果要让其以隐藏窗口的方式运行则加-h，要如何实现呢？

2、怎样让一个程序只被允许某个程序来运行，比如a.exe只能通过b.exe来运行，用手动双击a.exe则无法运行。

答出者另加分酬谢！

Answer 1

1、修改工程文件(run.dpr)的主程序(begin和end之间)，自动生成的代码一般是如下样子：
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
修改为如下：
begin
Application.Initialize;
if ( ParamCount > 0 ) and SameText( ParamStr(1), '-h' ) then
begin
// 自行加入实现无窗口的处理逻辑
Application.Terminate;
end
else
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

2、两个程序之间约定一个秘密的命令行参数，或者一个秘密的共享内存，在a运行时，检查命令行参数是否如意，如意则继续，否则结束，或者打开约定命令的共享内存，成功则继续，失败则结束。如果采用后者，则b.exe执行起来后，在加载a.exe之前，需要创建共享内存；若为前者，则加载a.exe时，传以约定的命令行参数。

追问

你的代码我修改了下，可以使用。
如果能提供第2个问题的代码例子，我将另加50分酬谢。

追答

三个文件，如下：
1、uDefs.pas 定义约定的秘密命令行参数
unit uDefs;

interface

const
C_sExpectedArgument : string = 'abcdefgh';

implementation

end.

2、a.dpr
program a;

{$APPTYPE CONSOLE}

uses SysUtils, uDefs;

begin
if ParamCount = 0 then
Exit;
if not SameText( ParamStr(1), C_sExpectedArgument ) then
Exit;
Writeln( 'OK' );
end.

3、b.dpr
program b;

{$APPTYPE CONSOLE}

uses Windows, SysUtils, uDefs;

const
C_sToBeRun : string = 'a.exe';

var
acBuffer : array[ 0..MAX_PATH ] of Char;

const
C_rSI : TStartupInfo = (
cb : SizeOf( TStartupInfo );
lpReserved : nil;
lpDesktop : nil;
lpTitle : nil;
dwX : 0;
dwY : 0;
dwXSize : 0;
dwYSize : 0;
dwXCountChars : 0;
dwYCountChars : 0;
dwFillAttribute : 0;
dwFlags : 0;
wShowWindow : 0;
cbReserved2 : 0;
lpReserved2 : nil;
hStdInput : 0;
hStdOutput : 0;
hStdError : 0
);

var
rPI : TProcessInformation;

begin
Writeln( Format( 'Before execute %s', [ C_sToBeRun ] ) );
// 加载a.exe时，传递约定的秘密参数
StrPCopy( acBuffer, C_sToBeRun + ' ' + C_sExpectedArgument );
if CreateProcess(
nil,
acBuffer,
nil,
nil,
True,
0,
nil,
nil,
C_rSI,
rPI
) then
begin
// 等待被加载的程序结束
WaitForSingleObject( rPI.hProcess, INFINITE );
Writeln( Format( 'After execute %s', [ C_sToBeRun ] ) );
end
else
Writeln( Format( '%s not executed.', [ C_sToBeRun ] ) );
end.

Answer 2

其实楼主的两个问题都可以用这两个api完成！ParamStr和ParamCount；为程序增加知道参数就可以了，没什么难的，百度一下很多实例！

Answer 3

1、接收命令行参数那边，用ParamStr()函数取命令参数(命令行的个数 ParamCount)。
2、可以通过命令行参数控制。简单的，就是如果没有命令行参数（ParamCount），则自己立马终止

追问

能否详细点或给个代码例子？