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. °²×°³É¹¦ÁË. ºÃ½áÊø.¹þ¹þ
Ïà¹ØÎĵµ£º
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
Delphi 7Ö®ºóµÄ°æ±¾£¬Ôö¼ÓÁËÔËËã·ûµÄÖØÔØ¡£ËäÈ»²»¾¡ÈËÒ⣨ÐèÒªÐ´ÌØ¶¨Ó¢ÎÄ£©£¬µ«ÓÐ×ܱÈûÓÐÇ¿¡£
Àý£º
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3DPoint = record
X, Y, Z: Doub ......
#13»Ø³µ»»ÐÐ
½«form2ÄÚÈݼÓÈëµ½form1Áбí¿ò£ºÔÚform2Àform1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')½«chinese.txtÎļþÄÚÈÝÔØÈëÁбí¿òÖС£µ«Ç°ÌáÊÇÒªÕû¸ö´°Ìå´´½¨Ê±ºò¼ÓÔØµ¼È룬˫»÷Õû¸ö´°Ìåprocedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese. ......
from : http://zhyhero.googlepages.com/heartset
file:0 ǰÑÔ
±¾ÎĵÄÄ¿µÄÔÚÓÚ²ÉÓÃÁ÷Ë®ÕË·½Ê½À´¼Ç¼ѧϰdelphi·ÃÎÊǶÈëʽÊý¾Ý¿âsqliteÖеÄһЩµãµÎ¡£»¶Ó¸÷λͬºÃ¹²Í¬Ñ§Ï°ºÍÅúÆÀÖ¸Õý¡£
file:1 ×¼±¸¹¤×÷part1
& ......
ÔÚDelphiÖУ¬µ÷ÓÃShowmessageºó£¬ÈçºÎʹµ¯³öµÄ¶Ô»°¿òÔÚÒ»ÃëÖÓºó×Ô¶¯¹Ø±Õ£¬¶ø²»ÓÃÊÖ¶¯È¥µãÈ·¶¨
1:ÓÃtimer¿Ø¼þµÄº¯Êý
procedure TForm1.Timer1Timer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm',
PChar(Application.Title));
if AHandle > 0 then
SendMessage( ......