Slideshow durchlaufen lassen?

[marabu]

Hallo Jonas,

probiere es so:

Delphi-Quellcode:

uses
  ActiveX,
  ShlObj;

function GetSpecialFolderLocation(csidl: integer): string;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  path: array [0..MAX_PATH] of Char;
begin
  Result := '?';
  if SHGetMalloc(pMalloc) = S_OK then
  begin
    SHGetSpecialFolderLocation(0, csidl, pidl);
    SHGetPathFromIDList(pidl, path);
    Result := IncludeTrailingPathDelimiter(Path);
    pMalloc.Free(pidl);
  end;
end;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  FileListBox.Directory := GetSpecialFolderLocation(CSIDL_PERSONAL);
end;

Grüße vom marabu