ÔÚDelphi³ÌÐòÖвÙ×÷×¢²á±í(ת)
32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æȡע²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏ󡣶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ¡¢Ö¸¶¨Òª²Ù×÷µÄ¼ü
¡¡¡¡²Ù×÷×¢²á±íʱ£¬Ê×ÏÈÓ¦Ö¸¶¨²Ù×÷µÄÖ÷¼ü£ºÏȸøÊôÐÔRootKey¸³ÖµÒÔÖ¸¶¨¸ù¼ü£¬È»ºóÓ÷½·¨OpenKeyÀ´Ö¸¶¨Òª²Ù×÷µÄÖ÷¼üÃû¡£
¡¡¡¡1.Ö¸¶¨¸ù¼ü(RootKey)¡£
¡¡¡¡¸ù¼üÊÇ×¢²á±íµÄÈë¿Ú£¬Ò²×¢²á±íÐÅÏ¢µÄ·ÖÀ࣬ÆäÖµ¿ÉΪ£º
¡¡¡¡HKEY-CLASSES-ROOT£º´æ´¢Õû¸öϵͳ¶ÔÏóÀàÐÅÏ¢£¬ÈçActiveX¶ÔÏó×¢²á¡¢Îļþ¹ØÁªµÈÐÅÏ¢¡£
¡¡¡¡HKEY-CURRENT-USER£º´æ´¢µ±Ç°Óû§µÄÅäÖÃÐÅÏ¢¡£ÎªÊôÐÔRootKeyµÄĬÈÏÖµ¡£
¡¡¡¡HKEY-LOCAL-MACHINE£º´æ´¢µ±Ç°ÏµÍ³µÄÈíÓ²¼þÅäÖÃÐÅÏ¢¡£Ó¦ÓóÌÐò×Ô¼ºµÄÐÅÏ¢¿ÉÒÔ´æ´¢Ôڸøù¼üÏ¡£
¡¡¡¡HKEY-USERS£º´æ´¢ËùÓÐÓû§Í¨ÓõÄÅäÖÃÐÅÏ¢¡£
¡¡¡¡»¹¿ÉÒÔÊÇHKEY-CURRENT-CONFIG¡¢HKEY-DYN-DATA¡£
¡¡¡¡2.Ö¸¶¨Òª²Ù×÷µÄÖ÷¼ü¡£
¡¡¡¡Function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
¡¡¡¡Key£ºÖ÷¼üÃû£¬ÊǼüÃûÈ«ÃûÖгýÈ¥¸ù¼üµÄ²¿·Ö£¬ÈçSoftware¡£
¡¡¡¡CanCreate£ºÔÚÖ¸¶¨µÄÖ÷¼üÃû²»´æÔÚʱ£¬ÊÇ·ñÔÊÐí´´½¨¸ÃÖ÷¼ü£¬True±íʾÔÊÐí¡£
¡¡¡¡·µ»ØÖµTrue±íʾ²Ù×÷³É¹¦¡£
¡¡¡¡3.¹Ø±Õµ±Ç°Ö÷¼ü¡£
¡¡¡¡ÔÚ¶ÁÈ¡»ò´æ´¢ÐÅÏ¢Ö®ºó£¬Ó¦¼°Ê±½«¹Ø±Õµ±Ç°Ö÷¼ü£ºprocedure CloseKey¡£
¡¡¡¡Èý¡¢´Ó×¢²á±íÖжÁÈ¡ÐÅÏ¢
¡¡¡¡ReadϵÁз½·¨´Ó×¢²á±í¶ÁÈ¡Ö¸¶
Ïà¹ØÎĵµ£º
Chr ½«Ò»¸öÓÐÐòÊý¾Ýת»»ÎªÒ»¸öANSI×Ö·û
Ord ½«Ò»¸öÓÐÐòÀàÐÍֵת»»ÎªËüµÄÐòºÅ
Round ת»»Ò»¸öʵÐÍֵΪËÄÉáÎåÈëºóµÄÕûÐÍÖµ
Trunc ת»»Ò»¸öʵÐÍֵΪСÊý½Ø¶ÏºóµÄÕûÐÍÖµ
Int ·µ»Ø¸¡µãÊýµÄÕûÊý²¿·Ö
IntToStr ½«Êýֵת»»Îª×Ö· ......
delphiÖеÄrealAudio ActiveX¿Ø¼þµÄʹÓÃ
×÷Õß:seeker ÈÕÆÚ:2009-04-26
1£º{=====================´ò¿ª=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......
¿´ÈçÏ´úÂ룺
var
buffer:array [0..6] of char;
begin
buffer:='delphi';
end;
±àÒëͨ¹ý
ÔÙ¿´ÈçÏ´úÂ룺
var
buffer:array [1..7] of char;
begin
buffer:='delphi';
end;
±àÒë´íÎó£º
Incompatible types: 'Array' and 'String'
Õæ²»ÖªµÀ ......
ÒÔÇ°Óùýdelphi 2007µÄÕâ¸öº¯ÊýµÄ£¬²ÎÊý³¬¶à£¬ÏÖÔڵĹ«Ë¾ÓÃD7£¬½á¹ûÍøÉÏÒ»²éÕâ¸öº¯Êý£¬Óò»³ÉÁË£¬ÔÀ´ÎÒÓôíÁ˺¯Êý
unit QDialogs;
{$IFDEF LINUX}
function SelectDirectory(const Caption, Root: WideString;
var Directory: WideString; ShowHidden: Boolean = False): Boolean;
{$ENDIF}
{$IFDEF MSWINDOW ......