БОЛЬШОЙ FAQ ПО DELPHI



Как указать системе на необходимость сбросить буфер 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
     WritePrivateProfileStringW(nil, nil, nil, StringToWideChar(FileName,
     CFileName, MAX_PATH))
   else
     WritePrivateProfileString(nil, nil, nil, PChar(FileName));
   {$ELSE}
   WritePrivateProfileString(nil, nil, nil, StrPLCopy(CFileName,
   FileName, SizeOf(CFileName) - 1));
   {$ENDIF}
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ