Verzeichnis auslesen ohne SysUtils

[jokerfacehro]

hab grad was gefunden

Delphi-Quellcode:

procedure TForm1.GetDirectoryContent(const p_sRoot : string;const p_slResult : TStrings);

var
  lbWork : TListBox;

begin
  // Filectrl einbinden für DirectoryExists
  if not DirectoryExists(p_sRoot) then
  begin
    exit;
  end;
  lbWork := TListBox.CreateParented(self.Handle);
  try
    SendMessage(lbWork.Handle,LB_DIR,DDL_DIRECTORY,lParam(PChar(p_sRoot+StringOfChar('\',ord(AnsiLastChar(p_sRoot) <> '\'))+'*.*')));
    lbWork.Items.Delete(lbWork.Items.IndexOf('[..]'));
    p_slResult.Clear;
    p_slResult.AddStrings(lbWork.Items);
  finally
    FreeAndNil(lbWork);
  end;
end;

allerdings brauch ich dafür ne listbox :/

kann ich der message auch nen WindowHandle zuweisen und das dann abfangen ?