Показать сообщение отдельно
  #1  
Старый 13.06.2015, 19:19
HTTqp HTTqp вне форума
Новичок
 
Регистрация: 16.04.2014
Сообщения: 77
Версия Delphi: Delphi 7
Репутация: -25
Восклицание Передать данные в WinExec

Кто нибудь подскажет как передать данные в winexec чтобы выполнилось действие.
Есть программа делает каждый час бекап файла, но не получается добавить ее в планировщик задач через cmd.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  buf: String;
begin
  buf:='cmd /c "Schtasks /Create /sc minute /mo 60 /tn "Backup_File" /tr "'+GetWin('%APPDATA%')+'\FileZilla\Backup_File\' + 'Backup.exe""';
  WinExec(PAnsiChar(buf), Sw_Show);
  ShellExecute(Handle, nil, PChar(buf), nil,nil, Sw_Show);
end;

главное если просто выполнить команду

Код:
'cmd /c "Schtasks /Create /sc minute /mo 60 /tn "Backup_File" /tr "'+GetWin('%APPDATA%')+'\FileZilla\Backup_File\' + 'Backup.exe""'
через Win+R -> "Выполнить" программа добавляется в планировщик задач без проблем, а программно не хочет!
Ответить с цитированием