Ctrl+PageUp      将光标移至本屏的第一行，屏幕不滚动。
 Ctrl+PageDown    将光标移至本屏的最后一行，屏幕不滚动。
 Ctrl+↓          向下滚动屏幕，光标跟随滚动不出本屏。
 Ctrl+↑          向上滚动屏幕，光标跟随滚动不出本屏。
 Ctrl+Shift+NUM   在光标行设置最多九个临时标志号，对临时切换非常有用。
                  行的左边将出现一本书，封面有NUM，再按一次取消设置。 
 Ctrl+NUM         直接将光标跳到NUM处，NUM是用Ctrl+Shift+NUM设置的标号。
                  NUM不能用小键盘。
 Ctrl+Home        将光标移至文件头。
 Ctrl+End     &nb ......

//参考地址：http://www.wangchao.net.cn/bbsdetail_41190.html
一、微软RegExp
      1. 下载并安装最新版的"Microsoft(r) Windows(r) Script"
　　2. RegExp包含在vbscript.dll中所以我们必须先注册regsvr32 vbscript.dll
　　注(安装了Ie5后默认已经包含该控件)
　　3.在Delphi中引入"Microsoft VBScript Regular Expressions"
　　主菜单->Project->Import type library->在列表中选择"Microsoft VBScript Regular Expressions"
　　生成TRegExp控件
　　4.使用以下代码调用TRegExp控件
二、代码：
      procedure TForm1.Button1Click(Sender: TObject);
　　var
　　machs: IMatchCollection;
　　Matchs: Match;
　　submatch: ISubMatches;
　　i, j: integer;
　　begin
　　RegExp1.Global := true;
　　RegExp1.Pattern := '\w+\.\w+(?!.)';
　　RegExp1.IgnoreCase := true;
　　machs := RegExp1.Execute('http://www.xcolor.cn/dd/page1.htm') as
　　IMatchCollection;
　　for i := 0 to machs.Count - 1 do
　　begin
　　Matchs := ......

function GetFileSizeString(const pFileName: String):String;
var
iFileSize: Int64;
begin
Result := '0';
iFileSize := FileSizeByName(pFileName);
Result := IntToStr(iFileSize);
end;
  function WinExecAndWait(strFileName: string; uCmdShow: UINT): DWORD;
var
cAppName: array[0..512] of char;
cCurDir: array[0..255] of char;
strWorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(cAppName, strFileName);
GetDir(0, strWorkDir);
StrPCopy(cCurDir, strWorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := uCmdShow;
if not CreateProcess(nil, cAppName, nil, nil, true, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, StartupInfo, ProcessInfo) then
Result := INFINITE
else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(Proc ......

unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
private
//FNode,LNode:PRecLinkNode;
public
FNode,LNode:PRecLinkNode;
constructor create;
destructor destroy; override;
procedure AddNode(S:String);
procedure DeleteFNode(S:String);
procedure BakupMsg;
end;
implementation
var
LinkingClass: TLinkingClass;
constructor TLinkingClass.create;
begin
inherited;
FNode := nil;
LNode := nil;
end;
procedure TLinkingClass.AddNode(S:String);
var
p:PRecLinkNode;
begin
new(p);
if FNode = nil then
begin
LNode:=FNode;
p.NodeMsg:=S;
p.Next:=FNode;
p.Previous:=FNode;
FNode:=p;
LNode:=p;
end else
begin
LNode.Next:=p;
p.NodeMsg:=S;
p.Next:=n ......

 unit unitFileOP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function GetSys32Dir:String;
var
Sys32Dir: string;
pSys32Dir: array[0..Max_Path] of char;
begin
GetSystemDirectory(pSys32Dir,Max_Path);
Sys32Dir := String(pSys32Dir) + chr(92);
Result := Sys32Dir;
end;
procedure MyFileCopy(const fromFile, ToFile: string);
var
fromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..2048] of Char;
begin
AssignFile(fromF, fromFile);
Reset(fromF, 1);
AssignFile(ToF, ToFile);
Rewrite(ToF, 1);
repeat
BlockRead(fromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(fromF);
CloseFile(ToF);
end;
function GetExeFileVersion(fn: string; var ma, mi, r, b: integer): boolean;
var
buf, p: pChar;
sver: ^VS_FIXEDFILEINFO;
i: LongWord;
begin
i := ......

 关于IntraWeb程序在编译时出现错误的解决方法
错误提示：[Error] IWLicenseKey.pas(12): Undeclared identifier: 'SetLicenseKey'
处理方法：进入菜单Tools->Environment Options，选择‘Library’，将'Library path'参数中有关intraweb的目录放在前面即可。
使用 HTML 模板时为何IE老显示乱码?
已经做如下操作:
1\ HTML 文件名为 findex.html
2\ 主窗体的 name 为 findex
3\ IWServerController 的 AllowSubFloders 属性为TRUE;
4\ 建立了 Templates 文件夹
5\ 主窗体的 LayoutMgr 指向了 IWTemplateProcessorHTML1 
6\IWTemplateProcessorHTML1 的 Delfault 和 IE 都填写了  findex.html
7\ findex.html 文件中 写如下 {%button1%}{%button2%}{%button3%} Label
8\ 主窗体 有 3个 IWBUTTON 名字如下 :button1 、button2、  button3
Intraweb 10.0.7 破解方法 
安装好后，在 ......