Checke alle drev

ved ikke helt hvad du ønsker, men sådan lopper du igennem alle drev og tager serial nr:

procedure TForm1.Button1Click(Sender: TObject);
var
  i                : char;
  VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags  : DWORD;
  SerialNumber      : string;
begin
  for I := 'A' to 'Z' do
  begin
    GetVolumeInformation(pchar(I + ':\'), nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0);
    SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' + IntToHex(LoWord(VolumeSerialNumber), 4);
    memo1.Lines.Add(I+' - '+SerialNumber);
  end;
end;

Hvad betyder @ foran egentligt?

@ laver variablen om til en pointer type.
For mere info står der en masse i hjælpen, men det kræver lidt at forstå det.