[poli-smen]

Сообщение от true

А можно примеры к GetLogicalDrives, я так понял что он число возвращает, как мне сделать чтобы он их в латинские буквы переводил?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  d: DWORD;
  c: Char;
  s: string;
begin
  d := GetLogicalDrives;
  for c := 'A' to 'Z' do
  begin
    if Odd(d) then s := s + c;
    d := d shr 1;
  end;
  ShowMessage(s);
end;