[Pascal]Numer seryjny dysku

0

Czy w kompilatorze dev-pascal(freepascal) jest mozliwosc odczytania numeru seryjnego dysku lub innego urzadzenia ??
Szukalem na forum i czytalem i nie znalazlem nic dzialajacego pod pascala :) Moze ktos wie jak ?, jesli wie prosze o napisanie :-)

0

no spoko myslisz ze tego nie robilem ? pisalem w 1 poscie.. znajdz mi tam dzialajacy program na pascala...

0

var
Bufor:array[0..MAX_PATH] of Char;
MaxCompLength, FileSystemFlags : Integer;
Drive:Char;
Serial:DWORD;
begin
Drive:='A';
GetVolumeInformation(PChar(Drive + ':'),Bufor,SizeOf(Bufor),
@serial,MaxCompLength,FileSystemFlags,nil,0);
end;

Zmienna "Serial" posiada numer seryjny dyskietki, a "Bufor" etykietę.
W przypadku dysku podaje numer partycji.

0
 GetVolumeInformation(PChar(Drive + ':\'),Bufor,SizeOf(Bufor),

11 / 23
Error: Illegal type conversion

0

MaxCompLength, FileSystemFlags : DWORD;

Kożystaj z help'a !

0

niestety ciagle to samo :|

0

Taka mala uwaga. to jest kod na pobranie seriala woluminu a nie seriala dysku.

Serial woluminu ulega zmianie po kazdoroazowym czyszczeniu dysku programem format.

0

znasz moze do pobrania serialu dusku ?? albo procka ?? cokolwiek ?

1 użytkowników online, w tym zalogowanych: 0, gości: 1