[PhoeniX]

Не уверен, но думаю, что

Код:

var
  buffer:PWideChar;
begin
  GetCurrentDirectory(200,Buffer);
  WritePrivateProfileSection('MyInf','',(BUFFER)+'\conf.ini');
  WritePrivateProfileString('MyInf','STATUS','OK',GetCurrentDirectory(200, buffer)+'\conf.ini');
end;

как-то так