Delphi Services ÀïÃæFindwindow ÎÊÌâ
ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6
Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle:HWND;
EVMTitle: String;
begin
EVMHandle:=FindWindow(nil,'console');
Showmessage(inttostr(EVMHandle));
end;
µ«Èç¹ûдһ¸ödelphi service application,
·µ»ØµÄhandleÖµÒ»Ö±ÊÇ0
Delphi(Pascal) code:
procedure TSvcChkHandle.ServiceStart(Sender: TService;
var Started: Boolean);
var
EVMHandle: HWND;
begin
try
Coinitialize(nil);
EVMHandle:=FindWindow(nil,'console');
Writelog(inttostr(EVMHandle));
Started := True;
except
On E: Exception do LogMessage(E.Message);
end;
end;
console ÊÇÎÒÒ»¸öÓ¦ÓóÌÐòµÄ´°¿Ú±êÌâ
ÔÚÏߵȣ¬Ð»Ð»
ÓÐûÓÐʲô·½·¨ÔÚserviceÀïÃæ¿ÉÒÔ¼ì²éijһ¸öÓ¦ÓóÌÐòÊÇ·ñÔÚÔËÐУ¿
ÀϵIJúÆ·ÔÚserviceÀïÓÃFindwindow À´ÅжÏÓ¦ÓóÌÐòÊÇ·ñÔËÐУ¬»³ÒÉÊÇ·ñwindows2000ÀïÃæ¿ÉÒÔ
£¬µ«XP»òÕ߸ü¸ß°æ±¾ÓÐÎÊÌ⣬ÎÒÔÚÍøÉϲ鵽ºÜ¶àÀàËÆÎÊÌ⣬µ«»¹Ã»Óнâ¾öÎÒĿǰÎÊÌâµÄ·½·¨¡£
лл¹Ø×¢£¬Çë¼ÌÐøÖ§ÕС£
¿ÉÒÔÓà psapi µ¥ÔªµÄ EnumProcesses »òÕß toolhlp µ¥ÔªµÄ CreateToolhelp32Snapshot£¬ Process32First£¬ Process32Next À´¶¨
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
лл
LZµÄÍ·ÏñºÃåüÃİ¡
·½·¨ºÜ¶à£¬¿´¿´Êý¾Ý½á¹¹»òÕßÍøÉÏdownÒ»¸ö°É£¬³£ÓÿìËÙÅÅÐò·¨
¿ìËÙÅÅÐò£º
procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
var ......
¼ÙÉ迪·¢Ê±Á¬½ÓÁËSQLÊý¾Ý¿â¡£
ÄÇôÔÚ¸ø¿Í»§ÓõÄʱºò£¬Èç¹û¿Í»§»ú×ÓÉÏûÓÐ×°SQLµÄ»°£¬ÄdzÌÐò²»ÊDz»ÄÜÕý³£ÔËÐÐÁËÂð£¿
ÓÐûÓа취ÔÚ¿Í»§»úÉϲ»°´ÕÕSQLµÄÇé¿öÏÂÒ²ÄÜÕý³£ÔËÐгÌÐò¡£
Õâ¸öûÊÔ¹ý¡¢Ó¦¸Ã»áÓнâ¾öµÄ° ......