delphi仿hao123桌面版,开网页的速度没人加速呢
delphi仿hao123桌面版,开网页的速度没人加快呢?
所谓Hao123桌面版,就是个几百k的exe。打开后会调用默认浏览器访问hao123。这程序简单吧!
我用Delphi7+XP sp3去山寨,核心代码:ShellExecute(Handle, 'open', 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);。
你看我也是打开hao123首页。为什么同一电脑么有原版的快呢? 有没有可能是开发工具的原因呢?
真心求教
------解决方案--------------------
//编译后27k delphi XE
------解决方案--------------------
//以下代码, D7(15K) XE(21K) 速度和Hao123无差别
------解决方案--------------------
kol您用过吗!??
所谓Hao123桌面版,就是个几百k的exe。打开后会调用默认浏览器访问hao123。这程序简单吧!
我用Delphi7+XP sp3去山寨,核心代码:ShellExecute(Handle, 'open', 'http://www.baidu.com', nil, nil, SW_SHOWNORMAL);。
你看我也是打开hao123首页。为什么同一电脑么有原版的快呢? 有没有可能是开发工具的原因呢?
真心求教
------解决方案--------------------
//编译后27k delphi XE
program Project9;
uses
ShellAPI;
begin
{ TODO -oUser -cConsole Main : Insert code here }
try
ShellExecute(0, 'open', 'http://www.baidu.com', nil, nil, 1);
except
end;
end.
------解决方案--------------------
//以下代码, D7(15K) XE(21K) 速度和Hao123无差别
program Project1;
function ShellExecute(hWnd: LongInt; Operation, FileName, Parameters,
Directory: PWideChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll' name 'ShellExecuteW';
begin
ShellExecute(0, 'open', 'http://www.baidu.com', nil, nil, 1);
end.
------解决方案--------------------
kol您用过吗!??