Взять значение label.caption (ini)

[mayor245]

Добрый день.
Как правильно вставить значение из label4.caption и label5.caption вот сюда:

procedure TForm1.Button2Click(Sender: TObject);
var
  pi:TProcessInformation;
  si:TStartupInfo;
  Ini: Tinifile;
begin
if ComboBox1.ItemIndex<>-1 then begin
Ini:=TiniFile.Create(ExtractFilePath(paramstr(0))+'users.ini');
label4.caption:= Ini.ReadString(form1.ComboBox1.Text,'Login',label4.caption);
label5.caption:= Ini.ReadString(form1.ComboBox1.Text,'Pass',label5.caption);

  FillChar(si, SizeOf(TStartupInfo), 0);
  si.cb:=SizeOf(TStartupInfo);
  CreateProcess('proga.bin',
PChar('"' + 'proga.bin' + '" ' + '-account:label4.caption -password:label5.caption'),nil,nil,False,CREATE_DEFAULT_ERROR_MODE,nil,nil,si,pi);
end
else
begin
  FillChar(si, SizeOf(TStartupInfo), 0);
  si.cb:=SizeOf(TStartupInfo);
  CreateProcess('proga.bin',
PChar('"' + 'proga.bin + '"'),nil,nil,False,CREATE_DEFAULT_ERROR_MODE,nil,nil,si,pi);
end;
end;

Спасибо.

[TorrentTor]

Попробовать так же через плюсы

CreateProcess('proga.bin',
PChar('"' + 'proga.bin' + '" ' + '-account:'+label4.caption+' -password:'+label5.caption),nil,nil,False,CREATE_DEFAULT_ERROR_MODE,nil,nil,si,pi);

[mayor245]

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

Попробовать так же через плюсы

CreateProcess('proga.bin',
PChar('"' + 'proga.bin' + '" ' + '-account:'+label4.caption+' -password:'+label5.caption),nil,nil,False,CREATE_DEFAULT_ERROR_MODE,nil,nil,si,pi);

Спасибо, помогло.