我现在有Project1.exe、Project2.exe两个程序
Project1.exe里有这样的调用:
WinExec('Project2.exe kkk',SW_SHOWDEFAULT);
其中传递了'kkk'参参数给Project2.exe请问Project2.exe怎么得到这个参数值
Project1.exe里有这样的调用:
WinExec('Project2.exe kkk',SW_SHOWDEFAULT);
其中传递了'kkk'参参数给Project2.exe请问Project2.exe怎么得到这个参数值
解决方案 »
- delphi 怎么 将 jpg 转换成png 然后显示出来
- 滴答表格控件:自定义报表,公式,超级编辑框,表行树
- 16进制字符串转化成10进制数的问题
- query出现问题
- 请问如何实现 delphi6 自带的 quickreport 将打印的每一页转成 BITMAP 图型格式 ??????
- 在用Quickreport控件打印报表时,如何控制当报表打印完成后打印机不向前走纸
- 谁帮我写一下随机数抽奖的一个程序
- 关于用DELPHI和WORD进行文档管理的设想?
- 湖南的delphi爱好者请进:)
- 一个事件连续触发问题?
- 不能调用三层中间层服务器的过程、函数的问题?????
- 关于WMNChitTest的问题!???
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('ok');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec('D:\Documents and Settings\zhang\桌面\带参数的程序运行\2\Project1.exe abcdefg aaaaa',SW_SHOWNORMAL);
end;end.
program Project2;uses
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
Application.Initialize;
Application.Initialize;
if ParamStr(1) = 'abcdefg' then
begin
Application.CreateForm(TForm1, Form1);
Form1.Caption := ParamStr(1) + ParamStr(2);
Application.Run;
end
else
Application.Terminate;
end.
不好意思,刚才打开时没看到后面的