GetVolumeLabel and Serial on Linux? How?
lazarus / 1-Linux

----------------------------------------------------------------------
Fred556 · 2009-10-25 16:39

Hi,

can everybody translate it in linux for lazarus?

function GetVolumeSerialNo(Drive: Char): DWORD;
begin
  GetVolumeInformation(PChar(Drive + ':\'), nil, 0, @Result,
DWORD(nil^), DWORD(nil^), nil, 0);
end;

And how I get the label name?

----------------------------------------------------------------------
theo · 2009-10-25 17:24

http://forum.lazarus.freepascal.org/index.php?action=search2&search=Ge
tVolumeInformation

----------------------------------------------------------------------
Fred556 · 2009-11-05 14:48

Hello,

not found the right.

Can everybody translate this code into linux fpc?

function GetVolumeID(Drive : Char) : PCHar;
type
  TCharBuffer = array[0..255] of Char;
var num :  TCharBuffer;
begin
  GetVolumeInformation(pChar(Drive + ':\'), @num, sizeof(num), nil,
DWord(nil^), DWord(nil^), nil, 0);
  result := num;
end;

----------------------------------------------------------------------
diducu · 2009-11-05 17:19

Man help me pls my pc dont let me to instal Linux.I dont know why .I
install it and when i rulle it he give me an criticall err.and the pc
is dead