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, [...]
Merlin’s Delphi Forge