mirror of
https://github.com/CarldricGaming/Mini-Compressor
synced 2026-08-23 02:26:04 -04:00
36 lines
593 B
ObjectPascal
36 lines
593 B
ObjectPascal
library MC_Ini;
|
|
|
|
uses
|
|
Windows, IniFiles;
|
|
|
|
function IniRead(Filez, A, B: string): string; stdcall;
|
|
var
|
|
IniFileME: TIniFile;
|
|
begin
|
|
IniFileME:= TIniFile.Create(Filez);
|
|
with IniFileME do
|
|
try
|
|
Result:= IniFileME.ReadString(A, B, '');
|
|
finally
|
|
IniFileME.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure IniCreate(Filez, A, B, C: string); stdcall;
|
|
var
|
|
IniFileME: TIniFile;
|
|
begin
|
|
IniFileME:= TIniFile.Create(Filez);
|
|
with IniFileME do
|
|
try
|
|
IniFileME.WriteString(A, B, C);
|
|
finally
|
|
IniFileME.Free;
|
|
end;
|
|
end;
|
|
|
|
exports
|
|
IniRead, IniCreate;
|
|
|
|
begin
|
|
end.
|