Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 À´¶¨


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


(ÔÚA ......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi×Ö·û´®²Ù×÷ ¼±

Ë­ÄܸøÎÒÒ»¸öÅжÏÓÊÏäÊÇ·ñºÏ·¨µÄÀý×Ó

¶àл

ÌṩЩ±ðµÄ£º
µç×ÓÓʼþµØÖ·µÄ¹¹³É
¡¡¡¡µç×ÓÓʼþµØÖ·µÄ¸ñʽÊÇ¡°USER@SERVER.COM¡±£¬ÓÉÈý²¿·Ö×é³É¡£
µÚÒ»²¿·Ö¡°USER¡±´ú±íÓû§ÐÅÏäµÄÕʺţ¬¶ÔÓÚͬһ¸öÓʼþ½Ó ......

delphi memo¼ÈëÎÊÌâ

ÎÒÏëÒ»¸ö memo Á½¸öbutton  Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button  edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2C ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ