Announcement

**G�nther Weber** · 24.04.2001, 15:07

Unter Windows ist ein Ordner keine Datei. Einen Ordner erstellt man mit CreateDirectory("Name",NULL);

Zur ersten Frage: Ein gro�es Problem sollte in viele kleine Detailprobleme zerlegt werden, zu denen man nach L�sungen sucht. Was ist jetzt Dein Problem ? Verzeichnis ? Siehe FindFirstFile, FindNextFile. Weiteres dazu findest Du in der Hilfe. ListView-Texte ? Schau zuerst mal in die Hilfe zum TListView !

Gru� - G�nthe

**G�nther Weber** · 24.04.2001, 20:44

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Neue Seite 1</title>
</head>

<body>

Schau mal, was ich gefunden habe :

<pre>void __fastcall TForm1::VerzeichnisLesen(char *Pfad, char *Filter)
{
SHFILEINFO IconInfo;
char path[MAX_PATH];
char s[MAX_PATH];
TSearchRec SearchRecord;
sprintf(s,"%s%s",Pfad,Filter);
ImageList1->ShareImages = true;
ImageList1->Handle = SHGetFileInfo("", 0, &IconInfo, sizeof(IconInfo),
SHGFI_ICON | SHGFI_SMALLICON | SHGFI_SYSICONINDEX);
ListView1->SmallImages = ImageList1;
ListView1->Items->Clear();
ListView1->Items->BeginUpdate();
if (FindFirst(s,faAnyFile, SearchRecord) == 0) do
{
if(strcmp(SearchRecord.Name.c_str(),".")!=0)
{
TListItem *Item = ListView1->Items->Add();
Item->Caption = SearchRecord.Name;
sprintf(path,"%s%s",Pfad,Item->Caption.c_str());
SHGetFileInfo(path, 0, &IconInfo, sizeof(IconInfo),
SHGFI_ICON | SHGFI_SHELLICONSIZE | SHGFI_SYSICONINDEX | SHGFI_TYPENAME );
Item->ImageIndex = IconInfo.iIcon;
Item->SubItems->Add(IntToStr(SearchRecord.Size));
Item->SubItems->Add(IconInfo.szTypeName);
TDateTime DateTime=FileDateToDateTime(SearchRecord.Time);
Item->SubItems->Add(DateTime.DateString());
Item->SubItems->Add(DateTime.TimeString());
Item->SubItems->Add(IntToStr(SearchRecord.Attr));
}
}
while (FindNext(SearchRecord) == 0);
FindClose(SearchRecord);
ListView1->Items->EndUpdate();
}

void __fastcall TForm1::ToolButton1Click(TObject *Sender)
{
VerzeichnisLesen("","*.*");
}</pre>

Gru� - G�nther
</body>

</html&gt

Announcement

tlistview

tlistview

Comment

Comment