亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? 018.htm

?? delphi編程
?? HTM
?? 第 1 頁 / 共 3 頁
字號: 
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎教程-->第六章　文件管理（三）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎教程 第六章　文件管理（三）">
<META NAME="description" CONTENT=" - DELPHI基礎教程 - 第六章　文件管理（三）">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋體"}
.tt2 {font: 12pt/15pt "宋體"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%"  bgcolor="#e0e0e0"><strong><A HREF="019.htm"><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="017.htm"><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第六章　文件管理（三）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>2.<font face="宋體" lang="ZH-CN">畫出每個自畫項目　</p>
<p>　　這在</font>TabSet<font face="宋體" lang="ZH-CN">的</font>OnDrawTab<font
face="宋體" lang="ZH-CN">事件處理過程中完成。這一事件處理過程的參數中包含了待畫項目索引、畫板、待畫區域、是否被選中等。這里我們只利用了前三個參數。事實上利用最后一個參數，我們可以對被選中的標簽進行一些特殊的視覺效果處理。這一工作就留給讀者自己去完成。　</p>
</font><p>procedure TFMForm.DriveTabSetDrawTab(Sender: TObject; TabCanvas: TCanvas;</p>
<p>R: TRect; Index: Integer; Selected: Boolean);</p>
<p>var</p>
<p>Bitmap: TBitmap;</p>
<p>begin</p>
<p>Bitmap := TBitmap(DriveTabSet.Tabs.Objects[Index]);</p>
<p>with TabCanvas do</p>
<p>begin</p>
<p>Draw(R.Left, R.Top + 4, Bitmap);</p>
<p>TextOut(R.Left + 2 + Bitmap.Width, R.Top + 2, DriveTabSet.Tabs[Index]);</p>
<p>end;</p>
<p>end;　</p>
<p>6.4.5 <font face="宋體" lang="ZH-CN">文件管理基本功能的實現　</p>
<p>　　在子窗口的</font>File<font face="宋體" lang="ZH-CN">菜單中，定義了文件管理的基本功能，它們是：</p>
<p>　　●</font> Open <font face="宋體" lang="ZH-CN">：打開或運行一個文件</font>(<font
face="宋體" lang="ZH-CN">從文件列表框雙擊該文件可實現同樣效果</font>)</p>
<p><font face="宋體" lang="ZH-CN">●</font> Move <font face="宋體" lang="ZH-CN">：文件在不同目錄間的移動</p>
<p>　　●</font> Copy <font face="宋體" lang="ZH-CN">：文件拷貝</p>
<p>　　●</font> Delete <font face="宋體" lang="ZH-CN">：文件刪除</p>
<p>　　●</font> Rename <font face="宋體" lang="ZH-CN">：文件更名</p>
<p>　　●</font> Properties <font face="宋體" lang="ZH-CN">：顯示文件屬性　</p>
</font><p>6.4.5.1 <font face="宋體" lang="ZH-CN">文件打開　</p>
<p>　　文件打開功能可以運行一個可執行文件，或把文件在與之相關聯的應用程序中打開。文件總是與創建它的應用程序相關聯，這種關聯可以在</font>Windows<font
face="宋體" lang="ZH-CN">的文件管理器中修改。要注意的是：文件的關聯是以后綴名為標志的，因而對一個文件關聯方式的修改將影響所有相同后綴名的文件。</p>
<p>　　文件打開功能實現的關鍵是利用了</font>Windows API<font
face="宋體" lang="ZH-CN">函數</font>ShellExecute <font face="宋體" lang="ZH-CN">。由于</font>Windows
API<font face="宋體" lang="ZH-CN">函數的參數要求字符串類型是</font>PChar<font
face="宋體" lang="ZH-CN">，而</font>Delphi<font face="宋體" lang="ZH-CN">中一般用的是有結束標志的</font>String<font
face="宋體" lang="ZH-CN">類型，因此為調用方便我們把這一函數進行了重新定義如下。　</p>
</font><p>function ExecuteFile(const FileName, Params, DefaultDir: String;</p>
<p>ShowCmd: Integer): THandle;</p>
<p>var</p>
<p>zFileName, zParams, zDir: array[0..79] of Char;</p>
<p>begin</p>
<p>Result := ShellExecute(Application.MainForm.Handle, nil,</p>
<p>StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),</p>
<p>StrPCopy(zDir, DefaultDir), ShowCmd);</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　以上函數在</font>fmxutils<font
face="宋體" lang="ZH-CN">單元中定義。</font>fmxutils<font face="宋體"
lang="ZH-CN">是一個自定義代碼單元。</p>
<p>　　有關</font>ShellExecute<font face="宋體" lang="ZH-CN">中各參數的具體含義讀者可查閱聯機</font>Help<font
face="宋體" lang="ZH-CN">文件。</p>
<p>　　</font>StrPCopy<font face="宋體" lang="ZH-CN">把一個</font>Pascal<font
face="宋體" lang="ZH-CN">類型的字符串拷貝到一個無結束符的</font>PChar<font
face="宋體" lang="ZH-CN">類型字符串中。</p>
<p>　　在子窗口的</font>Open1Click<font face="宋體" lang="ZH-CN">事件處理過程中：　</p>
</font><p>procedure TFMForm.Open1Click(Sender: TObject);</p>
<p>begin</p>
<p>with FileList do</p>
<p>ExecuteFile(FileName, '', Directory, SW_SHOW) ;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　如果</font>FileList<font face="宋體"
lang="ZH-CN">允許顯示目錄的話</font>(<font face="宋體" lang="ZH-CN">即</font>FileType<font
face="宋體" lang="ZH-CN">屬性再增加一項</font>ftDirectory)<font face="宋體"
lang="ZH-CN">，那么對于一個目錄而言，打開的含義應該是顯示它下邊的子目錄和文件。程序修改如下。　</p>
<p>　</font> procefure TFMForm.Open1Click(Sender: Tobject);</p>
<p>begin</p>
<p>With FileList do</p>
<p>begin</p>
<p>if HasAttr(FileName,faDirectory) then</p>
<p>DirectoryOutline.Directory := FileName</p>
<p>else</p>
<p>ExecuteFile(FileName,' ' ,Directory,SW_SHOW);</p>
<p>end;</p>
<p>end;　</p>
<p><font face="宋體" lang="ZH-CN">其中</font>HasAttr<font face="宋體" lang="ZH-CN">是一個</font>fmxutils<font
face="宋體" lang="ZH-CN">單元中的自定義函數，用于檢測指定文件是否具有某種屬性。　</p>
</font><p>function HasAttr(const FileName: String; Attr: Word): Boolean;</p>
<p>begin</p>
<p>Result := (FileGetAttr(FileName) and Attr) = Attr;</p>
<p>end;　</p>
<p>6.4.5.2 <font face="宋體" lang="ZH-CN">文件拷貝、移動、刪除、更名　</p>
<p>　　文件拷貝的關鍵是使用了以文件句柄為操作對象的文件管理函數，因而提供了一種底層的</font>I/O<font
face="宋體" lang="ZH-CN">通道。在</font>Object Pascal<font face="宋體"
lang="ZH-CN">中這一點是利用無類型文件實現的。</p>
<p>　　在文件拷貝中首先檢查目標文件名是否是一個目錄。如是則把原文件的文件名添加到目標路徑后，生成目標文件全路徑名。而后提取源文件的時間戳，以備拷貝完成后設置目標文件。拷貝過程中使用了返回文件句柄或以文件句柄為參數的文件管理函數</font>FileOpen<font
face="宋體" lang="ZH-CN">、</font>FileCreate<font face="宋體" lang="ZH-CN">、</font>FileRead<font
face="宋體" lang="ZH-CN">、</font>FileWrite<font face="宋體" lang="ZH-CN">、</font>FileClose<font
face="宋體" lang="ZH-CN">。為保證文件的正常關閉和內存的釋放，在拷貝過程中進行異常保護。</font></p>
<p><font face="宋體" lang="ZH-CN">過程</font>CopyFile<font face="宋體" lang="ZH-CN">實現上述功能，它定義在</font>fmxutils<font
face="宋體" lang="ZH-CN">單元中。　</p>
</font><p>procedure CopyFile(const FileName, DestName: TFileName);</p>
<p>var</p>
<p>CopyBuffer: Pointer; </p>
<p>TimeStamp, BytesCopied: Longint;</p>
<p>Source, Dest: Integer; </p>
<p>Destination: TFileName; </p>
<p>const</p>
<p>ChunkSize: Longint = 8192; </p>
<p>begin</p>
<p>Destination := ExpandFileName(DestName); </p>
<p>if HasAttr(Destination, faDirectory) then </p>
<p>Destination := Destination + '\' + ExtractFileName(FileName); </p>
<p>TimeStamp := FileAge(FileName); </p>
<p>GetMem(CopyBuffer, ChunkSize); </p>
<p>try</p>
<p>Source := FileOpen(FileName, fmShareDenyWrite);</p>
<p>if Source &lt; 0 then </p>
<p>raise EFOpenError.Create(FmtLoadStr(SFOpenError, [FileName]));</p>
<p>try</p>
<p>Dest := FileCreate(Destination); </p>
<p>if Dest &lt; 0 then </p>
<p>raise EFCreateError.Create(FmtLoadStr(SFCreateError,[Destination]));</p>
<p>try</p>
<p>repeat</p>
<p>BytesCopied := FileRead(Source, CopyBuffer^, ChunkSize); </p>
<p>if BytesCopied &gt; 0 then </p>
<p>FileWrite(Dest, CopyBuffer^, BytesCopied); </p>
<p>until BytesCopied &lt; ChunkSize; </p>
<p>finally</p>
<p>FileSetDate(Dest,TimeStamp);</p>
<p>FileClose(Dest); </p>
<p>end;</p>
<p>finally</p>
<p>FileClose(Source); </p>
<p>end;</p>
<p>finally</p>
<p>FreeMem(CopyBuffer, ChunkSize);</p>
<p>end;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　如果我們不使用</font>FileSetDate<font
face="宋體" lang="ZH-CN">過程，</font>Windows<font face="宋體" lang="ZH-CN">自動把當前時間作為時間戳寫入文件。</p>
<p>　　文件移動事實上是文件拷貝與文件刪除的結合。</font>fmxutils<font
face="宋體" lang="ZH-CN">單元中的</font>MoveFile<font face="宋體" lang="ZH-CN">過程實現了這一功能。　</p>
</font><p>procedure MoveFile(const FileName, DestName: TFileName);</p>
<p>var</p>
<p>Destination: TFileName;</p>
<p>begin</p>
<p>Destination := ExpandFileName(DestName); </p>
<p>if not RenameFile(FileName, Destination) then </p>
<p>begin</p>
<p>if HasAttr(FileName, faReadOnly) then </p>
<p>raise EFCantMove.Create(Format(SFCantMove, [FileName])); </p>
<p>CopyFile(FileName, Destination); </p>
<p>DeleteFile(FileName); </p>
<p>end;</p>
<p>end;　</p>
<p>EFCanMove<font face="宋體" lang="ZH-CN">是一個自定義異常類：　</p>
<p>　　</font>type</p>
<p>EFCanMove := Class(EStreamError);</p>
<font face="宋體" lang="ZH-CN"><p>　　有關自定義異常類請參閱第十二章。</p>
<p>　　文件刪除、文件更名直接調用</font>Delphi<font face="宋體"
lang="ZH-CN">文件管理過程</font>DeleteFile<font face="宋體" lang="ZH-CN">、</font>RenameFile<font
face="宋體" lang="ZH-CN">。它們都以文件名為參數。操作執行前應彈出一個對話框進行確認，執行完畢后應調用</font>Update<font
face="宋體" lang="ZH-CN">方法更新</font>FileList<font face="宋體" lang="ZH-CN">的顯示。　</p>
</font><p>6.4.5.3 <font face="宋體" lang="ZH-CN">一致的界面　</p>
<p>　　文件拷貝、文件移動、</font> <font face="宋體" lang="ZH-CN">文件更名以及后邊的改變當前目錄在形式上都表現為從一個源文件到一個目標文件。因而可以采用統一的用戶界面，即</font>ChangeForm<font
face="宋體" lang="ZH-CN">對話框</font></p>
<font face="宋體" lang="ZH-CN"><p>這四個菜單項共用一個</font>Click<font
face="宋體" lang="ZH-CN">事件處理過程，通過對</font>Sender<font face="宋體"
lang="ZH-CN">參數的檢測，決定將要打開對話框的標題和顯示內容。當用戶按</font>OK<font
face="宋體" lang="ZH-CN">鍵關閉且目標文件</font>(<font face="宋體"
lang="ZH-CN">目錄</font>)<font face="宋體" lang="ZH-CN">非空時，程序彈出一個消息對話框要求用戶進一步確認，而后執行相應的動作。</p>
<p>　　共用的事件處理過程</font>FileChange<font face="宋體" lang="ZH-CN">的程序清單如下：　</p>
</font><p>procedure TFMForm.FileChange(Sender: TObject);</p>
<p>var</p>
<p>ChangeForm: TChangeForm;</p>
<p>IsFile: Boolean;</p>
<p>begin</p>
<p>ChangeForm := TchangeForm.Create(Self);</p>
<p>IsFile := True;</p>
<p>with ChangeForm do</p>
<p>begin</p>
<p>if Sender = Move1 then Caption := 'Move'</p>
<p>else if Sender = Copy1 then Caption := 'Copy'</p>
<p>else if Sender = Rename1 then Caption := 'Rename'</p>
<p>else if Sender = ChangeDirectory1 then</p>
<p>begin</p>
<p>Caption:='Change Directory';</p>
<p>IsFile:=False;</p>
<p>end</p>
<p>else Exit;</p>
<p>if IsFile then</p>
<p>begin</p>
<p>CurrentDir.Caption := FileList.Directory;</p>
<p>FromFileName.Text := FileList.FileName;</p>
<p>ToFileName.Text := '';</p>
<p>end</p>
<p>else</p>
<p>begin</p>
<p>CurrentDir.Caption := DriveTabSet.Tabs[DriveTabSet.TabIndex];</p>
<p>FromFileName.Text := DirectoryOutline.Directory;</p>
<p>ToFileName.Text := '';</p>
<p>end;</p>
<p>if (ShowModal &lt;&gt; idCancel) and (ToFileName.Text &lt;&gt; '') then</p>
<p>ConfirmChange(Caption, FromFileName.Text, ToFileName.Text);</p>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲六月丁香色婷婷综合久久| 色视频成人在线观看免| 99麻豆久久久国产精品免费 | 久久精品噜噜噜成人av农村| 欧美在线观看禁18| 国产精品久久久一本精品| 国产精品主播直播| 国产午夜亚洲精品羞羞网站| 韩国成人福利片在线播放| 精品欧美一区二区在线观看| 激情五月婷婷综合网| 精品av综合导航| 国产在线视频精品一区| 久久免费视频一区| 国产精品性做久久久久久| 国产亚洲欧洲一区高清在线观看| 精久久久久久久久久久| 久久久久高清精品| 成人免费看片app下载| 中文字幕一区二区三区不卡在线| 97精品国产露脸对白| 久久久久久久久久久99999| 国产精品夜夜爽| 欧美高清一级片在线观看| 99久久99久久精品免费观看| 成人免费在线视频| 精品视频全国免费看| 日韩影视精彩在线| 久久综合网色—综合色88| 国产成人免费在线观看| 亚洲精品亚洲人成人网 | www激情久久| 成人福利视频在线| 亚洲最新视频在线观看| 欧美精品在欧美一区二区少妇| 久久国产精品第一页| 国产日韩欧美综合在线| 日本乱人伦aⅴ精品| 美女视频一区在线观看| 国产女人18水真多18精品一级做| 91色九色蝌蚪| 久久精品二区亚洲w码| 国产精品久久久久一区二区三区共| 在线一区二区视频| 久久国产麻豆精品| 亚洲免费观看高清完整版在线观看 | 久久99国产精品麻豆| 欧美国产亚洲另类动漫| 精品污污网站免费看| 国产制服丝袜一区| 一区二区三区成人| 欧美不卡激情三级在线观看| 一本一本大道香蕉久在线精品 | 日韩av不卡在线观看| 国产女人水真多18毛片18精品视频| 色呦呦网站一区| 国产一区二区三区四区五区美女 | 国产精华液一区二区三区| 一区二区三区四区不卡视频| 久久青草国产手机看片福利盒子| 91麻豆福利精品推荐| 久久精品国产久精国产爱| 亚洲精选视频在线| 精品国精品国产| 欧美亚洲国产一区在线观看网站| 国产尤物一区二区| 亚洲6080在线| 亚洲免费看黄网站| 国产午夜精品久久久久久免费视| 欧美日韩性生活| 99re视频这里只有精品| 国产一区美女在线| 亚洲国产精品久久久久婷婷884| 国产欧美日韩在线观看| 欧美成人r级一区二区三区| 欧美日韩高清在线| av亚洲精华国产精华精华| 国产精品资源网| 久久国产麻豆精品| 日本伊人色综合网| 亚洲免费观看高清完整版在线观看| 国产欧美日韩视频在线观看| 精品剧情在线观看| 欧美一区二区三区四区五区| 欧美中文字幕不卡| 色婷婷久久久综合中文字幕| 不卡一区中文字幕| 波多野洁衣一区| 国产乱码一区二区三区| 经典三级视频一区| 国产在线精品视频| 国产在线精品一区二区夜色| 精品影院一区二区久久久| 欧美喷潮久久久xxxxx| 91一区二区在线观看| 成人免费高清在线| 91免费视频网址| 91福利区一区二区三区| 欧美性色欧美a在线播放| 欧美丰满少妇xxxbbb| 精品处破学生在线二十三| 久久久精品黄色| 国产精品免费av| 亚洲大片免费看| 激情av综合网| 成人在线综合网| 欧美综合色免费| 日韩亚洲欧美在线观看| 久久久亚洲精华液精华液精华液 | 久久综合久久综合亚洲| 日本一区二区三区免费乱视频| 中文字幕在线一区| 亚洲成a人片在线观看中文| 美女一区二区三区| 成人不卡免费av| 欧美人伦禁忌dvd放荡欲情| 精品美女在线播放| 亚洲精品美国一| 国内国产精品久久| 在线视频你懂得一区| 久久综合久久综合亚洲| 一区二区三区美女视频| 狠狠狠色丁香婷婷综合激情| 91在线视频观看| 日韩你懂的在线观看| 中文字幕视频一区二区三区久| 亚洲r级在线视频| 成人激情小说网站| 欧美电视剧在线看免费| 亚洲乱码中文字幕| 国产高清不卡一区二区| 欧美日韩一区二区三区不卡| 欧美韩国一区二区| 免费成人在线观看| 在线一区二区三区四区五区| 国产亚洲欧美日韩日本| 日本麻豆一区二区三区视频| 97久久超碰国产精品电影| 欧美tk—视频vk| 亚洲高清免费观看高清完整版在线观看 | 色综合一个色综合亚洲| 久久综合九色综合欧美98| 亚洲成在线观看| 日本乱人伦aⅴ精品| 国产精品午夜春色av| 蜜桃av一区二区| 欧美日韩免费高清一区色橹橹| 综合av第一页| 成人午夜私人影院| 精品久久久久久久人人人人传媒| 天堂av在线一区| 色狠狠一区二区三区香蕉| 久久久精品国产免费观看同学| 日本视频在线一区| 91国偷自产一区二区三区观看| 中文字幕欧美日韩一区| 国产激情视频一区二区三区欧美| 日韩精品一区二区三区三区免费| 午夜电影一区二区| 欧美天堂一区二区三区| 亚洲精品中文在线影院| 91网站最新网址| 国产精品色噜噜| 成人免费视频视频| 久久精品在线免费观看| 国内精品视频一区二区三区八戒| 精品理论电影在线观看| 国精产品一区一区三区mba桃花| 欧美一级二级在线观看| 日韩在线a电影| 欧美不卡一二三| 激情久久五月天| 欧美tk—视频vk| 国产黑丝在线一区二区三区| 国产蜜臀av在线一区二区三区| 激情久久五月天| 国产日韩欧美一区二区三区综合| 丁香网亚洲国际| 亚洲欧洲www| 色哦色哦哦色天天综合| 亚洲国产精品人人做人人爽| 欧美日韩日日骚| 日韩在线播放一区二区| 欧美成人a∨高清免费观看| 国产精品一区二区三区乱码| 国产欧美日韩在线视频| 91香蕉视频mp4| 亚洲一区二区精品久久av| 337p亚洲精品色噜噜狠狠| 麻豆精品一区二区综合av| 国产亚洲视频系列| 91丨porny丨蝌蚪视频| 亚洲一区二区三区免费视频| 777午夜精品视频在线播放| 国产一区二区视频在线播放| 国产精品天美传媒沈樵| 97aⅴ精品视频一二三区| 五月激情六月综合| 国产欧美精品一区| 欧美午夜片在线观看|