[NumLock]

http://narod.ru/disk/20273687001/DoS...iew32.dcu.html

Код:

uses
  DoSysListView32,

procedure TForm1.FormCreate(Sender: TObject);
var
  hListView: THandle;
//  AStringList: TStringList;
begin
  hListView:=FindWindow('Progman', 'Program Manager');
  if hListView<>0 then
  begin
    hListView:=FindWindowEx(hListView, 0, 'SHELLDLL_DefView', nil);
    if hListView<>0 then
      hListView:=FindWindowEx(hListView, 0, 'SysListView32', 'FolderView');
  end;
  if hListView<>0 then
  begin
    FillSysListView32(hListView, StringGrid1);
//    AStringList:=TStringList.Create;
//    FillSysListView32(hListView, AStringList);
//    AStringList.Free;
  end;
end;