INI-Dateien mit Non-VCL

[delphi_freak]

Hi habe ein kleines Problem. und zwar will ich einstellungen aus einer INI-DAtei lesen. Nur kommt wenn ich zwei oder mehr einstellungen auslese ein Runtime-Fehler. Ich mache das so (Teile aus Luckies TUT):

Delphi-Quellcode:

program test;

uses
  Windows, Messages;

var
  test1, test2 : PChar;

const
  Bufsize = 65535;
  IniFile = 'settings.ini';

function ExtractFilePath(const szFilename: string): string;
var
  i : integer;
begin
  if(pos(':',szFilename) > 0) or (pos('\',szFilename) > 0) then
    begin
      i      := length(szFileName); while not(szFilename[i] in['\',':']) do dec(i);
      Result := copy(szFilename,1,i);
      if(szFilename[i] = ':') then Result := Result + '\';
    end
  else
    Result := '';
end;

begin
  {Einstellungen aus Ini}
  GetPrivateProfileString('Einstellungen', 'test1', nil, test1, BUFSIZE, pchar(ExtractFilePath(paramstr(0)) + IniFile));
  GetPrivateProfileString('Einstellungen', 'test2', nil, test2, BUFSIZE, pchar(ExtractFilePath(paramstr(0)) + IniFile));
 end.