|
久しぶりの投稿です。
FindFirstで悩んでいます。
ＯＳ：ＷＩＮ７
テンポラリフォルダのファイルリストを取得するものですが
１．Delphi7＝＞正常動作
２．Delphi2010＝＞正常動作
３．DelphiXE＝＞
---------------------------
モジュール 'TEST.exe' のアドレス 004B3ED0 で
アドレス 00000394 に対する読み取り違反がおきました。
---------------------------
こうなります。
XEのバグでしょうか？
ご教授ください。
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
StrTempPath: Array[0..MAX_PATH] of Char;
SearchRec: TSearchRec;
ST: TStringList;
begin
GetTempPath(SizeOf(StrTempPath),StrTempPath);
ST := TStringList.Create;
try
i := FindFirst(StrTempPath+'*.LOG',faAnyFile,SearchRec);
while i = 0 do begin
ST.Add(SearchRec.Name);
i := FindNext(SearchRec);
end;
SysUtils.FindClose(SearchRec);
Memo1.Lines.Assign(ST);
finally
ST.Free;
end;
end;
|