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±£´æ¶ÁÈ¡utf-8µÄÎı¾Îļþ
¸ø¿Í»§×öÁËÒ»¸öÅúÁ¿Ê¶±ðͼÏñ²¢ºÏ³ÉË«²ãpdfµÄ³ÌÐò£¬×îºó¿Í»§ÐèÒªÉú³ÉµÄͬʱ¸½´øÒ»·Ý¼Çʱ¾Îļþ£¬¾ÍÊÇOCR¹ýºóµÄÎı¾£¬²¢Ö¸¶¨utf-8¸ñʽµÄ¡£ÔÚ´¦Àíutf-8ʱ³öÏÖÁ˵ãСÎÊÌ⣬ÏÖÔÚ×ܽáÈçÏÂ
Ê×ÏÈ ÀûÓÃdelphi×Ô´øµÄUTF8Encodeº¯Êý£¬½«ÆÕͨ×Ö·ûת»»Îªutf-8±àÂë
´´½¨Ò»¸öÁ÷£¬MemoryStream»òFileStr ......
delphiºÜÔç¾ÍÒѾ¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·. ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......
¹Ø¿ª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
&nbs ......
Ë÷ÒýÊÇitemindex
itemÊÇÀïÃæµÄÄÚÈÝ
Ë÷ÒýµÄ»°£¬ÊÇ´Ó0¿ªÊ¼
item itemindex
A 1
B 2
C 3
listbox1.items.count¾ÍÊÇÕâ¸öÁбí¿òÀï×ܹ²ÓжàÉÙÏî. ......
±¾ÊéÈÚºÏÁËÔÚWindowsÏÂÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄÀíÂÛºÍʵ¼ù£¬È«Ãæ¶øÉîÈëµØ½éÉÜÁËÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄ³£Ó÷½·¨ºÍ¼¼ÇÉ¡£ÄÚÈݰüÀ¨Óû§½çÃæÉè¼Æ¡¢Í¼ÐÎͼÏñ±à³Ì¡¢Îļþ¹ÜÀí¡¢¶àýÌå¼¼Êõ¡¢ÏµÍ³¿ØÖÆ¡¢ÍøÂçºÍÊý¾Ý¿â±à³ÌÒÔ¼°ÓÎÏ·ÖÆ×÷µÈÄÚÈÝ¡£ ÏêϸÔĶÁÍ»ÆÆDelphi 7.0±à³ÌʵÀýÎåÊ®½²£¬À´×ÔITµç×ÓͼÊé¹Ý ......