[NumLock]

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

Код:

uses
  DoSysListView32,

var
  hListView: THandle;
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, ListBox.Items);
  end;
end;