Mini-Compressor/MC_Ini.dpr
Carldric Clement d0a7aa7187
updated script
2023-01-20 14:38:03 +08:00

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.