초기화를 해서 할수도 있지만 이런 방법도 있습니다.


type
DirectoryType = (_WINDOWS, _TEMP, _SYSTEM, _CURRENT);

function GetDirectory(Dir: DirectoryType): string;
var
Path: array [0..260] of Char;
begin
case Dir of
_WINDOWS: GetWindowsDirectory(Path, Sizeof(Path));
_SYSTEM : GetSystemDirectory(Path, Sizeof(Path));
_TEMP : GetTempPath(Sizeof(Path), Path);
_CURRENT: GetCurrentDirectory(Sizeof(Path), Path);
end;
Result := StrPas(Path);
end;


위 코드는 윈도우 시스템 폴더 및 임시 폴더 등등을 구해오는 함수 입니다. 이곳에서 Char를 Array형태로 사용한것을 보시면 그대로 활용 하실 수 있을것 같습니다.

말씀하신 GetPrivateProfileString 의 사용법은 아래를 참조하세요.

스크린세이버 파일경로 구하기


function GetScreenSaveFilename: string;
var
Buffer: array[0..2047] of Char;
begin
SetString(Result, Buffer,
GetPrivateProfileString(PChar('boot'), PChar('SCRNSAVE.EXE'), PChar(''),
Buffer, SizeOf(Buffer), PChar('SYSTEM.INI')));
end;


//실행.
ShellExecute(0, NIL, PCHAR(GetScreenSaveFilename), NIL, NIL, 1);