Obtener la carpeta de sistema de Windows

Artículo por Club Developers · 31 diciembre 2005

2730 vistas

Según la versión de Windows, la carpeta de sistema de Windows no es la misma (System32 o System). Para encontrar esta carpeta usaremos la función GetSystemDirectory.



delphi
  1. function SystemDirectory: String;
  2. const
  3.   dwLength = MAX_PATH + 1;
  4. var
  5.   SystemDir: PChar;
  6. begin
  7.   GetMem(SystemDir, dwLength);
  8.   try
  9.     GetSystemDirectory(SystemDir, dwLength);
  10.     Result := String(SystemDir);
  11.   finally
  12.     FreeMem(SystemDir, dwLength);
  13.   end;
  14. end;