|
▼ Mr.XRAYさん
> ワハハッ．
> で，FileAgeから取得する以外，う〜ん，何かありましたっけ．
> もちろん，ファイルの他の情報も同時というのであれば，
> SH... なんとかで取得できますけど，今回の場合，日付だけですからね．
>
> ヤバイ! ここ数日，SH... とか，でてこなくなってしまっている...
> SHFileInfo? だっけ?
どこかでListViewのSubItemsに入れているのだからと思い、いろいろ探したところ、
以下で見つけた・・・
そこで、内容を確認して、以下のように書き換えたら当然表示されるのだが・・・
procedure TShellFolder.LoadColumnDetails(RootFolder: TShellFolder;
内の
if Assigned(SF2) then
begin
// Already have name and icon, so see if we can provide details
for J := 1 to ColumnCount do
begin
HR := SF2.GetDetailsOf(FPIDL, J, SD);
AddDetail(HR, FPIDL, SD);
end;
end
を
if Assigned(SF2) then
begin
// Already have name and icon, so see if we can provide details
for J := 1 to ColumnCount do
begin
if J = 3 then begin
GetDetailsOf(Self, FindData);
FDetails.Add(DefaultDetailColumn(FindData, J));
end
else begin
HR := SF2.GetDetailsOf(FPIDL, J, SD);
AddDetail(HR, FPIDL, SD);
end;
end;
end
に変更
結局、FileAgeとFindFirstFileのどちらが速いんだ・・・っていう疑問になるだけだった・・・(^^;
SF2.GetDetailsOfで秒までひろってくれば良いのに・・・
|