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

ÌáÒ»¸ödelphiµÄÎÊÌ⣬¸½ÉÏÔ´Â룬Çë¸ßÊÖÖ¸µãÏ£¨¶Ì£©

Õâ¸öÊÇÅжϴ°ÌåÊDz»ÊÇ´ò¿ªÈ»ºó¿ªÆô¼üÅ̼ǼµÄÔ´Â룬Çë°ïæ¿´ÏÂÄÄÀïÊDz»ÊÇ´íÁË£¿
procedure TForm1.Button1Click(Sender: TObject);
var
zbwnd,qtwnd:hwnd;  //ÉùÃ÷±äÁ¿Ê±£¬²»ÄÜÓá° := ¡±£¬Ö»ÒªÒ»¸öðºÅ¡°:¡±
st:string;

begin
st:='hao123£­£­ÎÒµÄÉÏÍøÖ÷Ò³ - Microsoft Internet Explorer';  //·ÖºÅÒªÓÃÓ¢ÎÄ·ûºÅ
  zbwnd:=findwindow(nil,pchar(st));
  qtwnd:=GetForegroundWindow;
  if zbwnd = qtwnd then
begin
if LogHook = 0 then
begin
LogHook:=SetWindowsHookEx(WH_JOURNALRECORD,LogProc,HInstance,0);
end;
end;
end;

Â¥ÉϵĠ Äã°Ñ¼üÅÌ ¼Ç¼µÄÔ´Âë  ·¢ÉÏÀ´ÁË  ÎÒµÄÄ¿µÄÊÇ  ¸ø ÔËÐÐ Õâ¸ö¼üÅ̼Ǽ¼Ó¸öÌõ¼þ£¡

ÄÄÀﱨ´í£¿ÉùÃ÷Ö¸Õ룿

ÕâÎÊÌâÊÇʲôÒâ˼£¿

ÍêÕûÔ´Âë·¢ÉÏÀ´ÁË£¬°ï濴ϰɣ¡ÊÇÄÄÀï³öÁËÎÊÌ⣡
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  KeyMask = $80000000;
var
  Form1: TForm1;


Ïà¹ØÎÊ´ð£º

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe£¿£¿

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿

ÏȰÑb.exe»¹Ô­³öÀ´ÔÚµ÷Óã¬Ó¦¸ÃÊÇ× ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

delphi idhttp cookiesÌá½»

ÎÒÏÈÓÃidhttp µÄget·½·¨·ÃÎÊÒ»¸öÍøÕ¾£¬ÍøÕ¾·µ»ØÁËÒ»¶Îcookie£¬µ±ÎÒ µ÷Óà idhttp post·½·¨µÄʱºò£¬ÎÒÈçºÎ°Ñ·þÎñÆ÷·µ»ØµÄÕâ¶Îcookies´øÉÏ £¬ÏÈлл¸÷λÁË 
¶ÁÈ¡ HTTP Response Header
ÀïÃæÓÐ Set-Cookies Óò ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ