[antonKKEP]

Помогите разобраться с настройками назнач. задания...

Код:

procedure TForm1.ButtonsasClick(Sender: TObject);
var
v,p:OLEVAriant;
items:OLEVAriant;
begin
ScriptControl1.Language := 'VBScript';
V:=ScriptControl1.Eval('GetObject("winmgmts:\\.\root\cimv2")');
p:=ScriptControl1.Eval('GetObject("winmgmts:Win32_ScheduledJob")');
p.create('"c:\123.doc"','********100100.000000+180','TRUE','','','false','Номер');

//function Create (Command, DaysOfMonth, DaysOfWeek, InteractWithDesktop, RunRepeatedly, StartTime) => (JobId, ReturnValue)>
end;

Admin: Последнее предупреждение по оформлению кода, далее последуют санкции.