| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Номер винта. [D5, WinME]
zzet © (2002-09-29 11:52:00)Мастера, подскажите, плз, при каких обстоятельствах этот код не будет работать?
var
SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation("c:\", Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then
Result := IntToHex(SerialNum,8);
end;
Song (2002-09-30 00:03:00) [1]Никаких проблем, не волнуйся.
zzet (2002-09-29 22:31:00) [2]Меня особенно интересует WXP, есть ли какието специфические особенности, мешающие работе кода?
alena.svt (2002-09-29 20:54:00) [3]. (29.09.02 20:50)
когда грузишся с сети
function GetVolumeStr : string;
var
SerialNum,N : DWORD;
WinDir : array[0..MAX_PATH] of char;
begin
GetWindowsDirectory(WinDir, MAX_PATH);
WinDir[3] := #0;
if GetVolumeInformation(WinDir,nil,0,@SerialNum,N,N,nil,0)
then
Result := IntToHex(SerialNum, 8)
else
Result := "None";
end;
А я быда уверена?
. (2002-09-29 20:50:00) [4]когда грузишся с сети
alena.svt (2002-09-29 20:46:00) [5]. (29.09.02 20:38)
boot to network, windir=0
?
. (2002-09-29 20:38:00) [6]boot to network, windir=0
alena.svt (2002-09-29 20:33:00) [7]Может просто получить вместо С:\ дир. Wind"ы тогда наверно сто процентов будет не 0
Song (2002-09-29 14:13:00) [8]Будет 0
zzet (2002-09-29 13:40:00) [9]>Song
а чему в это случае будет равен результ?
может есть еще варианты? плз.
Song (2002-09-29 12:49:00) [10]Не будет работать, если диск С будет диск, который не может иметь серийный номер, например, сетевой.
zzet (2002-09-29 12:34:00) [11]Мастера, если кто сталкивался, помогите. Мне нужно знать сабж, делаю программу где от этого много зависит, а спросить не у кого и в прессе об этом не пишут.. Ж-(
zzet (2002-09-29 12:08:00) [12]Ну.. если винчестера нет..
Если виндус не установлен..
| |
