Czemu ten kod nie dziala

Czemu ten kod sie wywala ?

var 
 Buf:array[0..MAX_PATH] of Char;
 NotUsed,VolFlags:Integer;
 DriveChar:Char;
 Serial:PDWORD;
begin 
 DriveChar := 'a';
 GetVolumeInformation(PChar(DriveChar + ':'),Buf,sizeof(Buf),
  @Serial,NotUsed,VolFlags,nil,0);
end;

var
Buf:array[0..MAX_PATH] of Char;

No tu na pewno jest błąd.
Nie możesz użyć tutaj czegoś takiego jak Max_Path, jeno konkretną liczbę. Albo zamiast tego możesz użyć tablic dynamicznych

Nie możesz użyć tutaj czegoś takiego jak Max_Path, jeno konkretną liczbę. Albo zamiast tego możesz użyć tablic dynamicznych

A czemu nie można? Max_Path to stała. No, i nic tu po tablicach dynamicznych, bo nie trzeba będzie zmieniać ich rozmiaru.

var
Buf:array[0..MAX_PATH] of Char;
NotUsed,VolFlags:Cardinal;
DriveChar :Char;
Serial:DWORD;
begin
DriveChar := 'a';

GetVolumeInformation(PChar(DriveChar + ':'),Buf,sizeof(Buf),
@serial,NotUsed,VolFlags,nil,0);
end;

Poprawiony kodzik!!!!
Mam nadzieję że będzie [browar] :)