Загрузка и чтение настроек

[Dima170792]

Добрый день уважаеммые господа.
Сломал весь мозг (милион лет назад работал с Delphi), возможно сможете подсказать или помось в решении задачи.

Делаю микро службу, зада которой при старте запускать файл bat.

Код юнита:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, IniFiles;

type
  TBOT_srv = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  BOT_srv: TBOT_srv;
  ini:Tinifile;
  s: string;
implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  BOT_srv.Controller(CtrlCode);
end;

function TBOT_srv.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TBOT_srv.ServiceStart(Sender: TService; var Started: Boolean);
begin
ini := Tinifile.Create('Settings.ini');
s := ini.ReadString('Bot_set','folder', 'Îøèáêà ïðè ÷òåíèè!');

WinExec('cmd /c "python "'+s+'', SW_Normal);
end;

end.

Не получается считать с файла ini параметр пути выполняемого скрипта.
собственно сам Settings.ini

[Bot_set]
folder=C:\zabbix\scripts\users\_bot.py

Если не сложно - подскажите где туплю?

[Arigato]

Сообщение от Dima170792

ini := Tinifile.Create('Settings.ini');

Попробуйте так:

ini := Tinifile.Create(ExtractFilePath(ParamStr(0)) + 'Settings.ini');

[Dima170792]

procedure TBOT_srv.ServiceStart(Sender: TService; var Started: Boolean);
begin
ini := Tinifile.Create('C:\zabbix\scripts\users\bin\Settings.ini');
s := ini.ReadString('Bot_set','folder', 'Îøèáêà ïðè ÷òåíèè!');
 
WinExec('cmd /c "python "'+s+'', SW_Normal);
end;

на выходе

[Error] Unit1.pas(41): Incompatible types: 'String' and 'PAnsiChar'

[Arigato]

WinExec(PAnsiChar('cmd /c "python "'+s), SW_Normal);

[Dima170792]

Arigato, СПАСИБО ОГРОМНЕЙШЕЕ! Вы БОГ!!! хорошего Вам вечера.!!!