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

VCÖе÷ÓÃDelphiµÄDLLÖеĻص÷º¯ÊýÀý×Ó

//Delphi²¿·Ö  
 //»Øµ÷º¯Êý¶¨Òå
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;  
 //DLLÖеĵ¼³öº¯ÊýÉùÃ÷
procedure StartCall(param:   TOnMyCallBack(data:pchar; id:Integer);stdcall;  
begin
  ...  
  ...  
end;  
 
-----------------------------------------------------------------------------------------------------------------------------
//vcµ÷Óò¿·Ö
typedef void (CALLBACK *MY_CallBack)(void *, char *data, int id);
void CALLBACK cxxGetDllData(void *data, int id)
{
     CString ss;
      ss.Format("%s:%d", data, id);
::MessageBox(NULL, "ÊÕµ½Êý¾Ý:", ss, MB_OK | MB_ICONWARNING);
}
 
void CTttDlg::OnOK()
{
//¶¯Ì¬¼ÓÔØDLLµ½µ±Ç°EXEµÄ½ø³Ì¿Õ¼ä
     HINSTANCE hDll = LoadLibrary("d:\\temp\\test.dll");
if(!hDll)
{
:MessageBox(NULL, "¼ÓÔØ¶¯Ì¬Á´½Ó¿âʧ°Ü£¡", "Notice", MB_OK | MB_ICONWARNING);
        return ;
    }
    MY_CallBack hStartCall = (MY_CallBack) ::GetProcAddress(hDll, "StartCall");
    if(!hStartCall)
    {
        ::MessageBox(NULL,"»ñÈ¡StartCallº¯ÊýµØÖ·´íÎó£¡","Notice",MB_ICONWARNING);
        return ;
    }
       hStartCall(cxxGetDllData,"123456",100);  
}  


Ïà¹ØÎĵµ£º

delphiÓësqlite




from : http://zhyhero.googlepages.com/heartset
file:0 ǰÑÔ
       ±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó­¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
 & ......

DelphiÖеÄTHashTable

ÔÚDelphiÖÐ,Inifilesµ¥ÔªÖÐÓÐÒ»¸öTStringHashµÄÀ࣬²»¹ýËüµÄValue½öÖ§³ÖInteger(ÆäʵҲ²»ÊÇÎÊÌ⣬ÓÐÆäËüÀàÐÍ¿ÉÒÔ½«±äÁ¿±äΪPointer)£¬ÓÐµã²»Êæ·þ£¬½ñÌìûÊÂ×ö¾Í°ÑËüÌæ»»ÎªvariantÁË£¬ÆäÖÐKeyµÄÃû³Æ´óСдÎ޹أ¬¾ÍÊÇΪÁ˼ӿ쿪·¢ËÙ¶È£¡
ʹÓÃHashtable,²éÕÒºÍɾ³ý¸´ÔӶȶ¼Êdz£Êý¼¶±ðµÄ!
type
PPHashItem = ^PHashItem;
......

Delphi¶¨Ê±Showmessageʼþ

ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......

Delphi + Asm TBitsÀàµÄѧϰ

¼¼Êõ½»Á÷,DH½²½â. ÔÚD2010µÄclassesÖÐÓиöTBitsÀà,Õâ¸öÀàÖ÷ÒªÊÇλ²Ù×÷µÄ. TBits = class
private
FSize: Integer;
FBits: Pointer;
procedure Error;
procedure SetSize(Value: Integer);
procedure SetBit(Index: Integer; Value: Boolean);
function GetBit(Index: Integer): Boole ......

¶ÁÊé DelphiÏÂÉîÈëWindowsºËÐıà³Ì µÚ¶þÌì

¼¼Êõ½»Á÷,DH½²½â. ½ñÌì½øÈëÕâÊéµÚ¶þÕ ¹³×Ó(HOOK).
ÏÈ˵˵¹³×ÓÊÇʲô?
¹³×ÓÆäʵ¾ÍÔÚÄã»·¾³ÖмÓÉÏÒ»²ã¹ýÂË,ÔÚÌØÊâÇé¿öϾʹ¥·¢¹³×ӻص÷º¯Êý.
±ÈÈç˵ÎÒÃǰ²×°ÁËÈ«¾ÖµÄ¼üÅ̹³×Ó,ÄÇôµ±ÎÒÃǰ´¶¯¼üÅÌÉÏÃæµÄ¼üµÄʱºò,¹³×ӵĻص÷º¯Êý¾Í»á´¥·¢.
ÎÒÃÇÒ²ÄÜ¿´µ½±¾À´ÊÇÖ±À´Ö±ÍùµÄ,½á¹ûÏÖÔÚÖм䰲װÁËÒ»²ã¹ýÂË,Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ