原提問 "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]

謝謝分享！