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 À´¶¨
Ïà¹ØÎÊ´ð£º
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
ËÄܸøÎÒÒ»¸öÅжÏÓÊÏäÊÇ·ñºÏ·¨µÄÀý×Ó
¶àл
ÌṩЩ±ðµÄ£º
µç×ÓÓʼþµØÖ·µÄ¹¹³É
¡¡¡¡µç×ÓÓʼþµØÖ·µÄ¸ñʽÊÇ¡°USER@SERVER.COM¡±£¬ÓÉÈý²¿·Ö×é³É¡£
µÚÒ»²¿·Ö¡°USER¡±´ú±íÓû§ÐÅÏäµÄÕʺţ¬¶ÔÓÚͬһ¸öÓʼþ½Ó ......
ÎÒÿ´Î±£´æµÄʱºò¶¼ÊÇÈ«²¿±£´æ
µ«ÊÇÓÐЩÓò»µ½
ÎÒÏëÎÊÏÂ
±£´æµÄÄÇЩÄÄЩÊÇÓÐÓÃµÄ ±ÈÈçdfmÕâ¸öºó׺µÄËûÓÐʲôÓÃ
»¹ÓÐÆäËûµÄºó׺µÄËûÃǶ¼ÓÃʲôÓã¿
Ò»°ãÀ´Ëµ£¬±£´æ.dpr, .res, .pas, .dfm¾Í¹»ÁË
dfm´ ......
¼ÙÉ迪·¢Ê±Á¬½ÓÁËSQLÊý¾Ý¿â¡£
ÄÇôÔÚ¸ø¿Í»§ÓõÄʱºò£¬Èç¹û¿Í»§»ú×ÓÉÏûÓÐ×°SQLµÄ»°£¬ÄdzÌÐò²»ÊDz»ÄÜÕý³£ÔËÐÐÁËÂð£¿
ÓÐûÓа취ÔÚ¿Í»§»úÉϲ»°´ÕÕSQLµÄÇé¿öÏÂÒ²ÄÜÕý³£ÔËÐгÌÐò¡£
Õâ¸öûÊÔ¹ý¡¢Ó¦¸Ã»áÓнâ¾öµÄ° ......