Spectragram

[Luckie]

Ein paar Dinge.

Delphi-Quellcode:

Drives: array [0 .. 128] of Widechar;
  pDrive: PChar;

Und dann machst du das:
pDrive := Drives Du weißt einem PChar ein Array vom Typ WideChar zu. Keine Ahnung, ob das so in Ordnung ist. Kommt mir auf den ersten Blick komisch vor.

FileInfo: SHFILEINFO; Würde ich vor der ersten Verwendung mit ZeroMemory "ausnullen". Schlägt nämlich SHGetFileInfo fehl, du prüfst es nicht, dann steht in FileInfo Schrott drin, mit dem du dann weiter arbeitest.

Wo wird die Stringliste wieder freigegeben? Besser: Der Aufrufer erzeugt die StringListe, übergibt sie als Parameter und gibt sie wieder frei. Dann kann man sie auch sauber in einem Ressourcenschutzblock verpacken. Erstellen und Freigeben in einer Routine macht es auch übersichtlicher.

[EWeiss]

Zitat:

Du weißt einem PChar ein Array vom Typ WideChar zu. Keine Ahnung, ob das so in Ordnung ist. Kommt mir auf den ersten Blick komisch vor.

Werde das nochmal prüfen

Auch das mit dem ZeroMemory werde ich noch hinzufügen sind so kleine Dinge die man leicht übersieht im Eifer des Gefechtes.

gruss

[Luckie]

Rückgabewert von SHGetFileInfo prüfen!
Mit der StringListe nicht routineübergreifend arbeiten!

Ja, das ist so eine Sache. Eigentlich müsste der Code crashen, tut er aber bei Alice nicht, weil bei ihr die Belegung des Adressraums glücklicherweise passt und nichts wichtiges überschieben oder freigeben wird. Bei Bobby ist der Adressraum anders organsiert und da crasht es dann.

[EWeiss]

Zitat von Luckie:

Rückgabewert von SHGetFileInfo prüfen!
Mit der StringListe nicht routineübergreifend arbeiten!

Ja, das ist so eine Sache. Eigentlich müsste der Code crashen, tut er aber bei Alice nicht, weil bei ihr die Belegung des Adressraums glücklicherweise passt und nichts wichtiges überschieben oder freigeben wird. Bei Bobby ist der Adressraum anders organsiert und da crasht es dann.

Die List wird hier beendet.
Vorher geht es nicht weil ich die Laufwerke die in dieser Liste enthalten sind verwende solange wie der Dialog geöffnet ist.
Wenn ich die Liste vorher freigebe dann kracht es.

Delphi-Quellcode:

destructor TSkinDriveList.Destroy;
begin
  UnSubClass(Handle);
  FreeAndNil(DriveList);
  FreeAndNil(PropList);

  inherited Destroy;
end;

Der geänderte part.

Delphi-Quellcode:

procedure TSkinDriveList.ListDrive(hList: hWnd);
var
  FileInfo: SHFILEINFO;
  AllDriveStrings: LongWord;
  Drives: array [0 .. 128] of Widechar;
  pDrive: PWideChar;
  IconCount: Integer;
begin
  IconCount := 1;

  ZeroMemory(@FileInfo, sizeof(SHFILEINFO));
  DriveList := TStringList.Create;

  AllDriveStrings := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if AllDriveStrings = 0 then
    exit;

  if AllDriveStrings > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));

  pDrive := Drives;
    while pDrive^ <> #0 do
    begin
      SHGetFileInfo(pDrive, FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
        SHGFI_DISPLAYNAME Or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);
      if GetDriveType(pDrive) = DRIVE_NO_ROOT_DIR or DRIVE_FIXED then
      begin
        DriveList.Add(pDrive);
        ListAdd(hList, FileInfo.szDisplayName);
        SetLength(IconHandle, IconCount + 1);
        IconHandle[IconCount] := FileInfo.HIcon;
        inc(IconCount);
        inc(pDrive, 4);
      end
    else
      inc(pDrive, 4);
  end;
end;

gruss

[Luckie]

Ich dachte an so was:

Delphi-Quellcode:

procedure AuswahlFenster;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    ListeFuellen(sl);
   // mach was mit sl
  finally
    sl.Free;
  end;
end;

procedure ListeFuellen(sl: TStringList);
begin
  //...
end;

[EWeiss]

Ich könnte den Lösungsansatz mal versuchen, möglich das ich dann einiges umstrukturieren muss.

EDIT:
Glaube das geht so einfach nicht.
Ich verwende die DriveList(TStringlist) übergreifen. Bsp. in WM_LBUTTONUP

Delphi-Quellcode:

Atom := GlobalAddAtom(PWideChar(DriveList.Strings[nItem]));
SendMessage(DirListHandle, WM_COMMAND, FILL_DIRECTORY, Atom);

DirStrPath := DriveList.Strings[nItem];

Das kann ich so einfach nicht umstricken..


gruss

[Luckie]

Finde ich übersichtlicher. Dann muss man nicht suchen, wo sie wieder freigegeben wird. Und je übersichtlicher, desto weniger Fehler können sich einschleichen.