Угадать букву дисковода! Опции

[Артемий]

Как угадать букву винчестера?Везде искал нех** нет.
(Извините ошибся в названии темы)

Сообщение отредактировано: Артемий2 - 4.09.2006 20:40

[Артемий]

У которого папка Windows есть!(Вот эт я пень!)

DRKB смотрел ?

Не пашет, Klem4!

Сообщение отредактировано: Артемий2 - 4.09.2006 21:27

[volvo]

У которого папка Windows есть!

А про переменную окружения %SYSTEMDRIVE% никогда не слышал?

var
  i: integer;
  s: string;

...
  try
    i := GetEnvironmentVariable(PChar('SYSTEMDRIVE'), nil, 0);

    if i > 0 then
      begin
        SetLength(s, i);
        GetEnvironmentVariable(Pchar('SYSTEMDRIVE'), PChar(s), i);
      end;
  except
    s := '';
  end;
  // В s содержится название системного диска