Здравствуйте, source!

var
Dir: String;
begin
setlength(Dir, MaxPath);
GetWindowsDirectory(PChar(Dir), MaxPath);
Dir := String(PChar(Dir));
...
end;

Здравствуйте, source!
Есть функция GetSystemDirectory.
UINT GetSystemDirectory(
LPTSTR lpBuffer, // address of buffer for system directory
UINT uSize // size of directory buffer
);

Здравствуйте, source!
Поправлю предыдущий пост в том плане, что там получаем путь к папке Windows (она же WinNT), а для system32 надо использовать GetSystemDirectory:

{$APPTYPE CONSOLE}

uses Windows;

const MaxPath=65000;

var Dir: array [0..MaxPath] of char;
begin
GetSystemDirectory(Dir,MaxPath);
WriteLn(Dir);
ReadLn;
end.

У меня выдало c:\Windows\system32

Здравствуйте, source!
Можно использовать вмсето прямых путей переменные среды. Например путь к system32 будет выглядеть так:

%windir%\system32

Подробнее о переменных среды можно прочитать здесь: http://oszone.net/3673

Здравствуйте, source!
Сегодня уже отвечал на похожий вопрос. Можно например так:
function GetHomePath: string;
var ps : PChar;
begin
Result := ‘‘;
ps := AllocMem(256);
If GetEnvironmentVariable(‘SystemRoot‘, ps, 256) > 0 then
Result := ps + ‘\system32\‘;
// После использования освобождаем занятую память
FreeMem(ps);
end;