RE:NUMERO DE SERIE
Publicado por
ErGrone (1 intervención) el 05/01/2002 07:02:30
RAMON puedes meterte tu rutina por el C - U - L - O.
juan no te pregunto cuanto te demoraste, sino que intento acceder mediante la buena voluntad de algunos. Ojalas pongas tu p - u - -t ... a aplicacion en la red , aver si yo o alguien con mas conocimientos te la reversa.
entre tanto, al amigo juan que pregunto, yo no se que es dbfast pero si es posible utilizar apis en eso, estas perdiendo el tiempo intentando inventar una rutina.
esta funcion es para delphi, esta en la web de trucomania.
(esta es la api que da el serial GetVolumeInformation.)
function GetVolumeID(DriveChar: Char): String;
var
MaxFileNameLength, VolFlags, SerNum: DWord;
begin
if GetVolumeInformation(PChar(DriveChar + ':\'), nil, 0,
@SerNum, MaxFileNameLength, VolFlags, nil, 0)
then
begin
Result := IntToHex(SerNum,8);
Insert('-', Result, 5);
end
else
Result := '';
end;
el ejemplo de llamada es:
Label1.Caption:=GetVolumeId('c');
un saludo, y ojalas que la mente opencode se posecione de RaTon.