DELPHI GetClassName »ñȡָ¶¨´°¿ÚµÄÀàÃû
//ÉùÃ÷:
GetClassName(
hWnd: HWND; {Ö¸¶¨´°¿Ú¾ä±ú}
lpClassName: PChar; {»º³åÇø}
nMaxCount: Integer {»º³åÇø´óС}
): Integer; {·µ»ØÀàÃû´óС; ʧ°Ü·µ»Ø 0}
//²âÊÔ1: н¨Ò»¸ö¹¤³Ì, Ö÷´°¿ÚµÄÀàÃûĬÈÏÊÇ TForm1, ÓóÌÐò»ñȡһÏ¿´¿´
var
ps: array[0..254] of Char;
begin
GetClassName(Handle, ps, 255);
ShowMessage(ps); {TForm1}
end;
//²âÊÔ2: ¿´¿´ "¼ÆËãÆ÷" ´°¿ÚµÄÀàÃû(ÏÈÆô¶¯¼ÆËãÆ÷)
var
h: HWND;
ps: array[0..254] of Char;
begin
h := FindWindow(nil, '¼ÆËãÆ÷'); {Õâ¾äÊÇ»ñÈ¡¼ÆËãÆ÷´°¿ÚµÄ¾ä±ú}
GetClassName(h, ps, 255);
ShowMessage(ps); {SciCalc}
end;
//²âÊÔ3: ¿´¿´¼Çʱ¾´°¿ÚµÄÀàÃû(ÏÈÖØÐÂÆô¶¯¼Çʱ¾):
var
h: HWND;
ps: array[0..254] of Char;
begin
h := FindWindow(nil, 'ÎÞ±êÌâ - ¼Çʱ¾'); {Õâ¾äÊÇ»ñÈ¡¼Çʱ¾´°¿ÚµÄ¾ä±ú}
GetClassName(h, ps, 255);
ShowMessage(ps); {Notepad}
end;
Ïà¹ØÎĵµ£º
Ŀǰ¿ª·¢ÆåÅÆÀàÓÎÏ·µÄ¹«Ë¾ºÍ¸öÈ˺ܶࡣµ«ÊǶÔÓںܶ࿪·¢ÕßÀ´Ëµ£¬¿ª·¢Ò»¿î¾ßÓпÉÀ©Õ¹¡¢Îȶ¨µÄÆåÅÆÀàÓÎÏ·»¹ÊǾßÓÐÒ»¶¨µÄÄѶȡ£Õâ´ÎÎÒ¾ÍÒÔÎÒ¿ª·¢ÆåÅÆÀàÓÎϷΪÀý£¬½²ÊöÈçºÎʹÓÃDELPHIÀ´¿ª·¢ÆåÅÆÀàÓÎÏ·¡£Ï£ÍûÎҵľÑé¿ÉÒÔ¶ÔÓÎÏ·¿ª·¢°®ºÃÕ߯ðµ½Å×שÒýÓñµÄ×÷Óá£Èç¹ûÄú¶ÔÎÒ»ù´¡ÆªÖÐÉæ¼°µ½µÄÄÚÈݷdz£ÊìϤ£¬¿ÉÒÔÖ±½ÓÌø¹ý½øÈëÉè¼ÆÆª¡£ ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button ......
delphiºÜÔç¾ÍÒѾ¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·. ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......
¹Ø¿ª·¢Ï°¹ßµÄһЩÏë·¨£¬ÈçöáÔÚºí£¬²»Í²»¿ì¡£¾¿Æä·¢Ìù¶¯»ú£¬µ±È»²»ÅųýÓÐÆÈ¡²ÎÓë·ÖµÄ¿ÉÄÜ£¬µ«ÁíÒ»·½Ã棬ҲϣÍûÄܸøÍ¬ÐУ¨ÄîXing£©ÕßÌṩһЩ½¨Ò飬»òÕ߲ο¼(Ï£Íû²»ÊÇÎóÈË×ÓµÜ)¡£Í¬Ê±£¬Ò²Ï£Íû¸÷λÄܹ»¾ÍÎÒµÄÕâЩªϰ£¬·¢±íÒ»µã¿´·¨£¬¸ø³öÅúÆÀºÍÖ¸ÕýµÄÒâ¼û¡£Ð»Ð»¡£
Ò»£®½¨Á¢¹¤³ÌĿ¼
&nbs ......
±¾ÊéÈÚºÏÁËÔÚWindowsÏÂÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄÀíÂÛºÍʵ¼ù£¬È«Ãæ¶øÉîÈëµØ½éÉÜÁËÀûÓÃDelphi 7.0¿ª·¢Ó¦ÓóÌÐòµÄ³£Ó÷½·¨ºÍ¼¼ÇÉ¡£ÄÚÈݰüÀ¨Óû§½çÃæÉè¼Æ¡¢Í¼ÐÎͼÏñ±à³Ì¡¢Îļþ¹ÜÀí¡¢¶àýÌå¼¼Êõ¡¢ÏµÍ³¿ØÖÆ¡¢ÍøÂçºÍÊý¾Ý¿â±à³ÌÒÔ¼°ÓÎÏ·ÖÆ×÷µÈÄÚÈÝ¡£ ÏêϸÔĶÁÍ»ÆÆDelphi 7.0±à³ÌʵÀýÎåÊ®½²£¬À´×ÔITµç×ÓͼÊé¹Ý ......