[*.bpl]

function GetWinDir: String;
begin
SetLength(Result, MAX_PATH);
SetLength(Result, GetWindowsDirectory(PChar(Result), Length(Result)));
end;