GetVolumeLabel and Serial on Linux? How?

[Fred556]

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]

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

[Fred556]

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]

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