调用外部exe程序的DEMO(wince测试通过)

猫工 · 发表于 2009-6-18 17:27:20

lazarus调用外部exe程序的方法和delphi原有的Shellexecute,Winexec方式不一样。
为了方便大家学习，写了一个DEMO，已经传上，在附件中

add by bugxiong 20090619
--------------------------------------------------------------------------------
早上谦卑同学告之，我给出的方法在wince下实现不了。看来此方法只能在win/linux下使用
随即又让我找到一更好的方法，并由谦卑测试通过，OK，成功，wince开发板下测试通过。

请下载
--------------------------------------------------------------------------------
end by

iamyg · 发表于 2009-6-18 17:28:57

^_^,我就是传说中的恶魔天使
我要看~~~
哈哈

hdj2013 · 发表于 2009-6-18 17:30:19

下载啊.学习一下啊

ljklxlj · 发表于 2009-6-18 17:34:16

下载啊.学习一下啊

damcool · 发表于 2009-6-18 17:48:29

估计有个地方需要修改！

damcool · 发表于 2009-6-18 17:57:20

呵呵，比我想象的代码要差。
Lazarus为了兼容多平台，建议用TProcess来启动程序。在那些启动后不管的程序，可以这样，但是对于某些文件的打开就有问题了。比如启动word文档什么的。还有一点很奇怪，如果用WaitForSingleObject来实现RUNWAIT功能是要注意不能用INFINITY参数，而是应该用一小段时间加Application.ProcessMessage的循环来实现。否则会出现有些程序无法启动，同时导致原来的程序僵死。
下面是我的一段用于WINCE的RUNWAIT代码，分享一下，其中的ShellExecute可以用CreateProcess代替

function RunWait(FileName: WideString): boolean;
var
info: SHELLEXECUTEINFO;
ret: DWORD;
begin
FillChar(info, SizeOf(info), 0);
info.cbSize := SizeOf(info);
info.lpFile := PWideChar(FileName);
info.lpVerb := nil;
info.fMask := $440;
//SEE_MASK_NOCLOSEPROCESS($00000040)|SEE_MASK_FLAG_NO_UI($00000400);
info.dwHotKey := 0;
info.hIcon := 0;
info.hInstApp := 0;
info.hkeyClass := 0;
info.hProcess := 0;
info.hwnd := 0;
info.lpClass := nil;
info.lpDirectory := nil;
info.lpIDList := nil;
info.lpParameters := '';
info.nShow := SW_SHOW;
ShellExecuteEx(@info);
if info.hProcess < 32
then Exit(False);
Application.ProcessMessages;
repeat
ret := WaitForSingleObject(info.hProcess, 500);
Application.ProcessMessages;
until ret <> WAIT_TIMEOUT;
Exit(True);
end;

复制代码

hdj2013 · 发表于 2009-6-19 08:45:12

我在开发版上测试是不可以打开其它程序的.???WINCE

damcool · 发表于 2009-6-19 08:59:53

引用第6楼hdj2013于2009-06-19 08:45发表的 :
我在开发版上测试是不可以打开其它程序的.???WINCE

要特别注意的是WINCE是UNICODE支持的系统，但Lazarus内部函数都是支持ANSI，文件名要转换一下，特别是有汉字的时候。

猫工 · 发表于 2009-6-19 11:03:16

早上谦卑同学告之，我给出的方法在wince下实现不了。看来此方法只能在win/linux下使用
随即又让我找到一更好的方法，并由谦卑测试通过，OK，成功，wince下测试通过。

猫工 · 发表于 2009-6-19 11:06:39

应该是开发板下测试通过

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

调用外部exe程序的DEMO(wince测试通过)

本帖子中包含更多资源

浏览过的版块