線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1326
推到 Plurk!
推到 Facebook!

如何打開win 7之C:\Documents and Settings底下之(CurrentUser)目錄,取得 *.flv 檔案

 
jow
尊榮會員


發表:66
回覆:751
積分:1253
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-06-23 00:34:28 IP:123.193.xxx.xxx 未訂閱
原提問 "ry_lee:  如何打開win 7之C:\Documents and Settings底下之目錄?" 已被移除
在此分享寫好的測試程式碼,謹供參考...

[code delphi]
//如何打開win 7之C:\Documents and Settings底下之目錄?
//意欲取得其目錄下的 *.flv 檔案

procedure TForm1.Button2Click(Sender: TObject);

procedure GET_FLV_FILE_LIST(Dir: string; L: TStringList);
var
S: string;
F: TSearchRec;
X: TStringList;
begin
X := TStringList.Create;
try
X.Add(Dir);
while X.Count > 0 do
begin
Dir := X[0];
X.Delete(0);
if FindFirst(Dir '\*.*',faAnyFile,F) = 0 then
repeat
if (F.Name <> '.') and (F.Name <> '..') then
begin
S := Dir '\' F.Name;
if F.Attr and faDirectory = faDirectory then X.Insert(0,S)
else if ExtractFileExt(S)='.flv' then L.Add(S);
end;
until FindNext(F) <> 0;
FindClose(F);
end;
finally
FreeAndNil(X);
end;
end;

var
TargetDir: string;
UserName: string;
nSize: Cardinal;
L: TStringList;
begin
L := TStringList.Create;
try
nSize := 128;
SetLength(UserName,nSize);
if GetUserName(PChar(UserName),nSize) then
begin
SetLength(UserName,nSize);
TargetDir := 'C:\Documents and Settings\' Trim(UserName);
GET_FLV_FILE_LIST(TargetDir,L);
end;
L.SaveToFile('C:\RESULT.TXT');
finally
FreeAndNil(L);
end;
ShowMessage('Finished!');
end;

[/code]
GrandRURU
站務副站長


發表:240
回覆:1680
積分:1874
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-06-23 08:25:38 IP:59.120.xxx.xxx 未訂閱
謝謝分享!
系統時間:2024-03-28 17:55:53
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!