VPF::получение списка дисков WinAPI - Форум программистов

burakov

Дата 25.5.2009, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 28.7.2006

Репутация: нет
Всего: нет

Добрый день,
пытаюсь получить список дисков при помощи Win32::API.
Ничего не получается...

вот код ...

Код


my $get_logical_drives = Win32::API -> new ('Kernel32', 'GetLogicalDriveStrings', 'N', 'P');
my $result_logical_drives = $get_logical_drives -> Call ('255');
print "$result_logical_drives\n";

и еще вопросик

Если функция Win32::API возвращает одно значение
например (работает smile

)

Код


my $get_type_drive = Win32::API -> new ('Kernel32', 'GetDriveType', 'P', 'N');
my $result_type_drive = $get_type_drive -> Call ('C:\\');
print "$result_type_drive\n";

то присваивание $get_type_drive -> Call ('C:\\') понятно...
а если функция должна возвращать список значений (да еще разношерстных)
как быть??? желательно примерчик smile

Спасибо.

--------------------

Нотный архив http://libnote.ru скачать ноты бесплатно

zenixan

Дата 4.6.2009, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 27.8.2007

Репутация: нет
Всего: нет

Смотрим в msdn GetLogicalDriveStrings.
Читаем описание функции

Код


DWORD WINAPI GetLogicalDriveStrings(
  __in   DWORD nBufferLength,
  __out  LPTSTR lpBuffer
);

Собственно первый параметр длина буфера, второй указатель на буфер. Соотвественно

Код


use Win32::API;
Win32::API->Import("kernel32", "GetLogicalDriveStrings", 'NP');
my $buffer = " " x 80;
GetLogicalDriveStrings(length($buffer), $buffer);
print $buffer;

Вобщем внимательней надо быть с указателями.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »