Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi Hook

ÇëÎÊÓÃcmd.exe Ö´ÐÐregedit.exe ʱ£¬ÎªÊ²Ã´ÓÃCreateProcess hook²»µ½£¬

°´ctrl+alt+del µÈÒ²hook²»µ½£¬ËûÃDz»Êǵ÷ÓÃCreateProcess Âð£¿
ÊÔÊÔ¼àÊÓShellexecute£¬ÓÃShell¹³×Ó

function NewShellExecuteW(hwnd:HWND;Operation:PWideChar;FileName:PWideChar;Parameters:PWideChar;Directory:PWideChar;ShowCmd:Integer):HINST;Stdcall;
type
  TNewShellExecuteW=function (hwnd:HWND;Operation:PWideChar;fileName:PWideChar;Parameters:PWideChar;Directory:PWideChar;ShowCmd:Integer):HINST;Stdcall;
begin
Resutl:=8;
Exit;
end;
ΪʲôÕâÑù±àÒë²»ÄÜͨ¹ýÀ´£¬Õâ¸öº¯Êý±¾À´¾ÍÊÇÕâôÉùÃ÷µÄ°¡£¬

[DCC Error] eabe_data_main.dpr(127): E2005 'hwnd' is not a type identifier

NtCreateProcess(

  OUT PHANDLE ProcessHandle,
  IN ACCESS_MASK DesiredAccess,
  IN POBJECT_ATTRIBUTES ObjectAttributes OPTIONAL,
  IN HANDLE ParentProcess,
  IN BOOLEAN InheritObjectTable,
  IN HANDLE SectionHandle OPTIONAL,
  IN HANDLE DebugPort OPTIONAL,
  IN HANDLE ExceptionPort OPTIONAL );


ºÍzwCreateProcessÕâÁ½¸öº¯ÊýµÄdelphiÉùÃ÷

°ïÎÒ°ÑÕâ¸öת»»³ÉdelphiµÄfunction.


MARK

hwnd:HWND
C++ÕÕ³­¹ýÀ´µÄ°É£¬DELPHI²»Çø·Ö´óСдµÄ¡£



ÒýÓÃ
hwnd:HWND
C++ÕÕ³­¹ýÀ´µÄ°É£¬DELPHI²»Çø·Ö´óСдµÄ¡£



Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

DelphiʹÓÃSQL ServerÈçºÎ¿ÉÒÔ²»°²×°SQLServer2000

ÈçÌâËùʾ
СµÜʹÓÃDelphi7»·¾³½øÐÐÊý¾Ý²É¼¯£¬²É¼¯µ½µÄÊý¾Ý·ÅÈëSQL Server2000Êý¾Ý¿âÖУ¬µ«ÊÇÏë²»°²×°SQLServer2000À´ÊµÏÖ´ÓÆäËü¼ÆËã»úÉÏÔËÐд˳ÌÐò£¬²»ÖªÈçºÎʵÏÖ£¿Íû¸÷λ´óϺ¸æÖªÒ»¶þ¡£
ÁíÍ⣬ÏÖÔÚСµÜÓöµ½ÁËÒ»¸ö ......

ÓÃdelphi×öÒ»¸ö½çÃæ

ÎÒÃǵ¼Ê¦ÈÃÎÒÃÇÓÃdelphi×öÒ»¸ö½çÃæ,ÒÔǰûÓÐѧ¹ý,¸Ð¾õÓкöà¿Ø¼þҪѧ,²»ÊǺܶ®,ÓÐË­Äܹ»Ö¸µ¼Ö¸µ¼°¡,лл!!
´ò¿ªdelphi£¬ÔÚÉÏÃæÕҿؼþ£¬ÍùformÉÏÍϾÍÊÇÁË£¬²¼¾ÖÉèÖúþÍÐÐÁË

¿ªdelphi£¬°Ñ¿Ø¼þÀ¸ÉϵĿؼþÍϵ½´°ÌåÉ ......

VBÔ¹ÑÔ·­ÒëΪDelphiÓïÑÔ

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ?1996-2009 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by th ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ