Existe alguma funcao que me retorno o diretorio do Windows?

[quote:6e2bf0ffc1=´Rodrigo Ferreira´]Eu precisso de uma funcao que retorne o diretorio do windows nao importando onde o executavel estaja sendo utilizado...[/quote:6e2bf0ffc1]

Diretório de instalação do windows
function PegaSysDir: string;
var
MeuBuffer: Array [1..128] of Char;
retorno: Integer;
Begin
retorno:=GetSystemDirectory(@MeuBuffer,128);
if (retorno>128) OR (retorno=0) then
PegaSysDir:=´´
else
PegaSysDir:=StrPas(@MeuBuffer);
End;