22.01.2007, 12:34
общий
это ответ
Здравствуйте, 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