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 :-)
Zobacz, wpisałem w wyszukiwarce temat Twojego posta:
http://4programmers.net/Forum/search.php?q=Numer+seryjny+dysku&t=AND&f%5B%5D=15&f%5B%5D=1&mode=topic&sort=time&order=DESC&o=text&limit=0
no spoko myslisz ze tego nie robilem ? pisalem w 1 poscie.. znajdz mi tam dzialajacy program na pascala...
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.
GetVolumeInformation(PChar(Drive + ':\'),Bufor,SizeOf(Bufor),
11 / 23
Error: Illegal type conversion
MaxCompLength, FileSystemFlags : DWORD;
Kożystaj z help'a !
niestety ciagle to samo :|
Taka mala uwaga. to jest kod na pobranie seriala woluminu a nie seriala dysku.
Serial woluminu ulega zmianie po kazdoroazowym czyszczeniu dysku programem format.
znasz moze do pobrania serialu dusku ?? albo procka ?? cokolwiek ?