//Delphi动态建立WebBrowerunit Main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = c...
分类：
Web程序 时间：
2014-08-01 13:07:31
阅读次数：
242
如何知道 Treeview,的节点是根节点 procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;var Handled: Boolean);beginif TreeView1.Selected.IsFirs...
分类：
其他好文 时间：
2014-08-01 12:58:31
阅读次数：
182
{获取C盘的卷标格式化硬盘卷标改变} //GetHardDiskSerial('c:\') functionGetHardDiskSerial(Drive:string):string; varVolumeSerialNumber:DWORD; MaximumComponentLength:DWOR...
分类：
其他好文 时间：
2014-08-01 12:57:51
阅读次数：
154
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm1=class(TForm) Button1:TButt...
分类：
其他好文 时间：
2014-08-01 12:57:41
阅读次数：
198
使用进度条查看浏览器状态 procedure TForm1.WebBrowser1ProgressChange(ASender: TObject; Progress,ProgressMax: Integer);beginProgressBar1.Max:=ProgressMax;if Progres...
分类：
其他好文 时间：
2014-08-01 12:57:31
阅读次数：
168
功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : ...
分类：
其他好文 时间：
2014-08-01 12:56:41
阅读次数：
174
使用API函数：声明 FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"调用constant long SB_HORZ = 0constant long SB_VERT = 1con...
分类：
其他好文 时间：
2014-08-01 12:55:51
阅读次数：
161
procedure TForm1.FormCreate(Sender: TObject);
begin Application.HintPause:=0;//立即显示 Application.hinthidepause:=100000;//if not leave then 显示100秒end;
来...
分类：
其他好文 时间：
2014-08-01 12:55:11
阅读次数：
180
//获取 TreeView选中的文件路径unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;type...
分类：
其他好文 时间：
2014-08-01 12:54:11
阅读次数：
205
//获取网页源代码
var s: string;
begin s := WebBrowser1.OleObject.document.body.innerHTML; //body内的所有代码 s := WebBrowser1.OleObject.document.body.outerHTML; //...
分类：
Web程序 时间：
2014-08-01 12:53:01
阅读次数：
298
