GetWinDir - NONE

[RIO]

Доброго времени суток Такой вопрос. Что вернет данная функция, если путь в ОС не будет найден, или его вообще не существует (вроде может быть такое, если я не ошибаюсь) ?

function GetWinDir: string;
var
  Dir: array [0..MAX_PATH] of Char;
begin
  GetWindowsDirectory(Dir, MAX_PATH);
  Result := StrPas(Dir);
end;

[Alexei91]

Если я не ошибаюсь GetWinDir вернет значение в практически любом случае,т.к. исп-ся системный путь Windows или как его там. А вот если Wine из Linux,то не знаю,наверное вернет,что-то.
В любом случае,если что не так - у Вас вылетит системное исключение.

[DIgorevich]

Что-то я не припоминаю случаев, чтобы в Windows папки одноименной не было.

[GunSmoker]

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

Что вернет данная функция, если путь в ОС не будет найден, или его вообще не существует (вроде может быть такое, если я не ошибаюсь) ?

Такой путь существует всегда. Это всё равно что спрашивать, включен ли компьютер (если бы он был выключен - вы бы не смогли задать этот вопрос!).

Если бы на машине не было бы папки Windows - значит не было бы и Windows, а значит, ваша программа не смогла бы запуститься, чтобы задать этот вопрос.

И вообще, то, что вы спрашиваете "что вернёт", не проверяя на возвращаемое значение - говорит о том, что вы пишете говно-код. Судя по всему, про обработку ошибок вы вообще никогда не слышали.

И MSDN читать не забываем:

The Windows directory is the directory where some legacy applications store initialization and help files. New applications should not store files in the Windows directory; instead, they should store system-wide data in the application's installation directory, and user-specific data in the user's profile.

If the user is running a shared version of the system, the Windows directory is guaranteed to be private for each user.

[Stilet]

If the function fails, the return value is zero. To get extended error information, call GetLastError.

тоесть:

function GetWinDir: string;
var
  Dir: array [0..MAX_PATH] of Char;
begin
  if GetWindowsDirectory(Dir, MAX_PATH) then  Result := StrPas(Dir)
  else RaiseLastWin32Error {Что позволит увидеть ошибку}
end;

GunSmoker

Ну ты бы тогда уже объяснил бы человеку почему микрососовцы всетки прикрутили к этой функции возврат ошибки.

[Пепел Феникса]

Виталий, только

function GetWinDir: string;
var
  Dir: array [0..MAX_PATH] of Char;
begin
  if GetWindowsDirectory(Dir, MAX_PATH)<>0 then  Result := StrPas(Dir)
  else RaiseLastWin32Error {Что позволит увидеть ошибку}
end;

в Делфи нет автопривидения к boolean как в С

[Stilet]

А-а-а ну да.
Я просто подумал что ее результат LongBool.

[Пепел Феникса]

вообще я обычно всегда делал так:

function GetWinDir:string;
begin
 SetLength(Result,MAX_PATH);
 SetLength(Result,GetWindowsDirectory(@Result[1],MAX_PATH));
end;

[RIO]

Спасибо оргномное всем, очень помогли, теперь я спокойно смогу обработать ошибки

[GunSmoker]

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

Ну ты бы тогда уже объяснил бы человеку почему микрососовцы всетки прикрутили к этой функции возврат ошибки.

В документации написано. Пусть учатся читать.