Conseguir directorio de windows

Conseguir directorio de windows

Conseguir directorio de windows : Multi-millones de consejos para hacer su vida mas facil.

Como encontrar la ruta de acceso del directorio de windows.
funcion WindowsDirectory : String
var
& nbsp & nbsp Buffer : Array[0..Max_path] of char
begin
& nbsp & nbsp FillChar(Buffer,Max_Path 1, 0)
& nbsp & nbsp GetWindowsDirectory(Buffer,Max_path)
& nbsp & nbsp Resultado := Cadena de caracteres(Buffer)
& nbsp & nbsp si el Resultado[de Longitud(Resultado)] <> '/' then Resultado := Resultado '/'
fin