Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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²»Çø·Ö´óСдµÄ¡£



Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

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

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

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

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......

ÈçºÎÓÃDelphi¿ØÖÆIEä¯ÀÀÆ÷½ûÓÃJS£¿

Delphi ¿ØÖÆ´ò¿ªÁËÖî¶àÍøÒ³£¬µ«ÊÇÓÐЩÓе¯³ö´°¿Ú£¬Ïë°ÑËûÆÁ±Îµô(½ûÖ¹µ¯´°),Ïëͨ¹ý½ûÓÃIE½Å±¾µÄ·½Ê½´ïµ½Ä¿µÄ£¿ÈçºÎʵÏÖ£¿
£¨¾ÍÏóÎÒÃDzÙ×÷InternetÑ¡ÏîÖУ¬½ûÖ¹ÔËÐл½Å±¾Ò»Ñù£©
ת£º
.¸Ä×¢²á±í£¬googleϺÜÈÝÒ×Ö ......

delphi ÔõôÑùʹÓÃsqliteÊý¾Ý¿â£¿

ÊÖÍ·ÓÐÒ»¸öСCASE£¬ÒªÓõ½Êý¾Ý¿â£¬Ïë²ÉÓÃSQLite¡£
ÓÐÓùýµÄÅóÓÑÂð£¿
ÒªÔõô°²×°sqlite·þÎñ£¿»¹ÊDz»ÐèÒª°²×°£¿
ÓÃʲôÈí¼þÀ´¹ÜÀíSqliteÊý¾Ý¿â£¿ÈçÌí¼Ó±í£¬Ð´´æ´¢¹ý³ÌµÈ¡£
delphiÖÐÔõôÑùÁ¬½Óµ½sqliteÊý¾Ý¿â£¿ÓÃʲ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ