Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
20-07-2005 12:31 | Сообщение от автора вопроса
Александр Федоров, огромное спасибо!!!
все работает:)))
var
c: Char;
drive, drives, drive_type: dword;
root_path_name: string;
begin
drive := 1;
drives := GetLogicalDrives;
for c := 'A' to 'Z' do
begin
if drives and drive = drive then
begin
root_path_name := c + ':\';
drive_type := GetDriveType(PChar(root_path_name));
if drive_type = DRIVE_FIXED then
ListBox1.Items.Add(root_path_name);
end;
drive := drive shl 1;
end;
end;
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
