프로그램 파일 폴더의 내용을 가져오는 예제입니다.

제 기억으로는 델파이 4부터 가능한것으로 압니다.

CSIDL_PROGRAM_FILES등의내용은 ShFolder를 참고 하시면 됩니다.

Uses shFolder;

function 프로그램파일폴더_가져오기: string;

var

  폴더명: Array[0..MAX_PATH] of char;

begin

  Result := '';

  if SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0,0, @폴더명[0]) = S_OK then

    Result := 폴더명;

end;