Àêæàí â ñåòè - Íà óðîâåíü ââåðõ(API) Êàê óêàçàòü ñèñòåìå íà íåîáõîäèìîñòü ñáðîñèòü áóôåðà *.INI-ôàéëà íà äèñê?

procedure FlushIni(FileName: string);
var
{$IFDEF WIN32}
  CFileName: array[0..MAX_PATH] of WideChar;
{$ELSE}
  CFileName: array[0..127] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
  if (Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    WritePrivateProfileStringW(nil, nil, nil, StringToWideChar(FileName,
      CFileName, MAX_PATH));
  end
  else
  begin
    WritePrivateProfileString(nil, nil, nil, PChar(FileName));
  end;
{$ELSE}
  WritePrivateProfileString(nil, nil, nil, StrPLCopy(CFileName,
    FileName, SizeOf(CFileName) - 1));
{$ENDIF}
end;

Sergej Kosinskij

(2:5030/193)