Wie kann ich eine Prozedur/Funktion benutzen?

[sakura]

Ändere bitte mal den Titel, da dieser nicht aussagekräftig ist

......

[sniffy]

Jo. Hab da mal noch ne Frage. Der Code:

Delphi-Quellcode:

function GetFolder(root: integer; Caption: string): string;
var bi: TBROWSEINFO;
    lpBuffer: PChar;
    pidlPrograms,pidlBrowse: PItemIDList;
begin
     if (not SUCCEEDED(SHGetSpecialFolderLocation(getactivewindow,root,pidlPrograms)))
     then exit;
     lpBuffer := StrAlloc(max_path);
     bi.hwndOwner := getactivewindow;
     bi.pidlRoot := pidlPrograms;
     bi.pszDisplayName := lpBuffer;
     bi.lpszTitle := pChar(caption);
     bi.ulFlags := BIF_RETURNONLYFSDIRS;
     bi.lpfn := nil;
     bi.lParam := 0;

     pidlBrowse := SHBrowseForFolder(bi);
     if (pidlBrowse <> nil) then
     begin
          if (SHGetPathFromIDList(pidlBrowse,lpBuffer)) then result := lpBuffer;
end;
     StrDispose(lpBuffer);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
     caption := GetFolder(CSIDL_DESKTOP,'Wählen Sie ein Verzeichnis aus:');
end;

Mit dem Code wird ja ein Verzeichnis ab den Desktop geöffnet. Wie mach ich das wenn ich z.B. auf C:\Programme\Test klicke, das er mir in einem RichEdit Feld alle Dateien die im Test Ordner drin sind anzeigt?

[sniffy]

Will mir wirklich keiner helfen???

[sniffy]

Ach kommt leute!!!

[Sharky]

Zitat von sniffy:

Ach kommt leute!!!

Das "Puschen" von Beiträgen ist hier erst nach min. 24h erwünscht.

Zum anderen: Ich habe weiter oben im Thread einen Link zu unsere Code-Library gepostet. Hast Du dir diesen einmal angesehen?

[fkerber]

Zitat von sniffy:

Jo. Hab da mal noch ne Frage. Der Code:

Delphi-Quellcode:

function GetFolder(root: integer; Caption: string): string;
var bi: TBROWSEINFO;
    lpBuffer: PChar;
    pidlPrograms,pidlBrowse: PItemIDList;
begin
     if (not SUCCEEDED(SHGetSpecialFolderLocation(getactivewindow,root,pidlPrograms)))
     then exit;
     lpBuffer := StrAlloc(max_path);
     bi.hwndOwner := getactivewindow;
     bi.pidlRoot := pidlPrograms;
     bi.pszDisplayName := lpBuffer;
     bi.lpszTitle := pChar(caption);
     bi.ulFlags := BIF_RETURNONLYFSDIRS;
     bi.lpfn := nil;
     bi.lParam := 0;

     pidlBrowse := SHBrowseForFolder(bi);
     if (pidlBrowse <> nil) then
     begin
          if (SHGetPathFromIDList(pidlBrowse,lpBuffer)) then result := lpBuffer;
end;
     StrDispose(lpBuffer);
end;

procedure TForm1.Panel3Click(Sender: TObject);
begin
     caption := GetFolder(CSIDL_DESKTOP,'Wählen Sie ein Verzeichnis aus:');
end;

Mit dem Code wird ja ein Verzeichnis ab den Desktop geöffnet. Wie mach ich das wenn ich z.B. auf C:\Programme\Test klicke, das er mir in einem RichEdit Feld alle Dateien die im Test Ordner drin sind anzeigt?

Hi!
So wie ich das sehe mit diesem Code gar nicht, da er sich auf SpecialFolders wie Desktop, eigene Dateien etc. bezieht.

Ciao Frederic

[ibp]

Zitat von sniffy:

...
Mit dem Code wird ja ein Verzeichnis ab den Desktop geöffnet. Wie mach ich das wenn ich z.B. auf C:\Programme\Test klicke, das er mir in einem RichEdit Feld alle Dateien die im Test Ordner drin sind anzeigt?

schau dir doch mal in der windows-sdk-hilfe die funktion SHBrowseForFolder und darin die option ulFlags an, das könnte weiter helfen (<- doofe neue rechtschreibung )