Ò»ÃûDelphi³ÌÐòÔ±µÄ¿ª·¢Ï°¹ß
Ò»£®½¨Á¢¹¤³ÌĿ¼
Ê×ÏÈ£¬µÚÒ»²½Òª×öµÄ£¬µ±È»ÊǸøÐÂÏîÄ¿½¨Ò»¸öµ¥¶ÀµÄĿ¼£¨±ðЦ£©¡£Ä¿Â¼Ãû³ÆÓëÏîÄ¿Ãû³ÆÍ¬Ãû£¬»òÕßÁíȡһ¸öÒ²¿É£¬Ö»ÒªÇå³þ¡¢¼òÁ·¡£È»ºó£¬ÔÚ´ËĿ¼Öд´½¨ÒÔϸ÷¸öĿ¼£º
<Doc>£ºÓÃÀ´´æ·Å¸ÃÏîÄ¿Ïà¹ØµÄ¿ª·¢Îĵµ£¨ÐèÇó˵Ã÷£¬¸ÅÒªÉè¼Æ£¬ÏêϸÉè¼ÆµÈµÈµÈµÈ£©£»
<Source>£ºÓÃÀ´´æ·ÅDelphiÔ´³ÌÐòÖеĔ.Dpr”,”.Pas”,”.Dfm”µÈÎļþ£»
<Dcu>£º¸ÃĿ¼Öдæ·Å”.Dcu”Îļþ£¬½«’.Pas’Óë’.Dcu’Îļþ·Ö¿ª´æ·ÅÖ»ÊÇΪÁËÈÃSourceĿ¼µÄÄÚÈݸü¼ÓÇå³þһЩ£»
<Bin>£º´æ·Å¹¤³ÌµÄÊä³öÎļþ£¬±ÈÈç”.Exe”,”.Dll”»òÕß”.Ocx”µÈµÈ£»
<Log>£ºÓÃÀ´´æ·ÅÈÕÖ¾Îļþ£»Í¨³£ÔÚÕâ¸öĿ¼ÖÐÎÒ»á·ÅÒ»¸ö”<ÏîÄ¿Ãû³Æ>³ÌÐòÔ±ÈÕÖ¾.Txt”Îļþ¡£
<Images>£ºµ±È»ÊÇ´æ·Å¹¤³ÌÖÐÓõ½µÄͼƬµÄĿ¼ÁË¡£Ò»°ãÇé¿öÏ£¬Õâ¸öĿ¼ÊÇÉÙ²»Á˵ġ£¼ÙÈ绹Óõ½ÆäËû×ÊÔ´£¬ÄÇôҲһÑù½¨Á¢¸÷×ÔµÄĿ¼£¬±ÈÈçWav£¬±ÈÈçAviµÈµÈ¡£
¶þ£®ÉèÖù¤³ÌÑ¡Ïî
ÔÚDelphiÖд´½¨Ò»¸öÐµĹ¤³Ì£¬½«´Ë¹¤³Ì±£´æµ½SourceĿ¼ÖУ¬Í¬Ê±£º
a. ѡһ¸öÄÍ¿´µÄ£¬ÓëÏîÄ¿ÓÐЩÁªÏµµÄͼ±ê×÷ΪÕâ¸ö¹¤³ÌµÄͼ±ê¡£µ±È»£¬Õâ¸öͼ±ê¿ÉÄÜÖ»ÊÇÁÙʱÓÃÓõ쬵«ÊÇ×ÜÒª±ÈDelphiĬÈϵÄÄǸöÄÑ¿´µÄÒªºÃ²ÅÐУ¬Òª²»È»£¬Ôõô¶ÔµÃÆð×Ô¼º£¿
b.½«Project Options -> Directories/ConditionalsÒ³ÃæÖеÄOutput DirectoryÉèÖÃΪBinĿ¼£»
c.½«Unit output DirectoryÉèÖÃΪDcuĿ¼¡£
Èý£®Ìí¼Ó³£Á¿µ¥Ôª
Ìí¼ÓÒ»¸öеÄUnit£¬Áí´æÎª“unt<¹¤³ÌÃû> Consts.Pas”£¬ÓÃÀ´±£´æ¹¤³ÌÖÐÓõ½µÄ³£Á¿¡£
ËÄ£®Óйش°Ì壨Form£©¼°µ¥Ôª(Unit)
°´ÕÕÐÙÑÀÀûÃüÃû·¨Ôò¸øFormÃüÃû£¬ÔòÒ»¸öÓÃÀ´µÇ¼µÄ´°Ìå¿ÉÒÔÃüÃûΪ’FrmLogin’£¬¶øÆäµ¥ÔªÃû¿ÉÒÔΪ’untLogin’¡£Í¨³££¬Á½¸ö¶ÔÓ¦µÄFormºÍUnitµÄÃû³ÆÔÚ³ýÈ¥’Frm’»ò’unt’µÄËõдºóÓ¦µ±±£³ÖÒ»Ö¡£
ÔÚUnitµÄÍ·²¿Ìí¼Ó±¾µ¥ÔªµÄ×¢ÊÍ£¬×¢Ê͵ĸñʽ¿ÉÒÔ²ÎÕÕDelphiµÄÔ´Â룬µ«ÊÇÖÁÉÙÓ¦µ±°üº¬ÒÔϼ¸Ï¹¦ÄÜÃèÊö£»×÷Õߣ»°æÈ¨£»´´½¨Ê±¼ä£»×îºóÐÞ¸Äʱ¼ä£»ÐÞ¸ÄÀúÊ·µÈµÈ¡£
½«Ð´´½¨ºÃµÄFormµÄCaptionÉèÖÃΪ¸ÃFormÀàµÄÃû³Æ£¬¶ø²»ÊÇʹÓÃDelphiĬÈϵġ£±ÈÈ磬
Ïà¹ØÎĵµ£º
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬ËÖªµÀÔõÑù°Ñ¿Õ¸ñ²»ÈÏΪÊÇ·Ö¸î·ûµÄ£¿£¿ TStringsÊÇÒ»¸ö³éÏóÀ࣬ÔÚʵ¼Ê¿ª·¢ÖУ¬ÊdzýÁË»ù±¾ÀàÐÍÍ⣬ӦÓõÃ×î¶àµÄ¡£ ³£¹æµÄÓ÷¨´ó¼Ò¶¼ÖªµÀ£¬ÏÖÔÚÀ´ÌÖÂÛËüµÄһЩ¸ß¼¶µÄÓ÷¨¡£ ÏȰÑÒªÌÖÂ۵öÊôÐÔÁгöÀ´£º 1
ȷʵºÜÓÐÓ㬵«ÊÇÕâ¸öÔõô°Ñ¿Õ¸ñҲĬÈÏΪ·Ö¸î·ûÁËÄØ£¬ËÖªµÀÔõÑ ......
ÓÐʱºòÎÒÃÇÐèÒª¿ÉÒÔ¸ßËÙ¼ìË÷µÄÁÐ±í£¬×ÔÈ»»áÏëµ½¹þÏ£±í£¬Æ½Ê±ÎÒÃÇ¿ÉÄÜÏëµ½ÓÃIniFilesµ¥ÔªÀïµÄTHashedStringList£¬µ« THashedStringListÿ´ÎÐÂÔöÒ»¸öItemºó¶¼ÐèҪˢÐÂÒ»±é£¬Êý¾Ý¶àÁË¿ÉÄÜ»áÓеãÂý£¬¸Ð¾õ²»Ì«ºÃ£¬¶øTStringHashÔòÖ»ÄÜ´æ IntegerÐ͵Ä(ËäÈ»ÎÒÃÇ¿ÉÒ԰ѱðµÄ¶«Î÷Ç¿ÖÆ×ª³ÉÕûÐÍ´æ½øÈ¥£¬µ«¸Ð¾õ²»Ì«ºÃ)¡£TStringHashÒÑ¾Ê ......
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TDemoForm = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GetButton: TBitBtn;
CloseButton: TBitBtn;
Bevel1: TBevel;
Label5: TLabel;
......
1£®µ÷ÓÃAPIº¯Êý
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://Ö¸¶¨Ô´ÎļþÃû
AssignFile(f2,ToFileName); file://Ö¸¶¨Ä¿±êÎļþÃû
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise ......