Merlin’s Delphi Forge

To found out the name of the Windows directory it’s best to use the Windows API GetSystemDirectory() function.
Here’s the Delphi implementation:

uses Windows;
…
function GetSystemDir: string;
const
(* The length of the directory buffer. Usually 64 or even 16 is enough
**
** Must be DWORD type.
*)
dwLength: DWORD = 255;
var
psSysDir: PChar;
begin
GetMem(psSysDir, dwLength);
GetSystemDirectory(psSysDir, [...]

To found out the name of the Windows directory it’s best to use the Windows API GetWindowsDirectory() function.
Here’s the Delphi implementation:

uses Windows;
…
function GetWindowsDir: string;
const
(* The length of the directory buffer. Usually 64 or even 16 is enough
**
** Must be DWORD type.
*)
dwLength: DWORD = 255;
var
pcWinDir: PChar;
begin
GetMem(pcWinDir, dwLength);
GetWindowsDirectory(pcWinDir, [...]