본문 바로가기
Delphi, RadStudio

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

by SB리치퍼슨 2012. 1. 13.
[개발/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;   
반응형

댓글