Nope. Stürzt bei Klick auf den Button ab. AberMmoment mal. Am Skinengine kann es nicht liegen. Das Fenster wird ja geskinnt. Das funktioniert ja alles. Der Fehler mit dem Absturz kommt ja erst, wenn der Dateiöffnen Code durch den Klick aufgerufen wird. Da müsste der Fehler zu suchen sein. Hast du irgendwelche Pfade hard gecodet oder so?
Der Dialog beinhaltet 3 Komponente
DriveList
DirList
FileList.
Bei der DriveList werden alle Festplatten addiert.
Delphi-Quellcode:
procedure TSkinDriveList.ListDrive(hList: hWnd);
var
FileInfo: SHFILEINFO;
AllDriveStrings: LongWord;
Drives:
array [0 .. 128]
of Widechar;
pDrive: PChar;
IconCount: Integer;
begin
IconCount := 1;
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;
also nichts festes.
Mit GetCurrentDirectory wird der letzte Pfad zugewiesen der verwendet wurde.
Wenn keiner existiert dann ist es der Pfad wo sich die Skins drin befinden.
Die Fileliste addiert die Dateien abhängig von dem Pfad der mit DirList gesetzt wurde.
Vorausgesetzt es finden sich MP3 Dateien darin.
Hard gecoded sollte da eigentlich nichts sein.
gruss