如何实现这个简单的功能(50分)

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #1

就是做个exe的执行程序，双击后，用IE打开指定的网站？

 

L

liwens

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #2

新建一个项目，把这下面的语句加在主窗体的CREATE事件里，这样一启动程序就会同时打开网站了！
ShellExecute(handle, 'Open', pchar('Http://www.sohu.com'), nil, nil, sw_shownormal);
对了，要引用shellapi单元；

 

Y

yangdear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #3

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows, shellapi;

begin
{ TODO -oUser -cConsole Main : Insert code here }
ShellAPI.ShellExecute(0, 'Open', 'www.sohu.com', '', '', Sw_show);
WinExec('http://www.sohu.com', SW_HIDE )
end.
试一下

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #4

我希望的是只双击那个exe。。就打开IE进行浏览，其他的任何东西都不要出现啊。
呵呵。。够简单了吧

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #5

yangdear的方法可以说清楚一点吗？要执行的那句代码放在哪个事件里头？

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #6

帮帮忙啊。。小可是拨号上网的。还在网上挂着哩！

 

风

~风之彼端~

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #7

看看我的：
program langhua100;
{$APPTYPE GUI}
uses
Windows;

{
Forms,
Unit1 in 'Unit1.pas' {Form1;}

//{$R *.res}

begin
if MessageBox(0,'现在就启动IE浏览器浏览“新浪”网？','询问',MB_ICONQUESTION+MB_TOPMOST+MB_YESNO)=idYes then
WinExec('C:/Program Files/Internet Explorer/IEXPLORE.EXE http://www.sina.com',SW_MAXIMIZE);
end.

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #8

你可以在主窗體的onCreate事件裡面就執行，執行完後就退出程序不就行了

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-06

• #9

结束。发分。