delphi 制作带命令参数的程序

Posted 2023-04-30

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

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

答出者另加分酬谢！

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.

参考技术A 其实楼主的两个问题都可以用这两个api完成！ParamStr和ParamCount；为程序增加知道参数就可以了，没什么难的，百度一下很多实例！ 参考技术B 1、接收命令行参数那边，用ParamStr()函数取命令参数(命令行的个数 ParamCount)。
2、可以通过命令行参数控制。简单的，就是如果没有命令行参数（ParamCount），则自己立马终止追问

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

delphi7制作带窗体的DLL

本人刚学不久，怎么写带窗体的DLL，启动D7默认是创建form1，新建DLL时form就退出了，应该怎么做？
动态调用DLL内的函数，过程，类，应该怎么做？函数等等放在DLL的哪儿？form要怎么声明，在哪儿声明。
望高手帮忙，谢谢！最好能写个能通过的代码+注释。谢谢
整篇复制的省省吧

参考技术A 在DLL 中，除了放置标准的函数和过程以外，也可以放置已经做好的的delphi窗体，也可以把做好的窗体供其它程序使用，方法是：

1）首先按普通方法制作窗体，不过在interface区域，对接口函数做如下声明

function Createform(capt:string):string;stdcall;

2）在implementation下加入接口函数

function Createform(capt:string):string;stdcall;

var Form1: TForm1;
begin
form1:=Tform1.Create(application);
form1.show;
form1.caption:=capt;

end;

3）制作DLL 动态连接库，但要声明：
uses
unit1 in ’unit1.pas’;
exports

写入接口标示符

Createform name ’Myform’;

4）调用窗体的程序按普通方法制作，但是 在implementation下首先声明要调用的DLL函数 ,

const :
gdi32=’myFormdll.dll’;
function Createform(capt:string):string;stdcall;external gdi32 name ’Myform’;

procedure TForm3.Button1Click(Sender: TObject);
var n,m:string;
begin
m:=’我的窗体’;
Createform(m);var n,m:string;
end;本回答被提问者采纳