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

DELPHIÓÃFindWindow¡¢FindWindowEx ²éÕÒ´°¿Ú

FindWindow(
lpClassName, {´°¿ÚµÄÀàÃû}
lpWindowName: PChar {´°¿ÚµÄ±êÌâ}
): HWND; {·µ»Ø´°¿ÚµÄ¾ä±ú; ʧ°Ü·µ»Ø 0}
//FindWindowEx ±È FindWindow ¶à³öÁ½¸ö¾ä±ú²ÎÊý:
FindWindowEx(
Parent: HWND; {Òª²éÕÒ×Ó´°¿ÚµÄ¸¸´°¿Ú¾ä±ú}
Child: HWND; {×Ó´°¿Ú¾ä±ú}
ClassName: PChar; {}
WindowName: PChar {}
): HWND;
{
Èç¹û Parent ÊÇ 0, Ôòº¯ÊýÒÔ×ÀÃæ´°¿ÚΪ¸¸´°¿Ú, ²éÕÒ×ÀÃæ´°¿ÚµÄËùÓÐ×Ó´°¿Ú;
Èç¹û ÊÇ HWND_MESSAGE, º¯Êý½ö²éÕÒËùÓÐÏûÏ¢´°¿Ú;
×Ó´°¿Ú±ØÐëÊÇ Parent ´°¿ÚµÄÖ±½Ó×Ó´°¿Ú;
Èç¹û Child ÊÇ 0, ²éÕÒ´Ó Parent µÄµÚÒ»¸ö×Ó´°¿Ú¿ªÊ¼;
Èç¹û Parent ºÍ Child ͬʱÊÇ 0, Ôòº¯Êý²éÕÒËùÓеĶ¥²ã´°¿Ú¼°ÏûÏ¢´°¿Ú.
}
//²âÊÔ1: ÊÔ×ÅÕÒÕÒн¨³ÌÐòÖ÷´°¿ÚµÄ¾ä±ú
var
h: HWND;
begin
{ÏÖÔÚÎÒÃÇÖªµÀ´°¿ÚµÄ±êÌâÊÇ: Form1¡¢´°¿ÚµÄÀàÃûÊÇ: TForm1}
h := FindWindow('TForm1', 'Form1');
ShowMessage(IntToStr(h)); {656180; ÕâÊÇËæ»ú, ÿ´ÎÆô¶¯´°¿Ú¿Ï¶¨²»Ò»Ñù}
{¼ÙÈç²»ÖªµÀÀàÃû}
h := FindWindow(nil, 'Form1');
ShowMessage(IntToStr(h)); {656180}
{¼ÙÈç²»ÖªµÀ±êÌâÃû}
h := FindWindow('TForm1', nil);
ShowMessage(IntToStr(h)); {656180}
{ÆäʵÕâ¸ö´°¿ÚµÄ¾ä±ú²»¾ÍÊÇ Self.Handle Âð}
ShowMessage(IntToStr(Handle)); {656180}
end;
//²âÊÔ2: ÕÒ¼ÆËãÆ÷´°¿ÚµÄ¾ä±ú(ÏÈ´ò¿ª¼ÆËãÆ÷)
var
h: HWND;
begin
{Èç¹û²»ÊǼòÌåÖÐÎÄϵͳ, ÕâÑù¿ÉÄܲ»Áé}
h := FindWindow(nil, '¼ÆËãÆ÷');
ShowMessage(IntToStr(h)); {1508334}
{×îºÃÕâÑù, µ«ÄãµÃÌáǰ֪µÀ¼ÆËãÆ÷´°¿ÚµÄÀàÃûÊÇ: SciCalc}
h := FindWindow('SciCalc', nil);
ShowMessage(IntToStr(h)); {1508334}
end;


Ïà¹ØÎĵµ£º

DelphiϵÄCOM±à³Ì

Delphiͨ¹ýÏòµ¼¿ÉÒԷdz£Ñ¸Ëٺͷ½±ãµÄÖ±½Ó½¨Á¢ÊµÏÖCOM¶ÔÏóµÄ´úÂ룬µ«ÊÇÕû¸öCOMʵÏֵĹý³Ì±»ÍêÈ«µÄ·â×°£¬ÉõÖÁûÓÐVCLÄÇô½á¹¹ÇåÎú¿É¼û¡£Ò»¸öûÓÐC++ÏÂCOM¿ª·¢¾­ÑéÉõÖÁûÓнӴ¥¹ýCOM¿ª·¢µÄDelphi³ÌÐòÔ±£¬Ò²Äܹ»ºÜÈÝÒ׵İ´Õս̳ÌÉè¼ÆÒ»¸ö½Ó¿Ú£¬µ«ÊÇ£¬¿ÖÅÂÉîÈëÒ»Ï룬Á¬Éú³ÉµÄ´úÂë´ú±íºÎÖÖÒâÒ壬ÄÄЩÄܹ»¶¨Öƶ¼²»Çå³þ¡£Ç°¼¸ÆÚ &ld ......

DELPHIÖеĿì½Ý·½Ê½Ò»ÀÀ(ÍêÈ«Õýʽ°æ)


 1.SHIFT+Êó±ê×ó¼ü    ÏÈÑ¡ÖÐÈÎÒ»¿Ø¼þ,°´¼üºó¿ÉÑ¡Öд°Ìå(Ñ¡Öпؼþºó°´EscЧ¹ûÒ»Ñù)
 2.Shift+F8          µ÷ÊÔʱµ¯³öCPU´°¿Ú¡£
 3.Shift+F10         µÈÓÚÊó±êÓÒ¼ü£¨Windows¿ì½Ý¼ ......

ÔÚDELPHIÖÐÏÔʾGIF¶¯»­

ÏëûÏë¹ýÔÚDELPHIÖÐÏÔʾGIF¶¯»­£¿DelphiµÄÓû§ÊǷdz£ÐÒÔ˵ģ¬ÒòΪÓÐÃâ·Ñ¿Ø¼þ¿ÉÒÔʹÓá£×îÖøÃûµÄ¿Ø¼þÊÇAnders Melander±àдµÄTGifImage£¬²¢ÌṩÍêÕûµÄÔ´³ÌÐò¡£ËüÔ­À´µÄÖ÷Ò³ÊÇwww.melander.dk/delphi/gifimage/£¬²»¹ýÓкܳ¤Ê±¼äûÓиüÐÂÁË¡£Èç¹ûÒªÔÚа汾µÄDelphiÖÐʹÓ㬿ÉÒÔ´Óhttp://finn.mobilixnet.dk/delphi/ÏÂÔØFinn T ......

Delphi¿ª·¢ÈËÔ±µÄ±à³Ìϰ¹ß

¹Ø¿ª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆ­È¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
     &nbs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ