TWebbrowser控件的使用 怎样用该控件调出Internet选项对话框 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 加入下面的代码可以调用“Internet选项”的对话框用ShellExecute也可以WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,0', SW_SHOWNORMAL); const GUID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';var CmdTarget:IOleCommandTarget; vaIn, vaOut: OleVariant; GUID: PGUID;beginGetMem(GUID,Sizeof(GUID^));GUID^ := GUID_WebBrowser;CmdTarget:=WebBrowser1.Document as IOleCommandTarget;if CmdTarget <> nil then try CmdTarget.Exec(GUID, 3, 0, vaIn, vaOut); finally CmdTarget._Release; end;FreeMem(GUID);end; 全屏和WebBrowser无关,是软件本身的功能! DateTimePicker的时间的设置问题,为什么我改变了日期,可是读出来时,还是不变! 问一个关于Virtualstringview的问题 我做的将EXCEL数据与ACCESS数据比较 怎样根据数据库中的表的结构生成对应的类? 请问如何获得文件相关的小图标,然后画到LISTVIEW里去,不要用IMAGELIST 救命啊,急急急!关于视频和音频播放几Timer的问题? delphi 嵌入窗体无法使用热键 关于一个(考勤)算法的问题,有代码 小问题!送100分! 您的一句话可以拯救一条走途无路的人. 怎样将自己写的单元文件转换为系统单元? 套打问题,很急
WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,0', SW_SHOWNORMAL);
GUID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
CmdTarget:IOleCommandTarget;
vaIn, vaOut: OleVariant;
GUID: PGUID;
begin
GetMem(GUID,Sizeof(GUID^));
GUID^ := GUID_WebBrowser;
CmdTarget:=WebBrowser1.Document as IOleCommandTarget;
if CmdTarget <> nil then
try
CmdTarget.Exec(GUID, 3, 0, vaIn, vaOut);
finally
CmdTarget._Release;
end;
FreeMem(GUID);
end;