VPF::Функция GetVolumeInformation - Форум программистов

Mephisto

Дата 27.12.2004, 21:13 (ссылка)

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

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

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

Код

function TfrmMain.VolumeInfo: Integer;
    var VolumeName,
    VolumePath,
    FileSystemName     : array [0..MAX_PATH-1] of Char;
    MaxComponentLength,VolumeSerialNo     : DWord;
    FileSystemFlags    : DWord;
    i : integer;
begin
    result := 0;

    For i := 0 to MAX_PATH-1 do
    begin
        VolumePath[i]     := Chr(Ord(0));
        VolumeName[i]     := Chr(Ord(0));
        FileSystemName[i] := Chr(Ord(0));
    end;
    MaxComponentLength := 0;
    FileSystemFlags := 0;

    VolumePath[0]:='c';
    VolumePath[0]:=':';
    VolumePath[0]:='\';
    if GetVolumeInformation(VolumePath,
                            @VolumeName,
                            MAX_PATH,
                            @VolumeSerialNo,
                            MaxComponentLength,
                            FileSystemFlags,
                            FileSystemName,
                            MAX_PATH) then
        result := VolumeSerialNo;
end;

Вот нашел такой исходник. smile

Пчему если его положить на сервер и запустить с сети он вернет не номер клиента, а вернёт номер сервера?????
Почему вызывается апи сервера?

Yanis

Дата 28.12.2004, 02:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Код


   VolumePath[0]:='c';
   VolumePath[0]:=':';
   VolumePath[0]:='\';

Что то я до этого кода не догоняю!? :/

Это сообщение отредактировал(а) Yanis - 28.12.2004, 02:32

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

*щёлк*

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