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

ÔÚDELPHIÖÐʵÏÖÎÞ±êÌâ´°ÌåµÄÒÆ¶¯×î¼òµ¥µÄ·½·¨

ÔÚ´°ÌåµÄOnMouseDownʼþÖмÓÈëÏÂÃæ¼¸ÐдúÂë¼´¿É
If Button = mbleft Then
begin
ReleaseCapture;
SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
Èô´°ÌåµÄ±íÃæ±»±ðµÄ¿Ø¼þÂĸǵô£¬ÔòÐèÒª°ÑÉÏÃæµÄ´úÂë¼ÓÈëÂĸǵĿؼþÀïÃæ¡£ 


Ïà¹ØÎĵµ£º

Delphi µÄ Dll º¯ÊýµÄ µ÷ÓÃ


Ò»¡¢Dll½¨Á¢
£¨Ò»£©DLLÏîÄ¿µÄ½¨Á¢
library mydll;
 
uses
base in 'base.pas';
 
exports
Triple name 'Tr';
 
{$R *.res}
 
begin
end.
 
£¨¶þ£©º¯Êýµ¥Ôª
unit base;
 
interface
 
uses windows;
 
function Triple(N:integer):integer;stdcall;
  ......

delphiʵÏÖµ÷ÓÃdllÖеĴ°Ìå ´úÂë

н¨Ò»¸ödLL¹¤³Ì,н¨Ò»¸ö´°Ìå Fr_bb80 ,ÎÒÃÇÏÈÔÚËüµÄµ¥ÔªÀï¼ÓÈëÏÂÃæÒ»¸öº¯Êý:
function Report(Title:Pchar):Boolean  ;stdcall;
begin
   if Fr_bb80=nil then
   begin
         Fr_bb80:=TFr_bb80.Create(application);
   &nb ......

Windows API µÄÊý¾ÝÀàÐÍÓë Delphi Êý¾ÝÀàÐͶÔÕÕ±í

Windows API µÄÊý¾ÝÀàÐÍÓë Delphi Êý¾ÝÀàÐͶÔÕÕ±í
×÷Õߣºadmin À´Ô´£ºÎ´Öª ÈÕÆÚ£º2010-1-28 13:10:56 ÈËÆø£º43 ±êÇ©£ºAPI
µ¼¶Á£ºWindowsAPIµÄÊý¾ÝÀàÐÍÓëDelphiÊý¾ÝÀàÐͶÔÕÕ±í
Windows Êý¾ÝÀàÐÍ 
 Delphi Êý¾ÝÀàÐÍ 
ÃèÊö
LPSTR
PAnsiChar
×Ö·û´®Ö¸Õë
LPCSTR
PAnsiChar
×Ö·û´®Ö¸Õë
DWORD
LongWo ......

delphiÖ¸Õë¼òµ¥ÈëÃÅ

delphiÖ¸Õë¼òµ¥ÈëÃÅ:  
   
  ¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º  
  1         var  
  2             X,   Y:   Integer;       //   X   and   Y   ÕûÊýÀàÐÍ  
  3 ......

delphi ¿Ø¼þ°²×°


ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£
1¡¢Ö»ÓÐÒ»¸ödcuÎļþµÄ×é¼þ¡£dcuÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏdelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ