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

£»DELPHIÖÆ×÷¼Òô»°Í²Ê¾ÒâͼÔõÑùʵÏÖ£¿

´ó¼ÒºÃ£ºÎÒÏÖÔÚÔÚѧϰ¼Òô·½ÃæµÄ֪ʶ£¬Çë½ÌÒ»¸öÎÊÌ⣬ÔõÑù²ÅÄÜʵÏÖÓÃÒ»¸ö¼òµ¥µÄ¿Ø¼þ±íʾ¼ÒôµÄʱºò»°Í²µÄÒôÁ¿£¿ÈôÓÐÕâ·½ÃæµÄ֪ʶ»ò´úÂëÇë¸øµãÎÒ°ïÖú£¬·Ç³£¸Ðл¡£
up

ÓÃTtrackBar¶¼¿ÉÒÔ°¡¡£²»¹ýÄãÒªÕÒÏà¹ØµÄAPIʵÏÖ¶ÁÒôÁ¿ºÍÉèÖÃÒôÁ¿

ÎÊÌâ²¹³ä£ºÎÒµÄÒâ˼Êǵ±¶Ô»°Í²½²»°µÄʱºò£¬ÓиöͼʾÒ⣬±íʾÓÐÒôƵÉù²¨ÊäÈ룬ÉùÒô´ó¾Í¸ßµã£¬ÉùÒôС¼¸µÍµã£¬ÕâÑùµÄÄѲ»ÄÑʵÏÖ£¿Ð»Ð»

¸øÄã¸öÀàhttp://hi.baidu.com/chinacharis/blog/item/76197c2826a12af999250a07.html
×Ô¼ºÑ§Ï°°É

²¨ÐÎͼÊǸù¾ÝÉùÒô´óС»­³öÀ´µÄ£¬Äã»ñÈ¡µ½ÉùÒô´óСºó×ÔÈ»¾Í¿ÉÒÔ»­³öÀ´ÁË


ÕâÊÇÎÒÒ»ÄêǰдµÄ¡£¡£¡£¡£µ÷Óúܼòµ¥¾Í
var FSoundCap  : TSoundCap ;
FSoundCap := TSoundCap.Create(handle);
FSoundCap.Start;
È»ºóÔÚÒ»¸ö¶¨Ê±Æ÷ÀïÈ¡
FSoundCap.MaxValue ;
Õâ¸öÀàдµÃ²»ÔõôºÃ£¬Ã»×÷Ð޸쬵±Ê±±È½Ï¼±Óã¬ËùÒÔҲûÔõô×÷ÓÅ»¯

ÊÕ²Ø

ÒýÓÃ
ÕâÊÇÎÒÒ»ÄêǰдµÄ¡£¡£¡£¡£µ÷Óúܼòµ¥¾Í
var FSoundCap  : TSoundCap ;
FSoundCap := TSoundCap.Create(handle);
FSoundCap.Start;
È»ºóÔÚÒ»¸ö¶¨Ê±Æ÷ÀïÈ¡
FSoundCap.MaxValue ;
Õâ¸öÀàдµÃ²»ÔõôºÃ£¬Ã»×÷Ð޸쬵±Ê±±È½Ï¼±Óã¬ËùÒÔҲûÔõô×÷ÓÅ»¯


û̫¿´Ã÷°×Ôõôµ÷Óã¿

ÒýÓÃ
ÎÊÌâ²¹³ä£ºÎÒµÄÒâ˼Êǵ±¶Ô»°Í²½²»°µÄʱºò£¬ÓиöͼʾÒ⣬±íʾÓÐÒôƵÉù²¨ÊäÈ룬ÉùÒô´ó¾Í¸ßµã£¬ÉùÒôС¼¸µÍµã£¬ÕâÑùµÄÄѲ»ÄÑʵÏÖ£¿Ð»Ð»

°ï¶¥

ÒýÓÃ
ÒýÓà 7 Â¥ mdejtod µÄ»Ø¸´: <


Ïà¹ØÎÊ´ð£º

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

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

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

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

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