delphi浏览器源码
Ⅰ delphi主流浏览器窗口句柄获取源码
获取所有句柄,源码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
btn_listwindow: TButton;
procere btn_listwindowClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall;
implementation
{$R *.dfm}
function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;
var
lpszClassName,lpszWindowText:array[0..254] of char;
begin
GetWindowText(AhWnd,lpszWindowText,254);
GetClassName(AhWnd,lpszClassName,254);
Aform.memo1.lines.add(StrPas(lpszWindowText));
Aform.memo1.lines.add(StrPas(lpszClassName));
Aform.memo1.lines.add( '-------------------- ');
Result:=True;
end;
procere TForm1.btn_listwindowClick(Sender: TObject);
begin
EnumWindows(@EnumWindowsProc,LongInt(self));
end;
end.
F9,运行,看看结果。最好是F7单步跟踪调试一下,看看回调函数是怎么被调用的。
Ⅱ 下载了一个delphi编的浏览器源代码,可以编译,也可以正常浏览网页,但另做一个窗口,源代码复制过去就上不了
复制代码,事件不会自动关连,把事件一一对应上去
Ⅲ 怎样用delphi实现浏览器搜索功能的源代码是什么
不知道你说的搜索是指搜索什么?那个搜网页需要引擎的.
收藏好办多了,把域名以文本形式保存在扩展名为htm的文件下(文件操作)
Ⅳ delphi 如何将memo中的网页源码,代码转成网页方式显示
var
str:string;
icnt:Integer;
begin
mmo1.Lines.Clear;
mmo1.Lines.Add('<html>');
mmo1.Lines.Add('<head>');
mmo1.Lines.Add('<title>我的第一个 HTML 页面</title>');
mmo1.Lines.Add('</head>');
mmo1.Lines.Add('<body>');
mmo1.Lines.Add('<p>body 元素的内容会显示在浏览器中。</p>');
mmo1.Lines.Add('<p>title 元素的内容会显示在浏览器的标题栏中。</p>');
mmo1.Lines.Add('</body>');
mmo1.Lines.Add('</html>');
str:='';
for icnt:=0 to mmo1.Lines.Count-1 do
begin
str:=str+mmo1.Lines[icnt];
end;
wb1.Navigate('about:'+str);
end;
memo里面只限于html,不能有其他的,比如jsp或js。
Ⅳ 用delphi创建浏览器启动时显示默认网页的一段代码
extractfilepath(application.ExeName) 获取程序目录
'default.htm'); 程序目录下的网页文件.
打开的就是defalut.htm这个默认文件了.一般设置主页都是以default index这类命名的
Ⅵ delphi做一个浏览器
delphi 内置了 TWebBrowser 组件,该组件以 windows 的 IE 浏览器为核心,提供了一个浏览器的基本容器,能够实现浏览器的大部分功能。
此外,第三方组件中 TEmbeddedWB 类似于 TWebBrowser,但相比下,提供的功能更强大,更易用。
Ⅶ 求delphi开发谷歌浏览器和火狐浏览器工具条的源码
您好,感谢您对火狐的支持
您可以在这里查看火狐扩展和插件开发的相关资料,有大量源码提供下载使用:http://www.csdn.net/tag/
您可以在火狐官方网站下载火狐浏览器,在火狐社区了解更多内容。希望我的回答对您有所帮助,如有疑问,欢迎继续在本平台咨询。
Ⅷ delphi 浏览器源码
C:\Program Files\Borland\Delphi7\Demos\CoolStuf
前面地址路径是你的DELPHI安装路径,那里有一个现成的浏览器.
可以做参考的...
Ⅸ 如何用delphi编写图片浏览器 源代码是什么
http://www.2ccc.com下载个例子吧