Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Запуск CMD - вставить команду (Запуск CMD)
Запуск CMD - вставить команду
Добрый день Есть строка запуска

Код
"C:\Program Files (x86)\pgAdmin III\1.16\\pg_dump.exe" --host "192.168.15.50"  --port 5432 --username "postgres" --role "postgres" --no-password --format custom --blobs --section pre-data --section data --section post-data --encoding UTF8 --verbose --file "D:\old.backup" "gilev"pause


Которую я генерируют

Код
VarChecket:integer;
beginini_file := TIniFile.Create('config.ini');StatusBar1.Panels[1].Text:=((ExtractFilePath(Application.ExeName) + 'config.ini'));tryhost.Text:= ini_file.ReadString('conf', 'host','127.0.0.1');port.Text:= ini_file.ReadString('conf', 'port','5432');username.Text:= ini_file.ReadString('conf', 'username','5432');role.Text:= ini_file.ReadString('conf', '=role','postgres');BD.Text:= ini_file.ReadString('conf', 'BD','Base');SaveToFile.Text:= ini_file.ReadString('conf', 'file','C:\')+BD.Text+'_'+FormatDateTime('dd.mm.yyyy', Now)+'.backup';Checket:=StrToInt(ini_file.ReadString('conf', 'Select','0'));finallyini_file.Free
end;If Checket = 0  thenbeginCheckBox1.Checked:=false;
Button1.Enabled:=true;
endelsebeginCheckBox1.Checked:=true;
Button1.Enabled:=false;
end


Как запустить данную с троку в CMD , что б результат выполнения отображался в memo???
Спасибо
1 | Автор: gribok354 | 2019-10-14, 12:06   |  Репутация: [ + 0 ]
1 | Автор: gribok354 | 2019-10-14, 12:06   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Запуск CMD - вставить команду (Запуск CMD)
  • Страница 1 из 1
  • 1
Поиск: