cd serial

czy da sie zrobic tak by aplikacja dizalala tylko na jednej płycie?

chodzi mi zeby sprawdzala seriala

robiw w ten sposob:
[delphi]
var i:integer; Drive:Char; Bufor:array[0..MAX_PATH] of Char; Serial:DWORD;
MaxCompLength,FileSystemFlags:cardinal; s2,s3:string;
begin
for i:=0 to 15 do
begin
Drive:=chr(67+i);
GetVolumeInformation(PChar(Drive + ':'),Bufor,SizeOf(Bufor), @serial,MaxCompLength,FileSystemFlags,nil,0);
s2:=inttostr(serial);
s3:=chr(67+i);
messagebox(0,pchar(s2),pchar(s3),0)
end;
end;
[/delphi]

ale na innych kompach ten serial sie zminia

u mnie rozroznia plyty a u innych tez ale jako inne cyfry

[glowa] [glowa] [glowa]

A jak chcesz zeby byl ten sam, jak lecisz forem po 15 napedach, wiesz co to jest KURS? To taki fajny tekst, ktory mozesz przeczytac i bedziesz wiedzial co robi for i char.

WIEM CO ROBI !!! i wiem ze po odczytaniu cdromu nie czyta juz wiecej kabatow i zwaraca wartosc ok..

Nie lepiej wyciac litery dysku z Application.ExeName?

racja - dzieki
i juz wiem dalczego mi na innym nie dzialalo
bo an starszych napedach nr seryjny cd jest inny(taki sam dal wszyskich starszych )i dla nowych sa te same...
wiec musze zrobic dodatkowo funkcje or ...
i nagrywac płyty na starej nagrywrce i sparawdzac an nwoej jaki jest nr a potem jeszce dogrywac aplikacje