A Windows könyvtár helyét a GetWindowsDirectory függvénnyel tudjuk megállapítani. 
(Ennek a függvénynek a DOS-os megfelelője a GetWindowsDir,
amelyet azonban nem használhatunk windowsos alkalmazásban.) 
Az alábbi függvény visszaadja a Windows könyvtár helyét (elérési útját):

functionFindWindowsDir : string;
var
   pWindowsDir : array [0..255] of Char;
   sWindowsDir : string;
begin
    GetWindowsDirectory (pWindowsDir, 255);
    sWindowsDir := StrPas (pWindowsDir);
    Result := sWindowsDir ;
end;