Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 À´¶¨


Ïà¹ØÎÊ´ð£º

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿

Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂ𣿠......

delphi bypass ÊÇʲôÒâ˼

procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean); 
    var 
      Info: INTERNET_PROXY_INFO; 
      Reg : TRegistry;&nb ......

delphi±£´æµÄÎÊÌâ

ÎÒÿ´Î±£´æµÄʱºò¶¼ÊÇÈ«²¿±£´æ
µ«ÊÇÓÐЩÓò»µ½
ÎÒÏëÎÊÏÂ
±£´æµÄÄÇЩÄÄЩÊÇÓÐÓÃµÄ ±ÈÈçdfmÕâ¸öºó׺µÄËûÓÐʲôÓÃ
»¹ÓÐÆäËûµÄºó׺µÄËûÃǶ¼ÓÃʲôÓã¿
Ò»°ãÀ´Ëµ£¬±£´æ.dpr, .res, .pas, .dfm¾Í¹»ÁË

dfm´ ......

delphi paradoxÊý¾Ý¿â

DBGridÁ¬½ÓÊý¾Ý¿âÎļþ£¬ÔÚQueryµÄCachedUpdateΪFalseµÄʱºòÒ»Çж¼Õý³££¬²åÈ룬ɾ³ý
µ±ÎÒ°ÑCachedUpdate¸ÄΪTrueʱ£¬²åÈë±í¾Í»áÌáʾ"Table is not indexed"£¬Èç¹û½¨Á¢Ö÷¼üË÷Òý¾Í¿ÉÒÔÁË£¬µ«ÊÇÎÒµÄÊý¾Ý±í ......

delphi memo¼ÈëÎÊÌâ

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