Maks150988
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Эм, тупой конечно вопрос у меня, но все же... Итак, имеем директорию в котрой находится наш файл и директория Skins. В директории Skins находятся остальные директории - названия папок для скинов. Так вот необходимо получить список этих папок в директории Skins. Код:
Код:
function ScanSkinDirs(PathDir : String) : Boolean;
var
FindData : TWin32FindData;
FindHandle : THandle;
Directory : String;
begin
FindHandle := FindFirstFile(PChar(PathDir + '*'), FindData);
try
if FindHandle <> INVALID_HANDLE_VALUE then
repeat
if Ord(FindData.cFileName[0]) <> 46 then
begin
if (FindData.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY) then
begin
ScanSkinDirs(PathDir + FindData.cFileName + '\');
Directory := StringReplace(PChar(PathDir + FindData.cFileName), PathDir, '');
SendMessage(GetDlgItem(hTab, ID_CMBX_SKIN), CB_ADDSTRING, 0, Integer(PChar(Directory)));
end;
end;
until
Windows.FindNextFile(FindHandle, FindData) = FALSE;
finally
Windows.FindClose(FindHandle);
end;
Result := TRUE;
end;
|
Ну и begin...
Код:
GetAppPath := ExtractFilePath(ParamStr(0));
ScanSkinDirs(GetAppPath + '\' + 'Skins');
|
Собственно непонятно почему добавляется только папка Skins, а не ее папки.  |
