Announcement

**G�nther Weber** · 08.02.2000, 14:40

Hallo, diese Information verbirgt sich in der Hilfe meist hinter dem Button "Quick Info". In diesem Fall ist es die "shellapi.h&quot

**Roman Morokutti** · 08.02.2000, 18:58

Danke G�nther, werde es gleich ausprobiere

08.02.2000, 19:13

Toll. Super funktioniert. Nur jetzt habe ich das Problem, da� ich eine Access Violation in Modul ntdll ausgel�st habe, nachdem ich auf den TSpeedBtn das Ereignis ausgel�st habe, die Liste zu f�llen. Entweder liegt das Problem bei WinNT 4.0 (Servicepack 5) mit den vielleicht strengen Zugriffsberechtigungen oder vielleicht pa�t die Routine nicht auf ein Btn-Click Ereignis oder es liegt ein Bug C++ Builder 4.0 vor. Vielleicht kann mir jemand helfen.
 
 
void __fastcall TForm1::SpeedButton3Click(TObject *Sender) 
{ 
 
<t>SHFILEINFO IconInfo; 
<t>char path[MAX_PATH]; 
<t>TSearchRec SearchRecord; 
 
<t>//Binde die Imageliste an die System-Inmageliste 
<t>ImageList1->ShareImages = true; 
<t>ImageList1->Handle = SHGetFileInfo("",0,&IconInfo, sizeof<t><t>(Icon Info), 
<t>SHGFI_ICON | SHGFI_SMALLICON |SHGFI_SYSICONINDEX); 
<t>ListView1->SmallImages = ImageList1; 
 
<t>//Screenupdating 
<t>ListView1->Items->BeginUpdate(); 
 
<t>//Erkenne die erste Datei im Desktop-Root 
<t>if(FindFirst("C:\\Windows\\Desktop\\*.*", faAnyFile, <t><t>SearchRecord) == 0);
<t>{ //F�ge ein neues Irem dazu und verbinde den gefundenen 
<t>//Dateinamen mit seiner �berschrift 
<t>TListItem *Item = ListView1->Items->Add(); 
<t>Item->Caption = SearchRecord.Name; 
 
<t>//Erhalte den Index der ImageList der zu dem Inhalt pa�t. 
<t>AnsiString Path = "C:\\Windows\\Desktop\\" + Item-<t>>Caption; 
<t>strcpy(path, Path.c_str()); 
<t>SHGetFileInfo(path, 0, &IconInfo, sizeof(IconInfo), 
<t><t>SHGFI_ICON |SHGFI_SHELLICONSIZE | <t><t>SHGFI_SYSICONINDEX); 
<t>Item->ImageIndex = IconInfo.iIcon; 
 
<t>//Wiederhole nun diesen Proze� bis ans Ende. 
<t>while(FindNext(SearchRecord) == 0) 
<t>{ Item = ListView1->Items->Add(); 
<t><t>Item->Caption = SearchRecord.Name; 
 
<t> Path = "C:\\Windows\Desktop\\" + Item->Caption; 
<t>strcpy(path, Path.c_str()); 
<t>SHGetFileInfo(path,0, &IconInfo, sizeof(IconInfo), 
<t><t>SHGFI_ICON | SHGFI_SHELLICONSIZE | <t><t>SHGFI_SYSICONINDEX); 
<t> Item->ImageIndex = IconInfo.iIcon; 
<t>} 
 
<t> //Schlie�e den Search Handle. 
<t>FindClose(SearchRecord); 
 
<t>//Restore ScreenUpdate 
<t>ListView1->Items->EndUpdate(); 
} 
 
} 
 
 
Tut mir leid, wegen dem Format, vielleicht kann mir bei dieser Gelegenheit jemand sagen, wie ich das besser hinkriege. Danke.

&#10

**G�nther Weber** · 08.02.2000, 20:27

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Normale Seite ohne Titel</title>
</head>

<body bgcolor="#FFFFFF">

Hallo Roman,

In Deinem Quelltext steht hinter der Abfrage
if(FindFirst(...)==0) ein Semikoleon.
Danach folgt - ohne vorangehendes else - eine �ffnende
geschweifte Klammer, deren Gegenst�ck ich nicht ausfindig machen
kann. WO ist das Ende ? Dann folgt eine Auswertung der
Daten und eine Schleife while(FindNext(...)) mit einer weiteren
Auswertung. Das w�rde ich �ndern in

<pre>
if(FindFirst(...) == 0)
do
{
TListItem * Item=...
//und weitere Auswertung
}
while(FindNext(...)==0)
</pre>

Wenns danach noch nicht l�uft, bitte ein erneutes Listing !
(Du m�chtest ja �ben ;-)

Zur Formatierung: Vor den Quelltext ein < pre > und
hinterher ein < /pre >
ohne die Leerzeichen. Ich selbst mach mir die M�he und schreib
den Text mit Frontpage Express, f�g die beiden HTML-Tags in der
HTML Ansicht ein, entferne alle dazwischenliegenden HTML-Tags und
korrigier die Zeileneinr�ckungen. Vermutlich geht es aber auch
einfacher. Dann geh ich wieder zur�ck in den Frontpage-Editor,
mach alles noch ein wenig bunter
oder fetter, und geh dann wieder in die
HTML-Ansicht. Dort kopiere ich alles in die Zwischenablage, und
danach in den Forum-Editor.

 

 
</body>
</html&gt

09.02.2000, 10:16

Ich freue mich das du mir geholfen hast. Danke an dieser Stelle. Die Fehlermeldung bleibt jetzt aus, nur f�llt sich die TListView nicht mit Icons und Daten. Irgendwas mu� noch falsch sein

**G�nther Weber** · 09.02.2000, 10:43

Hallo Roman, wird die Schleife denn korrekt durchlaufen ? �berpr�f das mit dem Debugger, oder setz eine MessageBox da rein. In der Zeile Path = "C:\\Windows\Desktop\\" + Item->Caption; fehlt �brigens zwischen Windows und Desktop der zweite Backslash, das k�nnte auch eine Ursache sein ! Gru� - G�nthe

**Roman Morokutti** · 09.02.2000, 13:28

Eh klar, wieso es nicht funktioniert hat: Der Pfad war falsch. In WinNT gibt es kein C:\Windows\Desktop sondern C:\WINNT\Profiles\Administrator\Desktop!

Die Daten werden jetzt zwar angezeigt, nur mit einem kleinen Sch�nheitsfehler

1. Es steht �berall die Endung .lnk f�r Link
2. Die Icons fehlen ganz
3. Es werden die ersten 2 Leerverzeichnisse ebenfalls angezeigt (mit "." bzw. ".." wie unter MS-DOS

Aber ich finde es spitze da� ich es schon so weit gebracht habe durch deine Hilfe G�nther. Vielleicht gibt es noch eine M�glichkeit diesen Sch�nheitsfehler ebenfalls auszub�geln. Danke nochmals

**Roman Morokutti** · 09.02.2000, 14:01

Ich glaub ich habs.

SHGetFileInfo ist nicht definiert. Wer wei� zu welcher Header-Datei diese Funktion geh�rt

**G�nther Weber** · 09.02.2000, 20:03

Hallo Roman, wir hatten heute Internetausfall, deshalb antworte ich jetzt mit ein paar Stunden Versp�tung :-(

Deine Frage in #8 verstehe ich jetzt nicht. Die hattest Du doch schon am Anfang gestellt, und ich hatte sie in #1 beantwortet.

Und zu #7: Klar, da� im Desktop-Verzeichnis meistens .lnk Dateien stehen. Und die Icons mu�t Du Dir selbst zur Anzeige bringen. Frag mich jetzt nicht, wie ! Die Verzeichnisnamen mu�t Du entsprechend auswerten, wenn Du . und .. �berspringen m�chtest. Entweder SearchRecord.Name[0] auf . �berpr�fen, oder einen genauen Stringvergleich machen..

**Roman Morokutti** · 10.02.2000, 07:28

Sobald ich das Problem gel�st habe werde ich mich wieder melden. Und dann aber mit einem stilistisch sch�nem Codebeispiel. Danke nochmals f�r die Hilf

Announcement

WIN32 API

WIN32 API

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment