如何制作一个带参数启动的程序？就像调用过程那样。在线等待(300分)

默认的Delphi制作的程序，模块都是集中在一个.exe程序中的，这样会造成这个.exe文件很大，我现在想把每一个模块都作成一个独立的exe程序，这就出现了参数传递的问题，比如在登录程序a.exe中用户输入信息后启动主程序界面b.exe，这时就需要将登录者的用户名传递给主程序b.exe，然后再根据这个用户的权限显示出不同的菜单。问题就是如果将在a.exe中输入的用户信息传递到b.exe呢？希望高手能在百忙中抽出点时间帮我这个新手解决一下这个小问题呢？

ParamStr

我也是采用楼上的方法实现EXE之间的调用及参数传递的，方法只有一个，就是命令行参数。
大致思路如：
定义一个记录类型如：
Type
TUserInfo = record
UserCode: string[3];
//用户代码
UserName: string[10];
//用户中文名字
UserSet: String[5];
//用户自定义界面语句
Logged:Boolean;
//是否已登录
注意字符一定要指定长度，不能用 userCode:String这种不定长的串，也不要用packed Record类型
将记录类型在主界面赋值好后，然后转换成二进制流，再将二进制流转换成十六进制字符。
var tpSend:TUserInfo;
tmp:String;
tpSend.
UserCode:=UserLogin.UserCode;
tpSend.
UserName:=UserLogin.UserName;
tpSend.
Logged:=UserLogin.Logged;
//第1位:语言版本0,1 第2位: CharCase 0 小写 1,正常 2大写 第3位:自动选中 0不选 1选中
//第4位:AutoDrop 0 False, 1 True 第5位 Grid AutoEdit 0 False, 1 True
tpSend.
UserSet:='00000';
tpSend.
UserSet[1]:= Trim(IntToStr(Ord(utLanguage)))[1];
//语言版本
tpSend.
UserSet[2]:= Trim(IntToStr(Ord(utCharCase)))[1];
//大小写状态
if utAutoSelect then
tpSend.
UserSet[3]:='1';
if utAutoDrop then
tpSend.
UserSet[4]:='1';
if utGridEditor then
tpSend.
UserSet[5]:='1';
sentStream:=Tmemorystream.Create;
try
TmpLen:=sizeof(tpSend);
sentStream.Write(Tmplen,sizeof(integer));
sentstream.Write(tpSend,Tmplen);
sentstream.Seek(0,0);
SetLength(tmp,SentStream.Size * 2);
BinToHex(PChar(Integer(SentStream.Memory)), PChar(Tmp),SentStream.Size);
//此时记录已转换成十六进制流保存到了　TMP字符串中。
//此处可以能TMP字符串进一步进行压缩或者加密操作，以防止信息被盗用。
finally
sentStream.Free;
end;

然后在主程序中以 'abc.exe '+ tmp　的形式调用子EXE文件，
在子EXE 主窗体的 create 事件中，进行如下操作
DeCodeParam(ParamCount,Paramstr(1),SysLogin);
函数内容如下：
Procedure DeCodeParam(ParaCount:Integer;
Parastr:String;
Var sbSys:TUserInfo);
var
TmpRcvd:String;
Rcvd:TMemoryStream;
tmpLen:integer;
begin
Application.Initialize;
//读主调用系统传递过来的参数
if ParaCount=0 then
begin
ShowMessage('不能直接启动子模块,请通过主界面调用');
Halt;
end;
TmpRcvd:=parastr;
//对收到的参命令行参数串进行解密操作。
rcvd:=tmemorystream.Create;
try
Rcvd.SetSize(Length(tmpRcvd) div 2);
HexToBin(PChar(TmpRcvd),PChar(Integer(Rcvd.Memory)),Length(tmpRcvd) div 2);
rcvd.Read(tmplen,sizeof(integer));
if Tmplen<>sizeof(sbSys) then
begin
ShowMessage('传递的参数有误');
Rcvd.Free;
Halt;
end;
rcvd.Read(sbSys,Tmplen);
finally
Rcvd.Free;
end;
end;

至此，主界面中的记录类型就完整的被传递到了子EXE中。这种方式对付一般用户是可以的，对付想要破解的人，当然安全性不是很好。但软件本身就没有绝对的安全可言，要看你的应用要求了。

对了，关于安全性方面，再提几个建议：
1、记录结构：记录结构中的数据类型，要采用定长的数据类型，变长的类型会导致读不出正确的信息。然而记录的结构，直接关系到流能否正确还原成记录，所以对确解有很重要的作用。
2、对生成的串进行加密，原因不多说了
3、在串中添加时效性，逾期的串传递到子EXE时，不能正常启动。原因很简单，如果不这样，只要截获加密后的字符串，用命令行加字符串方式就可以启动了。设定时效后（比如3秒后就失效，时间足够了），那么等截获再用就没用了。
4、在子EXE中进行二次鉴权
5、通过生成调用记录，权限控制等保证安全，以便第一时间发现系统异常入侵。
通过上述几个步骤后，一般防防就可以了，真有高手，那也没办法了。
最后，提醒一句，不要弄得太复杂，导致命令行参数超长，无法正常接收哦！

ShellExecute使用详解(DELPHI版)作者:webfly 日期:2006-08-292007-12-22 17:55ShellExecute使用详解(DELPHI版)
作者:webfly 日期:2006-08-29
字体大小: 小 中 大 有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。
1.CreateProcess因为使用复杂，比较少用。
2.WinExec主要运行EXE文件。如：WinExec(’Notepad.exe Readme.txt’, SW_SHOW);
3.ShellExecute不仅可以运行EXE文件，也可以运行已经关联的文件。
首先必须引用shellapi.pas单元：uses ShellAPI;
1).标准用法
　　ShellExecute函数原型及参数含义如下：
　　function ShellExecute(hWnd: HWND;
Operation, FileName, Parameters,Directory: PChar;
ShowCmd: Integer): HINST;
stdcall;
　　●hWnd：用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。例如，可以将其设置为应用程序主窗口
句柄，即Application.Handle，也可以将其设置为桌面窗口句柄（用GetDesktopWindow函数获得）。
　　●Operation：用于指定要进行的操作。其中“open”操作表示执行由FileName参数指定的程序，或打开由FileName参数指定的文件或文件
夹；“print”操作表示打印由FileName参数指定的文件；“explore”操作表示浏览由FileName参数指定的文件夹。当参数设为nil时，表示执
行默认操作“open”。
　　●FileName：用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。
　　●Parameters：若FileName参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为nil或PChar(0)。
　　●Directory：用于指定默认目录。
　　●ShowCmd：若FileName参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为0。
　　若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。
　　上述仅仅是ShellExecute函数的标准用法，下面将介绍它的特殊用法。
2).特殊用法
　　如果将FileName参数设置为“http:”协议格式，那么该函数将打开默认浏览器并链接到指定的URL地址。若用户机器中安装了多个浏览器
，则该函数将根据Windows 9x/NT注册表中http协议处理程序（Protocols Handler）的设置确定启动哪个浏览器。
　　格式一：http://网站域名。
　 如：ShellExecute(handle, ‘open’, http://www.neu.edu.cn’, nil, nil, SW_SHOWNORMAL);
　　格式二：http://网站域名/网页文件名。
　　如：ShellExecute(handle, ‘open’, http://www.neu.edu.cn/default.htm’,nil,nil,SW_SHOWNORMAL);
　　如果将FileName参数设置为“mailto:”协议格式，那么该函数将启动默认邮件客户程序，如Microsoft Outlook（也包括Microsoft
Outlook Express）或Netscape Messanger。若用户机器中安装了多个邮件客户程序，则该函数将根据Windows 9x/NT注册表中mailto协议处理
程序的设置确定启动哪个邮件客户程序。
　　格式一：mailto:
　　如：ShellExecute(handle,‘open’, ‘mailto:’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口。
　　格式二：mailto:用户账号@邮件服务器地址
　　如：ShellExecute(handle, ‘open’,‘ mailto:who@mail.neu.edu.cn’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收
件人地址。若指定多个收件人地址，则收件人地址之间必须用分号或逗号分隔开（下同）。
　　格式三：mailto:用户账号@邮件服务器地址?subject=邮件主题＆body=邮件正文
　　如：ShellExecute(handle, ‘open’, ‘ mailto:who@mail.neu.edu.cn？subject=Hello＆Body=This is a test’, nil, nil,
SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本，则必须在每行文本之间加入换行
转义字符％0a。
例子(Delphi):
在一个应用程序调用c:/Project1.exe;
ShellExecute(handle, ’open’,’c:/Project1.exe’,’字串内容’,nil, SW_SHOWNORMAL);
在Project1.exe里可以调用:
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin

for i:=1 to paramcountdo

if ParamStr(i)<>’’ then

showmessage(ParamStr(i));
end;

最后的那个参数，为窗口指定可视性方面的一个命令。请用下述任何一个常数:
SW_HIDE 隐藏窗口，活动状态给令一个窗口
SW_MINIMIZE 最小化窗口，活动状态给令一个窗口
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态
SW_SHOWMAXIMIZED 最大化窗口，并将其激活
SW_SHOWMINIMIZED 最小化窗口，并将其激活
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口
SW_SHOWNORMAL 与SW_RESTORE相同
重点是那个例子。很简单初级的调用

楼上的ParamStr方法可行。
--------------------------------
默认的Delphi制作的程序，模块都是集中在一个.exe程序中的，这样会造成这个.exe文件很大，我现在想把每一个模块都作成一个独立的exe程序
建议：其实既然要模块化，不如干脆做成dll或bpl，这样直接调用就行了，不一定非要做成exe再传递参数之类的。

多人接受答案了。