|
| Add task job |  
|
|---|
| Add a task job to ur system | Product:
Delphi all versions | Category:
N/A | Skill Level:
 | Scoring:  | Last Update:
03/13/2003 | Search Keys:
delphi delphi3000 article borland vcl code-snippet NetScheduleJobAdd netapi32.dll AddJob | Times Scored:
6 | Visits:
2709 | Uploader: Smile xiao
Company: | Reference: N/A | | | Question/Problem/Abstract:
How can I add a task job. | Answer:
Do as following
type
TAT_INFO = record
JobTime: DWord;
DaysOfMonth: DWord;
DaysOfWeek: UCHAR;
Flags: UCHAR;
Command: PWideChar;
end;
PAT_INFO = ^TAT_INFO;
NET_API_STATUS = LongInt;
function NetScheduleJobAdd(ServerName: PWideChar; Buffer: PAT_INFO; var JobID:
PDWORD): NET_API_STATUS; external 'netapi32.dll' name 'NetScheduleJobAdd';
procedure AddJob(const FileName: string);
var
ATInfo: PAT_Info;
JobID: PDWORD;
begin
GetMem(atinfo, SizeOf(TAt_info));
GetMem(JobID, SizeOf(DWORD));
atinfo^.JobTime := 10800000;
atinfo^.Command := FileName;
atinfo^.Flags := 8;
NetScheduleJobAdd(nil, atinfo, JobID);
FreeMem(jobid);
FreeMem(atinfo);
end;
|
|
|
| |
Sign up to consume product discounts for Bronze memberships !
|
|
| |
Community Ad of
Peganza |
|
| |
|
|
|
Sign Up
