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

Delphi 2010ϰ²×°IOComp

¼¼Êõ½»Á÷,DH½²½â. IOCompÊÇÒ»Ì×ÓÃÓÚ¹¤ÒµµÄͼÐλ¯¿Ø¼þ.
¿´ÏÂÔõôÔÚD2010ÏÂÃæ°²×°°É.Ê×ÏÈÏÂÔØµØÖ·,À´Ö® ºÐ×Ó,Download Here ½âѹËõºó,ÐèÒª×öµÄ²½Öè:
1 Ìí¼Ólib path
Tools –> Options –> Delphi Options

½«ÄãµÄ½âѹËõĿ¼Ìí¼Ó½øÀ´.
2 ɾ³ýÏà¹ØPNGµ¥Ôª.
ÒòΪ2010ÖÐ×Ô´øPNGImageµ¥ÔªÁË,¶øÇÒÕâ¸öĿ¼ÏÂÃæµÄPNGµ¥ÔªÔÚ2010ÏÂÃæ»á±¨´í.Ö÷ÒªÊÇÕâ¾äByte(Dest^):= ²»Äܸ³Öµ.
ɾ³ýÕâ3¸öÎļþ:

3 Ôö¼Ó±àÒëÖ¸Áî
±à¼­Ä¿Â¼ÏÂÃæµÄiInclude.incÎļþ
ÔÚÏÂÃæ»°ºóÃæ:
{$IFDEF VER200}
  {$DEFINE COMPILERFOUND}
  {$DEFINE ISDELPHI}
  {$DEFINE ISCPPB}
  {$DEFINE COMPILER_2009}
  {$DEFINE DELPHI_2009}
  {$DEFINE CPPB_2009}
  {$DEFINE MSWINDOWS}
{$ENDIF}
Ìí¼Ó:
{$IFDEF VER210}
  {$DEFINE COMPILERFOUND}
  {$DEFINE ISDELPHI}
  {$DEFINE ISCPPB}
  {$DEFINE COMPILER_2010}
  {$DEFINE DELPHI_2010}
  {$DEFINE CPPB_2010}
  {$DEFINE MSWINDOWS}
{$ENDIF}
Îļþ×îºóÔÙ¼ÓÉÏ:
{$IFDEF COMPILER_2010}
  {$DEFINE COMPILER_2009_UP}
  {$DEFINE COMPILER_6_UP}
{$ENDIF}
ºÃÁË.
4 °²×°°ü
ÔÚDelphiÖÐCtrl + F11´ò¿ª½âѹĿ¼ÏÂÃæµÄIocompRADStudio2009.dproj
 
ÓÒ»÷Install. °²×°³É¹¦ÁË. ºÃ½áÊø.¹þ¹þ


Ïà¹ØÎĵµ£º

Delphi¿ç½ø³Ì·ÃÎÊDBGRID

´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
      ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......

¸ÄдÁËÒ»¸ö³£ÓõÄDELPHIµÄ¼Ó½âÃܺ¯Êý

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer; &nbs ......

Delphi ·¢²¼ActiveX¿Ø¼þ Êý×ÖÇ©Ãû£¨×ª£©

Ô­×÷Õߣº¹âÃ÷ÐÖµÜ
×î½üÎÒÕýÔÚÑо¿ActiveX¼¼Êõ¡£ÎÒʹÓÃDelphi 7´´½¨ÁËÒ»¸ö¾ßÓÐActiveFormµÄActiveX¿Ø¼þÓ¦ÓóÌÐò¡£Õâ¸ö¿Ø¼þ²úÉúÒ»¸ö.OCXÎļþ¡£ÏÖÔÚ£¬ÎÒÐèÒª°ÑÕâ¸ö¿Ø¼þ²¿ÊðÔÚ·þÎñÆ÷¶Ë£¬ÔÚÓû§ä¯ÀÀÍøÒ³²¢Ñ¡Ôñ°²×°Õâ¸ö¿Ø¼þµÄʱºò£¬Óû§µÄIE²Å»áÏÂÔØ¡¢°²×°²¢ÏÔʾÕâ¸ö¿Ø¼þ¡£
µ«ÊÇÎҵĿؼþ±ØÐë×÷Êý×ÖÇ©ÃûÒÔºó£¬IE²Å»áÏÂÔØ°²×°¡£ ......

¹ØÓÚdelphi Moveº¯ÊýµÄÓ÷¨Ïê½â

  ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
 ¸ãÁ˺ÃÒ»»á²Å¸ãÃ÷°×ÆäÓ÷¨.ËùÒÔÏëÌù³öÀ´°ïÖúÐèÒª°ïÖúµÄÈË.
var
   s:string;
   ps:Pchar;
   b:pbyte;
   len:integer;
begin
 &nb ......

Delphi ´´½¨Ä¿Â¼¼°Ð´ÈÕÖ¾Îļþ


Delphi ´´½¨Ä¿Â¼¼°Ð´ÈÕÖ¾Îļþ
var
TF: TextFile;
LogFile: string;
txt :string;
sysDir:string;
//´´½¨°´Å¥
procedure TForm1.Button1Click(Sender: TObject);
begin
sysDir:=extractfilepath(application.ExeName );
if not directoryexists(sysdir+'log\') then
createdir(sysdir+'log ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ