Имя системного диска

[GvR]

Всем привет!
Есть строка

Disc + '\ Documents and Settings \' + GetUserFromWindows + '\ Application Data \'

Нужна функция для Disc, то есть функция что бы узнать имя системного диска.

[Slovinsky]

А кто вам сказал, что директория будет называться '\ Documents and Settings \'? У меня на ноуте просто Documents ;-)
Весь путь, что вам нужен, можно получить с помощью функции SHGetSpecialFolderPath (параметр CSIDL_APPDATA)
http://www.delphilab.ru/content/view/160/85/

[MaxNik2009]

Попробуй функцию

function GetEnvironmentVariable(const Name: string): string;

[Grag]

В одной из своих программ я определяю системные папки Windows. Для этого мне было нужно определить где именно установлена Винда. Я использовал вот такую функцию

function GetWindowsFolder:string;
var
  WinDirP:PChar;
  Res:Cardinal;

begin
  WinDirP:=StrAlloc(MAX_PATH);
  Res:=GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res>0 then
    Result:=StrPas(WinDirP)
end;

А уж системным будет тот диск, с которого запущена ОСь...

[bitSoft]

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

В одной из своих программ я определяю системные папки Windows. Для этого мне было нужно определить где именно установлена Винда. Я использовал вот такую функцию

function GetWindowsFolder:string;
var
  WinDirP:PChar;
  Res:Cardinal;

begin
  WinDirP:=StrAlloc(MAX_PATH);
  Res:=GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res>0 then
    Result:=StrPas(WinDirP)
end;

А уж системным будет тот диск, с которого запущена ОСь...

+1, ExtractFileDrive

function GetSystemDrive:string;
var
  WinDirP:PChar;
  Res:Cardinal;
begin
  WinDirP:=StrAlloc(MAX_PATH);
  Res:=GetWindowsDirectory(WinDirP, MAX_PATH);
  if Res>0 then
    Result:=ExtractFileDrive(StrPas(WinDirP));
end;

[Grag]

Главное - натолкнуть на мысль... Иногда движение вперед - это результат пинка в зад...

[MotoArhangel]

Вот может кому понравиться мой вариант))) Спасибо преподавателю, научил массивам)

var 
  WinDir:  array[0..MAX_PATH] of char;
  WinDrive:string;
begin
  GetWindowsDirectory(WinDir, sizeof(WinDir));
  WinDrive:=ExtractFileDrive(StrPas(WinDir));
end;