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

delphiÊó±ê°´Ï°´Å¥²»ËÉ´¥·¢µÄʲôʼþ£¿

ÏëʵÏÖ°´Ï°´Å¥²»ËÉ£¬Êý×ÖÀÛ¼ÓÔõôʵÏֵģ¿ÀàËÆÕâÑùµÄ¡£

var
i:integer;
begin
i:=i+1;
label1.caption:=inttostr(i);
end;

ÊÔÁËһϣ¬mousedownÒ²²»Ðа¡¡£
vb¿ÉÒÔ¡£Óкΰ취ʵÏÖûÓС£
while true do
begin
  i:=i+1;
  label1.caption:=inttostr(i);
end;

ÔÚmousedownÀïÃæÐ´

µÃдÅжÏÊÇÄÇÄĸö¼ü°´ÏÂÁË

ÒýÓÃ
ÏëʵÏÖ°´Ï°´Å¥²»ËÉ£¬Êý×ÖÀÛ¼ÓÔõôʵÏֵģ¿ÀàËÆÕâÑùµÄ¡£


var
i:integer;
begin
i:=i+1;
label1.caption:=inttostr(i);
end;

ÊÔÁËһϣ¬mousedownÒ²²»Ðа¡¡£
vb¿ÉÒÔ¡£Óкΰ취ʵÏÖûÓС£


²»ÐÐÊÇ£ºÃ»Óз´Ó¦£¬»¹ÊÇûÓÐЧ¹û£¬»¹ÓÐÓÐЧ¹ûµ«ÊÇÎÞÖмä¹ý³Ì£¿

Delphi(Pascal) code:
È«¾Ö»ò³ÉÔ±±äÁ¿
bStop:boolean;

mouseDownʼþ£º
var
i:integer;
begin
bStop:=false;
while not bStop do
begin
i:=i+1;
label1.caption:=inttostr(i);
application.processmessages;
end;
end;

mouseUpʼþ£º
begin
bStop:=true;
end;


¶¥Â¥ÉÏ

ÔÚTimerÀïÃæÐ´ÉÏÄãµÄÀÛ¼Ó¹¦ÄÜ,µ±WM_LButtonDown=ture then timer1.enabled := ture;µ±WM_LButtonUp=true then timer1.enabled := false;

4Â¥Õý½â


Ïà¹ØÎÊ´ð£º

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

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ÈçºÎµ÷ÓÃdllÎļþÖеÄexe

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


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ