Das muss eigentlich funktionieren.
Ist vielleicht der vollständige Pfad nicht angegeben
Delphi-Quellcode:
procedure TForm1.Button10Click(Sender: TObject);
var f: String;
begin
f := ExtractFilePath(ParamStr(0)) + 'test.inf';
showmessage(f);
with TIniFile.Create(f) do begin
showmessage(ReadString('Components', 'WBEM', 'ERROR'));
Free;
end;
end;
Gruß