delphiÖ¸Õë¼òµ¥ÈëÃÅ
delphiÖ¸Õë¼òµ¥ÈëÃÅ:
¿´Ò»¸öÖ¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 P: ^Integer; // P Ö¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë
4 begin
5 X :=17; // ¸ø X ¸³Öµ
6 P := @X; // °Ñ xµÄµØÖ·¸³¸øp
7 Y := P^; // È¡³öpËùÖ¸ÏòµÄÊýÖµ¸³¸øy
8 end;
µÚ¶þÐж¨ÒåÁËÁ½¸ö±äÁ¿X,y. µÚÈýÐÐÉùÃ÷ÁËpÊÇÖ¸ÏòÕûÊýÀàÐ͵ÄÖ¸Õë;Òâζ×ÅpÄܹ»Ö¸Ïòx»òÕßyµÄµØÖ·.µÚÎåÐи³¸øxÖµ,µÚÁùÐаÑxµÄµØÖ·¸³¸øp.×î
ºóͨ¹ýpÖ¸ÏòµÄ±äÁ¿¸³Öµ¸øy.´Ëʱ,xºÍyÓÐÏàͬµÄÖµ.
²Ù×÷·û@ÓÃÀ´È¡³ö±äÁ¿µÄµØÖ·,Ò²¿ÉÒÔÈ¡³ö¹ý³ÌºÍº¯ÊýµÄµØÖ·.
¶ø·ûºÅ^ÓÐÁ½¸öÄ¿±ê,
µ±Ëü³öÏÖÔÚÀàÐͶ¨ÒåµÄÇ°ÃæʱÈç ^typename ±íʾָÏòÕâÖÖÀàÐ͵ÄÖ¸Õë;
µ±Ëü³öÏÖÔÚÖ¸Õë±äÁ¿ºó±ßʱ Èç point^ ·µ»ØÖ¸ÕëÖ¸ÏòµÄ±äÁ¿µÄÖµ;
Àí½âÖ¸Õë±È½ÏÈÝÒ×Àí½âÃæÏò¶ÔÏóµÄpascalÓïÑÔ,ÒòΪָÕë¾³£ÔÚÄ»ºó²Ù×÷.ÈκÎÒªÇó¶¯Ì¬·ÖÅä´óµÄÄÚ´æ¿Õ¼äµÄÀàÐÍ¿ÉÒÔÓÃÖ¸ÕëÀàÐÍ.ÀýÈç
,long-string±äÁ¿,ʵ¼ÊÔÚʹÓÃÖ¸Õë½øÐвÙ×÷.ÁíÍâһЩ¸ß¼¶µÄ±à³Ì¼¼ÊõÐèҪʹÓÃÖ¸ÕëÀàÐÍ.
ÓÐʱָÕëÊÇÊÊÓ¦object pascalÑϸñµÄÀàÐÍÏÞÖƵÄΨһ·½·¨.ͬ¹ýÒ»¸öͨÓõÄÖ¸ÕëÀàÐÍ,ͨ¹ýÀàÐÍת»»³É²»Í¬µÄÖ¸ÕëÀàÐÍ,ÈçÏÂÃæµÄÀý×Ó:
type
 
Ïà¹ØÎĵµ£º
Wma ¸ñʽ¸èÇúÐÅÏ¢Îļþ½á¹¹£¬¸½¶ÁдÀࣨDelphi£©
linle @ 2006-05-01 13:10
ÒÔÇ°µÄÒ»µãÑо¿£¬¹«¿ªºÃÁË£¬ÓÐʲôÒÉÎÊ¿ÉÒÔºÍÎÒÌÖÂÛ
Èý¸ö¶àÔÂÇ°µÄ´úÂ룬£¬±È½ÏÓ×ÖÉ£¬´ó¼Ò½«¾ÍһϰÉ
Îļþ½á¹¹Ê¾Òâͼ
¸ñʽµÄ¼òµ¥ËµÃ÷£º
Èçͼ1£¬Ã¿Ò»¸öWMAÎļþ£¬ËüµÄÍ·16¸ö×Ö½ÚÊǹ̶¨µÄ£¬ÎªÊ®Áù½øÖ ......
¶ÔÓÚÍøÂçÓÎÏ·À´Ëµ£¬ËüºÍµ¥»ú°æÓÎÏ·×î´óµÄÇø±ð¾ÍÔÚÓÚÍøÂçͨÐŲ¿·Ö¡£¿ÉÒÔ˵£¬ÍøÂçͨÐÅÊǹ¹³ÉÍøÓεÄ×î»ù±¾ÔªËØ¡£ÔÚÕâÀïÎÒ²»ÏëÏêϸµÄÂÛÊöÈçºÎʹÓÃDELPHIÔÚWINDOWSϽøÐÐÍøÂç±à³Ì£¬ÒòΪÕâÊÇÒ»¸ö·Ç³£¸´ÔӵĻ°Ìâ¡£ÕâÀïÎÒÖ»ÊÇÏë˵Ã÷ÔÚÎÒÉè¼ÆµÄÆåÅÆÀàÓÎÏ·ÖÐÈçºÎʵÏÖÓÎÏ·ÍøÂ粿·ÖµÄ¡£
¶ÔÓÚWINDOWSÀ´Ëµ£¬ËüµÄͨÐÅÄ£ÐÍ´ó¸Å·ÖΪ5ÖÖ¡£·Ö± ......
Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊÇ°ÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
&n ......
FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWindowEx ±È FindWindow ¶à³öÁ½¸ö¾ä±ú²ÎÊý:
FindWindowEx(
Parent: HWND; {Òª²éÕÒ×Ó´°¿ÚµÄ¸¸´°¿Ú¾ä±ú}
Child: HWND; {×Ó´°¿Ú¾ä±ú}
ClassName: PChar ......
//ÉùÃ÷:
GetWindowText(
hWnd: HWND; {´°¿Ú¾ä±ú}
lpString: PChar; {½ÓÊÕÎı¾µÄ»º³åÇøµÄÖ¸Õë}
nMaxCount: Integer {Ö¸¶¨»º³åÇø´óС, ÆäÖаüº¬NULL×Ö·û; Èç¹ûÎı¾³¬³ö£¬»á±»±»½Ø¶Ï}
): Integer; {·µ»Ø×Ö·û¸öÊý, ²»°üÀ¨ÖжϵĿÕ×Ö·û; Èç¹û±êÌâΪ¿Õ»ò¾ä±úÎÞЧ, Ôò·µ»ØÁã}
//¾ÙÀý:
var
arr: ......