我想单击一下按钮,弹出ie,并且可以指定url,该怎么做?(50分)

  • 主题发起人 主题发起人 woodcutter
  • 开始时间 开始时间
W

woodcutter

Unregistered / Unconfirmed
GUEST, unregistred user!
我想单击一下按钮,弹出ie,并且可以指定url,该怎么做?
 
uses
shellapi;
用下面这个函数,可能我名字记错了,你在DFW里找找看,有代码的
shellexecue()
 
ShellExecute(Handle,'open',StrPCopy(St,'http://www.delphibbs.com'),nil,nil,SW_SHOW);
 
看看下面這個貼把
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1324971
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ShellAPI,
StdCtrls;

type
TForm1 = class(TForm)


var
st: array[0..100] of char;
begin
//包含ShellAPI。
ShellExecute(Handle,'open',StrPCopy(St,'www.163.com'),nil,nil,SW_SHOW);
end;
 
Shellexecute(Handle, 'open', 'http://www.***.com.cn', '', '',sw_ShowNormal);
 
后退
顶部