Delphi²Ù×÷×¢²á±íµÄÒ»°ã²½Öè
Delphi²Ù×÷×¢²á±í²½ÖèÈçÏ£º
-------------------------------------
1£©ÔÚUsesÖÐÌí¼ÓRegistryµ¥Ôª£»
2£©ÉùÃ÷TRegistry¶ÔÏó£»
3£©´´½¨TRegistry¶ÔÏó£»
4£©Ö¸¶¨¸ù¼ü£»
----------------try------------------
5£©´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
6£©¶Áд²Ù×÷£»
7£©±£´æ²¢¹Ø±ÕÖ÷¼ü£»
--------------finally----------------
8£©ÊÍ·ÅTRegistry¶ÔÏó£»
---------------end------------------
==========================================================
Uses Registry; //Ìí¼ÓRegistryµ¥Ôª£»
var
MyReg: TRegistry; //ÉùÃ÷TRegistry¶ÔÏó£»
begin
MyReg := TRegistry.Create; //´´½¨TRegistry¶ÔÏó£»
try
MyReg.RootKey := HKEY_LOCAL_MACHINE; //Ö¸¶¨¸ù¼ü£»
if MyReg.OpenKey('Ö÷¼üÃû', true) then //´ò¿ªÐèÒª²Ù×÷µÄÖ÷¼ü£»
begin
MyReg.ReadType(---); //¶Á×¢²á±íÎļþ
MyReg.WriteType(---); //дע²á±íÎļþ
end;
MyReg.CloseKey; //±£´æ²¢¹Ø±ÕÖ÷¼ü£»
finally
MyReg.Free; //ÊÍ·ÅTRegistry¶ÔÏó£»
end;
end;
==========================================================
function OpenKey(const Key:String; CanCreate:Boolean):Boolean;
//µÚ¶þ¸ö²ÎÊýÖ¸Ã÷£¬Èç¹ûÐèÒª´ò¿ªµÄÖ÷¼ü²»´æÔÚʱÊÇ·ñ´´½¨¸ÃÖ÷¼ü
function CreateKey(const Key:String):Boolean;
//´Ë·½·¨ÓÃÓÚ´´½¨Ö÷¼ü£¬Êµ¼ÊÉϲ¢²»³£ÓÃ
function KeyExists(const Key:String):Boolean;
//ÅжÏÖ÷¼üÊÇ·ñ´æÔÚ
(***¶ÔÓÚ×Ö·û´®ÀàÐ͵IJÙ×÷º¯Êý***)
function ReadString(const Name: String):String;
procedure WriteString(const Name, Value: String);
//¶ÔÓÚÆäËüÊý¾ÝÀàÐ͵Ä×¢²á±í¶Áд
Ïà¹ØÎĵµ£º
Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......
ÒÔÏÂÊÇÔÚÍøÉÏÊÕ¼¯µÄһЩ¶ÔÎÞÀàÐͲÎÊýµÄ˵Ã÷.¸öÈËÀí½âÎÞÀàÐͱäÁ¿¾ÍÊÇÒ»¸öÖ¸Õë.
ÏóDelphiÖÐfunction Read(var Buffer; Count: Longint): Longint; override;ÏóBufferÕâÑùûÓÐÀàÐ͵IJÎÊý¾¿¾¹Ó¦¸ÃÔõô¸ø²ÎÊý£¿£¿£¿£¿
Õâ˵Ã÷BufferÊÇͨ¹ýµØÖ··½Ê½´«µÝµÄ£¬Ò»°ã˵À´Ö» ......
boolÊÇLongBoolÀàÐÍ¡£
DelphiÖж¨ÒåÁËËÄÖÖ²¼¶ûÀàÐÍ£ºBoolean£¬ByteBool£¬WordBoolºÍLongBool¡£ºóÃæÈýÖÖ²¼¶ûÀàÐÍÊÇΪÁËÓëÆäËûÓïÑÔ¼æÈݶøÒýÈëµÄ£¬Ò»°ãÇé¿öϽ¨ÒéʹÓÃBooleanÀàÐÍ¡£
ÕâËÄÖÖÀàÐ͵IJ¼¶ûÖµÕ¼ÓÃÄÚ´æµÄÊýÁ¿ÈçÏ£º
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes£¨1 Word£©
LongBool 4 Bytes£¨2 Words£©
¶Ô ......
ËùÔÚµ¥Ôª£º DateUtils
Day ¿ªÍ·µÄº¯Êý
1¡¢DayOf()
ÃèÊö£º ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£ ÀýÈ磺 showmessage(DateTimetostr(dateof(now()))); ÄãµÃµ½µÄÊÇ 2003/03/19 ¶ø showmessage(DateTimetostr((now()))); µÃµ½µÄÊÇ
2¡¢DateTimeTostr()
ÃèÊö£º Da ......
ExpressQuantumGrid.Suite.v6.30 ÔÚDelphi 7Öеݲװ
´óÃû¶¦¶¦µÄGrid¿Ø¼þ£¬Ã»ÓÐÕÒµ½´òºÃ°üµÄ£¬ÒÔÏÂÊÇÊÖ¶¯°²×°²½Öè
=====================
1¡¢±ØÐëÅäÌ×°²×°ÈçÏÂ7×é¿Ø¼þ£¬ÒѾ°²×°¹ýµÄÔòÌø¹ý
XP Theme Manager
ExpressGDI+ Library
ExpressLibrary
ExpressExport Library
ExpressDataController
ExpressEditors Lib ......