kann mir wer diese Code fpr FPC ins Linux übersetzen?
Als Drive : Char sollte immer das Laufwerk sein, wo sich die kompilierte ELF Datei befindet.
Code: Alles auswählen
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;