PHP Forum - Coding Board
Juni 18, 2018, 02:29:07 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [SRC]Dateien/Verzeichnisse auflisten  (Gelesen 76 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Slayer616
Entwickler Team
Spender
Moderator
Hat das Battle gewonnen
Sr. Member
****
Beiträge: 426


Profil anzeigen E-Mail
« am: Juni 24, 2009, 10:05:34 »

Wurde von mir von VB auf Delphi kovertiert (example von steve)
Code:
//coded by Steve/ported by Slayer616
Procedure Listfolders(mypath:string);
var
filesearch:Cardinal;
gf: TWIN32FINDDATA;
temps:string;
mylistitem:tlistitem;
begin
  fileSearch := FindFirstFile(pchar(mypath + '*.*'), GF);
    If fileSearch = INVALID_HANDLE_VALUE Then
    begin
    exit;
    end;
    repeat
    if ((gf.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0) then
    begin
    if not (trim(gf.cFileName) = '.') then begin
    mylistitem := form1.ListView3.Items.Add; // this is for adding the item to a listview
    mylistitem.Caption := gf.cFileName;
    end;
    end;
    until FindNextFile(filesearch,gf)=false;
    windows.FindClose(filesearch);
end;


Dateien auflisten:

Code:
//coded by Steve/ported by Slayer616
Procedure ListFiles(mypath:string);
var
filesearch:Cardinal;
gf: TWIN32FINDDATA;
FileInfo: TSHFileInfo;
apath :string;
flags:cardinal;
mylistitem:tlistitem;
begin
Flags := SHGFI_SYSICONINDEX or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;
  fileSearch := FindFirstFile(pchar(mypath + '*.*'), GF);
    If fileSearch = INVALID_HANDLE_VALUE Then
    begin
    exit;
    end;
    repeat
    if not ((gf.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0) then
    begin
    apath := mypath + gf.cFileName;
    ZeroMemory(@FileInfo, sizeof(SHFILEOPSTRUCT));
    SHGetFileInfo(pchar(mypath + gf.cFileName), 0, FileInfo, sizeof(SHFILEOPSTRUCT), SHGFI_TYPENAME);
    mylistitem := form1.ListView4.Items.Add;
    mylistitem.Caption := gf.cFileName; //Filename
    mylistitem.SubItems.Add(FileInfo.szTypeName); //Typename
    mylistitem.SubItems.Add(gf.nFileSizeLow); //FileSize
    end;
    until FindNextFile(filesearch,gf)=false;
    windows.FindClose(filesearch);
end;
Gespeichert




Du sagst, du spürst die Ohnmacht, denn der Feind ist ach so stark
Und er will dich niederhalten mit Geschrei durch Bein und Mark
Mit Verboten und Zensur kann er zwar den Kampf erschweren
Doch niemals wird ein Richterspruch den freien Geist bekehren.

Fürchte lieber Deutschlands Untergang als die Reden der Vasallen
Derer, die der Lüge dienen, denn schon bald werden sie fallen.
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS