各位大哥哥,请帮帮我,请问怎么打开其他的应用程序 (100分)

  • 主题发起人 主题发起人 jxcy001
  • 开始时间 开始时间
J

jxcy001

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥哥好。
小妹想在DELPHI程序中打开一个新的应用程序
请问如何实现呢?
打个比方该应用程序名为:12345.exe
所在目录为:c:/12345
请问怎么实现呢??
最好能给我看的懂的源代码。
 
winexec('c:/12345.exe'.SW_SHOW);
 
TO CJ
能写的详细点吗??
我不是很懂啊。
 
ShellExecute(Handle,nil,PChar('C:/12345/12345.exe'),nil,nil,SW_NORMAL);

WinExec('C:/12345/12345.exe',SW_SHOW);
WinExec有两个参数.第一个是要执行的程序,第二个是窗体的是否显示..一般来说第二个就用SW_SHOW,
如果要隐藏就用SW_HIDE.
 
请问ShellExecute和WinExec需要在USES中调用吗?
还是本身就带的函数呢?
最好能把程序全部写出来好吗?
谢谢了。
 
ShellExecute在shellapi.pas,winexec是常用API,缺省的Windows.pas就可以了啊!
 
对了,下次不要叫这么肉麻!
 
楼主大哥:那已经就是"源程序"了哎....还想要啥 .
ShellExecute函数在ShellApi中。。要在USES部分手工加入ShellApi
 
楼主,你是MM吗?否则不要叫大哥哥吧
 
是的,我是一个女孩子,怎么了?
女孩子就不能用DELPHI了?
我要源程序啊。
 
哎,服了你了,小妹妹,给你个简单的例子吧.不过你要怎样报答呢?
分数是肯定的了,除了分数还有。。。。。。呵呵,开玩笑的,不要当真。
因为你是不是mm还不清楚呢,就算是又怎么样呢?
program exec;
//这是工程文件
uses
Forms,
main in 'main.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

unit main;
//这是主程序单元,对应窗口form1
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec( Pchar('C:/Win98/notepad.exe'), SW_SHOW );//具体路径取决于你的windows系统
end;

end.

实现时用缺省的new-》application,然后在窗口上放一个button。
程序运行时当点击按纽时打开记事本
 
呵呵,源程序就是:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs,shellapi, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,nil,PChar('D:/Documents and Settings/Administrator/桌面/Dll_test/wise 6.0使用指南.txt'),nil,nil,SW_NORMAL);
end;

end.
 
同志们?我怎么觉得像是在教书育人呀??呵呵..开个玩笑,楼主同志别生气啊..
 
呵呵,大家别介意么,应该照顾新手,我认为这样很好呀,既推动了高手又带动了新手,这样才更能体现
出dfw的温暖么,我认为这种精神应该发扬!
 
呵呵..说得是..不过我觉得好像是在楼主说自己是MM之后这种"温暖"才体现出来的嘛.
 
又是号称女孩子的?别骂我,呵呵。我不是温暖,倒有点冷......
我的答案应该没问题吧?默认似乎是加进WINDOWS单元的。
 
楼上的几个回答的都没有问题
小妹妹是不是刚开始学Delphi啊
多看看书,呵呵
 
怎么大家见了女孩就象苍蝇见了臭肉一样?????

哈哈哈哈哈哈哈哈
 
这里的MM少得可怜,所以你尽可以提问,好多人会来回答你
 
作女人真好啊。
下次我也要变MM了。哈哈。
 

Similar threads

D
回复
0
查看
815
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部