Скачать: CL | DM;

Номер винта.   Найти похожие ветки 

← →
zzet ©   (2002-09-29 11:52) [0]

Мастера, подскажите, плз, при каких обстоятельствах этот код не будет работать?


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;

---

← →
zzet ©   (2002-09-29 12:08) [1]

Ну.. если винчестера нет..
Если виндус не установлен..

---

← →
zzet ©   (2002-09-29 12:34) [2]

Мастера, если кто сталкивался, помогите. Мне нужно знать сабж, делаю программу где от этого много зависит, а спросить не у кого и в прессе об этом не пишут.. Ж-(

---

← →
Song ©   (2002-09-29 12:49) [3]

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

---

← →
zzet ©   (2002-09-29 13:40) [4]

>Song
а чему в это случае будет равен результ?

может есть еще варианты? плз.

---

← →
Song ©   (2002-09-29 14:13) [5]

Будет 0

---

← →
alena.svt ©   (2002-09-29 20:33) [6]

Может просто получить вместо С:\ дир. Wind"ы тогда наверно сто процентов будет не 0

---

← →
.   (2002-09-29 20:38) [7]

boot to network, windir=0

---

← →
alena.svt ©   (2002-09-29 20:46) [8]

. (29.09.02 20:38)
boot to network, windir=0

?

---

← →
.   (2002-09-29 20:50) [9]

когда грузишся с сети

---

← →
alena.svt ©   (2002-09-29 20:54) [10]

. (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;
А я быда уверена?

---

← →
zzet ©   (2002-09-29 22:31) [11]

Меня особенно интересует WXP, есть ли какието специфические особенности, мешающие работе кода?

---

← →
Song ©   (2002-09-30 00:03) [12]

Никаких проблем, не волнуйся.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c