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

delphi ÈçºÎÊÍ·ÅÐéÄâÄÚ´æ

ÈçÌ⣬thanks.
up

http://hi.baidu.com/xinhua_yin/blog/item/a9b4553f2dbe94c67d1e710f.html
×Ô¼º¿´¿´°É

Â¥ÉϵÄÍ·ÏñMMÕæÆ¯ÁÁ¡£

ÐéÄâÄÚ´æ´ÓÀ´Ã»¿¼ÂǹýÊÍ·Å£¬²»¹ýÐéÄâÄÚ´æÊÇÔÚϵͳÖÐ×Ô¼ºÅäÖôóС£¬ÅÌ·ûµÄ
ÕÒÁËÏÂÌû×ÓÕâÑùºÃÏñ¿ÉÒÔ
SetProcessWorkingSetSize(GetCurrentProcess,  $FFFFFFFF,  $FFFFFFFF);

ÒýÓÃ
Â¥ÉϵÄÍ·ÏñMMÕæÆ¯ÁÁ¡£

лл¿ä½±°¡

ÐéÄâÄÚ´æÔÚ³ÌÐò½áÊøºó»á×Ô¶¯ÊÍ·Å£¬Èç¹ûÄãÒªÔËÐÐʱÊͷŵϰ
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    Application.ProcessMessages;
end;


if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    Application.ProcessMessages;
end;
ÕâôºÃÏñÊͷŲ»ÁËÐéÄâÄÚ´æ°¡£¬»¹ÊÇлл£¬¸÷λ¡£


Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......

delphi»æ×ø±êͼ

ÔÚdelphiÖлæ×ø±êͼ¶¼ÓÃʲô¿Ø¼þÄØ£¬Ð»Ð»ÁË
tchart ͼ±í¿Ø¼þ£¬»¹ÓÐÐí¶àµÚÈý·½¿Ø¼þ¶¼¿ÉÒÔ

×Ô¼º±à»òµÚÈý·½¿Ø¼þ¡£

лл¥ÉÏÁ½Î»»Ø´ð£¬Èç¹û×Ô¼º±àµÄ»°¸ÃÈçºÎÏÂÊÖÄØ£¬ÎÒ¸Õ½Ó´¥delphi£¬Ðí¶à¶«Î÷²»ÊǺÜÇå³þ£¬Ð»Ð»ÁË ......

delphi»­²¼»æ×ø±êͼ

ÇëÎÊdelphiÖеĻ­²¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£

¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ