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

delphiÈçºÎ»ñÈ¡ÆÁÄ»µÄ·Ö±æÂÊ

ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö  
  x=GetSystemMetrics(SM_CXSCREEN)  
 
y=GetSystemMetrics(SM_CYSCREEN)  
  ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËØºÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int   GetDeviceCaps(  
   
          HDC   hdc, //  
device-context   handle    
          int   nIndex   //   index  
of   capability   to   query      
        );  
    LOGPIXELSX
Number   of   pixels   per   logical   inch   along   the   screen  
width.  
  LOGPIXELSY Number   of   pixels   per   logical   inch  
along   the   screen   height. 
µ±ÎÒÃÇÐèÒª»ñÈ¡ËùÔËÐгÌÐòʱ¼ÆËã»úµÄ·Ö±æÂÊʱ£¬ÓÐÁ½ÖÖ·½·¨£º¢Ù¿ÉÒÔͨ¹ý·ÃÎÊDelphiÌṩµÄSCREENÈ«¾Ö±äÁ¿£¬¼´SCREEN.WIDTHºÍ
SCREEN.HEIGHTÒÔÏñËØµã¸ø³öÆÁÄ»µÄ·Ö±æÂÊ¡£¢ÚÀûÓÃWindowsµÄAPIº¯ÊýGetDeviceCaps()À´µÃµ½ËùÓÃÏÔʾÆ÷µÄ·Ö±æÂÊ£¬Ô´´ú
ÂëÈçÏ£º
    Application.Initialize£»
    Application.CreateForm(TForm1£¬ Form1)£»
    CASE GetDeviceCaps(GetDC(Form1.Handle)£¬HORZRES) of
    640 £º //¶Ô640×480·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
    800 £º //¶Ô800×600·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
    1024£º //¶Ô1024×768·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
    1280£º //¶Ô1280×1024·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
END£»
×ܽ᣺лл¸÷λÅóÓѵķîÏ×£¬¿ÉÒÔ·ÅÖÃÒÔshowʼþÖУ¬¶øÇÒÓÃselfÒýÓ㬿ɽµµÍ³ö´í¸ÅÂÊ£¡


Ïà¹ØÎĵµ£º

DelphiÖÐÀûÓÃMSCOMM¿Ø¼þ½øÐÐGPSÊý¾Ý²É¼¯

1¡¢×¼±¸
¡¡¡¡GPS£¨Global Positioning System£©£¬¼´È«Çò¶¨Î»ÏµÍ³£¬ÀûÓÃ24¿ÅGPSÎÀÐǵIJâ¾àºÍ²âʱ¹¦ÄܽøÐÐÈ«Çò¶¨Î»£¬ÔÚÐí¶àϵͳÖУ¬Èç»ú³¡µ¼º½ÏµÍ³£¬³ö×â³µÁ¾¹ÜÀíºÍµ÷¶Èϵͳ¡¢½­ºÓÁ÷ÓòµÄÔÖº¦ÐÅÏ¢¹ÜÀíºÍÔ¤²âϵͳÖУ¬GPSµÃµ½Á˹㷺µÄÓ¦Óᣱ¾ÎÄÀûÓÃMSCOMM¿Ø¼þʵÏÖÁËGPSÊý¾ÝµÄ²É¼¯£¬¿ÉΪÐÅÏ¢¹ÜÀíºÍÖ¸»Óµ÷¶ÈµÈÌṩ¶¨Î»Êý¾Ý¡£
¡¡ ......

delphiÖÐapplication.processmessagesµÄ×÷ÓÃ


delphiÖÐapplication.processmessagesµÄ×÷ÓÃ

procedure TForm1.Button2Click(Sender: TObject);
var
   I, J, X, Y: Word;
begin
   I := 0;
   J := 0;
   while I < 64000 do
   begin
     Randomize;
   & ......

DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷

Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔ­ÐÎΪ: ......

ÔõÑùÓÃDELPHI½ÓÊÕÉãÏñÍ·µÄͼÏó

community.csdn.net/Expert/topic/3423/3423580.xml?temp=.7675897
Ö÷¡¡¡¡Ì⣺  ÔõÑùÓÃDELPHI½ÓÊÕÉãÏñÍ·µÄͼÏó 
×÷¡¡¡¡Õߣº  benbenpear (±¿±¿) 
µÈ¡¡¡¡¼¶£º   
ÐÅ Óþ Öµ£º  100 
ËùÊôÉçÇø£º  Delphi GAME£¬Í¼Ðδ¦Àí/¶àýÌå 
ÎÊÌâµãÊý£º  0  ......

DELPHI ÎļþѹËõ¼ÓÃÜ

1¡¢  ÏµÍ³¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ