Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖеÄÈÝÆ÷Àà

 DelphiÖеÄÈÝÆ÷Àà
×÷Õß ³ÂÊ¡
 
´ÓDelphi 5¿ªÊ¼VCLÖÐÔö¼ÓÁËÒ»¸öеÄContnrsµ¥Ôª£¬µ¥ÔªÖж¨ÒåÁË£¸¸öеÄÀ࣬ȫ²¿¶¼ÊÇ»ùÓÚ±ê×¼µÄTList Àà¡£ 
TList Àà
TList Ààʵ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔ´æ´¢Ö¸ÕëµÄÈÝÆ÷À࣬ÌṩÁËһϵÁеķ½·¨ºÍÊôÐÔÀ´Ìí¼Ó£¬É¾³ý£¬ÖØÅÅ£¬¶¨Î»£¬´æÈ¡ºÍÅÅÐòÈÝÆ÷ÖеÄÀ࣬ËüÊÇ»ùÓÚÊý×éµÄ»úÖÆÀ´ÊµÏÖ ......

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

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

Delphi¶à²ã¿ª·¢·½°¸±È½Ï


±êÌâ
  Delphi¶à²ã¿ª·¢·½°¸±È½Ï    £¨×ªÔØ£©
¹Ø¼ü×Ö
  Delphi¶à²ã¿ª·¢·½°¸±È½Ï
³ö´¦
 
·½°¸->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
ÌṩÕß
Borland
΢Èí
΢Èí
http://www.astatech.com
http://www.remobjects.com
΢Èí
ºËÐļ¼Êõ
COM
COM
COM
ASTA×Ô¼ ......

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

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

DelphiÎļþÖеĺó׺Ãû½éÉÜ

ÓÃDelphi×÷µÄ³ÌÐòµÄÔ´´úÂëÖг£¼ûµÄÎļþÀ©Õ¹Ãû£¬²¢¸ø³öÁËÕâЩÎļþÀ©Õ¹ÃûµÄÒâÒ壬ÒÔ±ãÔ´´úÂë¹ÜÀíʱ×÷Ϊ²ÎÕÕ£¬À©Õ¹ÃûÒÔ×ÖĸΪÐò£¨²»ÐèÒª½øÔ´´úÂë¿â²»±íʾ²»ÐèÒª½ø¿â£©¡£
¡¡¡¡~*
¡¡¡¡DelphiÉú³ÉµÄ±¸·ÝÎļþ£¬ÔÚ°æ±¾¿ØÖÆ¿â¼°·¢²¼´úÂëÖв»Ó¦¸Ã³öÏÖÕâЩÎļþ£¬Èç¹ûÐÞ¸ÄÁËij¸öÎļþÈ´ÒòijЩԭÒòûÓб£´æµÄ»°£¬¿ÉÒÔ³¢ÊÔʹÓÃÕâЩÎļþ» ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ