现在有一个delphi程序,这个程序每次开机自动运行.问题:我要让这个每次开机自动运行的delphi程序,去执行win xp的程序.
说白了,就是我想让这个delphi程序去执行winxp自带的拨号程序..
让他是打开拨号程序,并完成拨号的动作.即实现开机自动拨号的功能!
说白了,就是我想让这个delphi程序去执行winxp自带的拨号程序..
让他是打开拨号程序,并完成拨号的动作.即实现开机自动拨号的功能!
调试欢乐多
如果成功,返回值大于31。否则可能返回下列结果: 0 系统内存或资源不足 ERROR_BAD_FORMAT 该*.EXE文件无效 ERROR_FILE_NOT_FOUND 没找到指定的文件 ERROR_PATH_NOT_FOUND 没找到指定路径 ⑵ 通过编写标题为“启动外部应用程序”组件的OnClick事件,来实现外部应用程序的启动,代码如下:procedure TForm1.Button1Click(Sender: TObject);varstr: string; file://存储指定的应用程序文件名beginif opendialog1.Execute then file://选择要调用的外部可执行程序beginstr := opendialog1.FileName; file://获取可执行文件名winexec(PChar(str), SW_SHOWNORMAL); file://启动指定的可执行程序end;end;
3. 关闭已开启的外部应用程序 ⑴ 通过调用两个API函数,可以实现该功能。这两个函数分别为: ① FindWindow函数 该函数用于查找与指定的类名和窗口名相匹配的高层窗口,如果查找成功,返回非0值,否则返回0。 ② SendMessage函数 此函数向一个或多个窗口发送指定的消息。在此通过发送WM_CLOSE消息来关闭指定的外部应用程序。 ⑵ 通过编写标题为“关闭已开启的外部应用程序”组件的OnClick事件,来关闭已开启的外部应用程序。代码如下:procedure TForm1.Button2Click(Sender: TObject);varhWndClose: HWnd; file://存储指定的外部应用程序窗口句柄str: String; file://存储指定的外部应用程序的窗口名beginstr := InputBox('提示','请输入应用程序名:',''); file://获取要关闭的应用程序窗口名if str <> '' then beginfile://根据窗口名查找要关闭的窗口句柄hWndClose := FindWindow(nil, PChar(str));if hWndClose <> 0 then file://如果查找成功,则发送消息,关闭指定的窗口SendMessage(hWndClose,WM_CLOSE,0,0);else file://否则,给出提示信息ShowMessage('没找到指定的应用程序,所以无法关闭!');end;end;
"file:"在过程中是作什么用的??
以前没这样用过。
谢谢!
这两个有什么区别?
而shellexecute可以是普通文件,比如shellexeute调用test.xls,wimdows会自己调用Excel打开它。