如果做一个带参数运行的可执行文件 比如程序a.exe 可以带参数执行,比如参数是一副bmp图的文件路径,可以在程序b.exe中调用带参数的程序a,如果做啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ParamCount 参数个数ParamStr(i) 第i个参数 paramstr(i)可以取到启动参数 发错了,不好意思!!以下才是正文:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var sFileName: String;begin sFileName := ParamStr(1); if FileExists(sFileName) then Image1.Picture.LoadFromFile(sFileName);end;end.你在开始菜单的运行试一下就可以看到结果了;例如:a.exe c:=\1.bmp 在安卓设备上截屏,获取了原始图像数据,如何转成bmp 又遇到问题啦 midas是中间件吗? 如何定义程序热键,非系统热键 怎样用DELPHI加密文件??怎样禁止删除文件夹(用delphi实现)????? 哪有PLC的相关资料或书籍(印刷版,电子版都行)300分相送 OLE的含义是什么?(我是初学者,不要见笑) 请问哪里有好的制作安装的软件下载! 关于delphi的安全登录问题(高手请进) ■ 极难的问题********************************* varchar的存储问题 谁用过 CurrencyEdit 值如何给???
ParamStr(i) 第i个参数
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
sFileName: String;
begin
sFileName := ParamStr(1);
if FileExists(sFileName) then Image1.Picture.LoadFromFile(sFileName);
end;end.你在开始菜单的运行试一下就可以看到结果了;
例如:a.exe c:=\1.bmp