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;
Ïà¹ØÎĵµ£º
µÚÒ»ÖÖ·½·¨,ʹÓÃSelectDirectory º¯Êý ,ÔÚShellApiÖÐ
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='ÕâÊÇä¯ÀÀÎļþ¼ÐµÄ˵Ã÷ÎÄ×Ö£¬¿ÉÒÔ¸ù¾ÝÐèÒª½ ......
//¼Óһϰ´Å¥£¬¼ÓÒ»¸ö¶Ô»°¿ò¾ÍOKÀ²
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
----------------------- ......
delphiºÜÔç¾ÍÒѾ¿ÉÒÔ½øÐÐÈý²ãµÄ¿ª·¢ÁË. µ«Ò»Ö±µ½ÏÖÔÚ, ÍøÉÏÕâ·½ÃæµÄ¶«Î÷Ì«ÉÙ ÁË. Ҫô̫ÀÏ, ÉõÖÁ²»ÍêÈ«ÕýÈ·. ÀýÈç:
ÈçºÎ½øÐжà±í¸üÐÂ(Ìá½»), ºÜ¶à»Ø¸´»¹ÊÇ˵ÓÃADOConnectionµÄÊÂÎñ, (Èç¹ûҪͬʱ¸üÐÂSQL SERVERºÍOracleÊý¾Ý¿âµÄ±íÔõô°ì).
µ±È»Ò²ÓÐ˵ÓÃSetComplete, SetAbortµÄ. µ«ËµµÄºÜ¼òµ¥, ÆäÖеÄ×¢ÒâÊÂÏîÓÖÊÇÊ ......
DelphiÊý¾Ý¿â±à³ÌÒ»ÈÕͨ¡£
¡¡¡¡Í¨³£Çé¿öÏ£¬ÀûÓà Delphi ¿ª·¢Êý¾Ý¿âÓ¦ÓóÌÐò£¬¿ÉÒÔʹÓÃTTable¡¢TDataSource¡¢TDBEdit¡¢TDBNavigatorµÈ¹¹¼þ¡£Ö»ÒªÕýÈ·ÉèÖÃÁ˹¹¼þµÄijЩÊôÐÔ£¬ÔÙ±àд±ØÒªµÄ³ÌÐò´úÂë¶ÔһЩÌض¨Ê¼þ½øÐд¦Àí£¬¾ÍÄܹ»Íê³É¶Ô¶àÖÖÊý¾Ý¿â½øÐеÄÊý¾Ý´¦Àí£¬ÀýÈ磺¼Ç¼µÄÊäÈë¡¢Ð޸ġ¢É¾³ýºÍ²éѯµÈ¡£ÕâÑù×öËäȻֻÐèÒª±à ......
Windows API µÄÊý¾ÝÀàÐÍÓë Delphi Êý¾ÝÀàÐͶÔÕÕ±í
×÷Õߣºadmin À´Ô´£ºÎ´Öª ÈÕÆÚ£º2010-1-28 13:10:56 ÈËÆø£º43 ±êÇ©£ºAPI
µ¼¶Á£ºWindowsAPIµÄÊý¾ÝÀàÐÍÓëDelphiÊý¾ÝÀàÐͶÔÕÕ±í
Windows Êý¾ÝÀàÐÍ
Delphi Êý¾ÝÀàÐÍ
ÃèÊö
LPSTR
PAnsiChar
×Ö·û´®Ö¸Õë
LPCSTR
PAnsiChar
×Ö·û´®Ö¸Õë
DWORD
LongWo ......