Empesado por mierda>
Cita:
mira a ver si te sirve este codigo
Hola, aqui tengo un ejemplo que te servira:
|
Código Delphi
[-]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;
Ese codigo es el mismo que tiene este
libro de trucos en la pagina 76,
. me alegra que lo conoscas y aparte de eso tambien existen muchos otros trucos mas....
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
