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

Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð

 Delphi±àдϵͳ·þÎñ¶þ£ºÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ð ÊÕ²Ø
 Windows 2000/XP/2003µÈÖ§³ÖÒ»ÖÖ½Ð×ö“ϵͳ·þÎñ³ÌÐò”µÄ½ø³Ì£¬ÏµÍ³·þÎñºÍ×ÀÃæ³ÌÐòµÄÇø±ðÊÇ£º
ϵͳ·þÎñ²»Óõǽϵͳ¼´¿ÉÔËÐУ»
ϵͳ·þÎñÊÇÔËÐÐÔÚSystem Idle Process/System/smss/winlogon/servicesÏµģ¬¶ø×ÀÃæ³ÌÐòÊÇÔËÐÐÔÚExplorerϵģ»
ϵͳ·þÎñÓµÓиü¸ßµÄȨÏÞ£¬ÏµÍ³·þÎñÓµÓÐSytemµÄȨÏÞ£¬¶ø×ÀÃæ³ÌÐòÖ»ÓÐAdministratorȨÏÞ£»
ÔÚDelphiÖÐϵͳ·þÎñÊǶÔ×ÀÃæ³ÌÐò½øÐÐÁËÔÙÒ»´ÎµÄ·â×°£¬¼Èϵͳ·þÎñ¼Ì³ÐÓÚ×ÀÃæ³ÌÐò¡£Òò¶øÓµÓÐ×ÀÃæ³ÌÐòËùÓµÓеÄÌØÐÔ£»
ϵͳ·þÎñ¶Ô×ÀÃæ³ÌÐòµÄDoHandleException×öÁ˸Ľø£¬»á×Ô¶¯°ÑÒì³£ÐÅϢдµ½NT·þÎñÈÕÖ¾ÖУ»
ÆÕͨӦÓóÌÐòÆô¶¯Ö»ÓÐÒ»¸öỊ̈߳¬¶ø·þÎñÆô¶¯ÖÁÉÙº¬ÓÐÈý¸öÏ̡߳££¨·þÎñº¬ÓÐÈý¸öỊ̈߳ºTServiceStartThread·þÎñÆô¶¯Ị̈߳»TServiceThread·þÎñÔËÐÐỊ̈߳»ApplicationÖ÷Ị̈߳¬¸ºÔðÏûϢѭ»·£©£»
  ժ¼´úÂ룺
  procedure TServiceApplication.Run;
  begin
    .
    .
    .
      StartThread := TServiceStartThread.Create(ServiceStartTable);
      try
        while not Forms.Application.Terminated do
          Forms.Application.HandleMessage;
        Forms.Application.Terminate;
        if StartThread.ReturnValue <> 0 then
          FEventLogger.LogMessage(SysErrorMessage(StartThread.ReturnValue));
      finally
        StartThread.Free;
      end;
     .
     .
     .
  end;
  procedure TService.DoStart;
  begin
    try
      Status := csStartPending;
      try
        FServiceThread := TServiceThread.Create(Self);
    


Ïà¹ØÎĵµ£º

ÈçºÎÓà DELPHI »ñÈ¡ CPU µÄÐòÁкÅ

      ÔÚ¶àCPU»ò¶àºËCPUÖУ¬»áËæ»úµÄ»ñµÃ²»Í¬µÄÐòÁкÅ.Õâ¾ÍΪÎÒÃǸù¾ÝCPUÐòÁкÅÀ´ÖÆ×÷×¢²á»ú´øÀ´Á˺ܴóµÄÂé·³¡£
Windows 2000/XPÔÊÐíÉèÖýø³ÌºÍÏ̵߳ĹØÏµ¡£»»¾ä»°Ëµ£¬¿ÉÒÔ¿ØÖÆÄĸö CPU Äܹ»ÔËÐÐijЩÏ̡߳£Õâ³ÆÎªAffinity Mask¡£WindowsÌṩÁËÉèÖÃÏàËÆÐԵĺ¯ÊýSetProcessAffinityMask £¬Ê¹ÓÃËü¿É ......

ÉÏλ»úÍ깤 ——delphi ¸æÒ»¶ÎÂä

ȫͼ

±£´æÊý¾ÝΪtxtÎĵµ

±£´æÎªÍ¼Ïñ

´òÓ¡——pdf´òÓ¡»ú
 
ÏÂÒ»²½ ÓÐʱ¼äµÄ»° ʵÏÖ ±êÇ©Ò³Ãæ   USBת´®¿Ú×Ô¶¯Ê¶±ðÉ豸  //ÖØÐ»ص½STM32ÉÏÃæ-02-26  21:35:21
......

DelphiÓÎÏ·¿ª·¢ÍøÖ·´óÈ«[תÌù]


Source Code
http://www.codefans.com/CodeList/Catalog_5_CodeTime_Desc_1.html
http://www.vscodes.com/sitemap.html
http://www.itlove.net/Soft/261/
DelphiX
http://www.micrel.cz/Dx/
http://www.delphi3d.net/index.php
http://www.pascalgamedevelopment.com/
http://www.2ccc.com/article.asp?articleid ......

C#ѧϰ¼°ÓëdelphiµÄ±È½Ï£¨¶þ£©

      C#µÄToolTip£¨delphi½ÐHint£©»úÖÆ·Ç³£¹Ö£¬²»ÊÇÏñdelphiµÄÔª¼þÒ»Ñù£¬Ã¿¸öTControlÓÐÒ»¸öHintÊôÐÔ£¬C#ÓÐÒ»¸öToolTipÔª¼þ£¬µ±°ÑÕâ¸öÔª¼þ´Ó¹¤¾ßÏäÀ­µ½formÉϺó£¬Ñ¡ÖÐformÉϵÄÈκÎcontrolÔª¼þ£¬ÔÚÊôÐÔ´°Ì壨Object Inspector£©ÉϾͻá¶à³öÒ»¸öÊôÐÔ“toolTip1ÉϵÄToolTip”£¬Èç¹û¶àÀ­¼¸¸ ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð

 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;
ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
X: Integer;
begin
X := 10;
DoubleTheValue (X);
x±äÁ¿µÄÖµ±ä³ÉÁË20 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ