[개발/delphi] 64bit 시스템 디렉토리 가져오기

[개발/delphi] 64bit 시스템 디렉토리 가져오기

 

// 64bit 시스템 디렉토리 가져오기

function GetSystemDir: string;

var  

  Buff: array[0..MAX_PATH] of Char;  

  Len: Integer;  

begin  

  Len := GetSystemWow64Directory(Buff, MAX_PATH);  

  if Len > 0 then  

  begin  

    Result := Buff;  

    if Buff[Len - 1] <> '\' then Result := Result + '\';  

  end  

  else Result := '';  

end;