🚀 go-pugleaf

"Ted Tripp" <ttripp@rankexec.com> wrote:

>Scheduled Tasks folder. 

You can retrieve the location of the Tasks folder from the registry by getting data for the following value: 

HKEY_LOCAL_MACHINE 
SOFTWARE 
Microsoft 
SchedulingAgent 
TasksFolder

In my case "%SystemRoot%\Tasks"

it means "C:\WINNT\Tasks"

You can run Scheduler via Scriptable Shell Objects.
It's a little tricky but possible.

Follow code for BCB5.

Init shell objects:

CoInitialize(NULL);
Variant SA=Variant::CreateObject("Shell.Application");
Function NameSpace("NameSpace");
Function Items("Items");

//Virtual folder containing icons for the Control Panel 
//applications. (value = 3) 
int ssfCONTROLS=3;
//get it folder - scheduler there
Variant fold=SA.Exec(NameSpace << ssfCONTROLS);

//will be enum items of folder and search scheduler
Variant It=fold.Exec(Items);
int count=It.Exec(PropertyGet("Count"));


//Search folder with name "Scheduled Tasks" inside CPAs
 Variant schedulerFold=Variant::Empty();
for(int i=0; i<count; ++i)
   {
    if(AnsiString(Variant(It.Exec(Function("Item") << i)).Exec(PropertyGet("Name"))) == "Scheduled Tasks" )
         {
           schedulerFold=It.Exec(Function("Item") << i);
           break;
         }
   }

 if(schedulerFold.IsEmpty())
    {
     ShowMessage("Impossible! There are no any Scheduled Tasks folder");
     Application->Terminate();
     return;
    }

//get FolderItem object:
 bool d=schedulerFold.Exec(PropertyGet("IsFolder"));
 Variant op=schedulerFold.Exec(PropertyGet("GetFolder"));


//find and run item "Add Scheduled Tasks"
//really find ver inside 
//and it is not big secret that verb called "Open"
 Variant It1=op.Exec(Items);
int count1=It1.Exec(PropertyGet("Count"));
for(int i=0; i<count1; ++i)
  {
    if(AnsiString(Variant(It1.Exec(Function("Item") << i)).Exec(PropertyGet("Name"))) == "Add Scheduled Tasks" )
         {
                Variant vb=Variant(It1.Exec(Function("Item") << i)).Exec(Function("Verbs"));
                int count2=vb.Exec(PropertyGet("Count"));
                AnsiString MyVerb=Variant(vb.Exec(Function("Item") << 0)).Exec(PropertyGet("Name"));
           Variant(It1.Exec(Function("Item") << i)).Exec(Function("InvokeVerb") << vb);
           break;
         }
  }


Dialog has to open. I try it for Windows2000.
Of course some changes for localized Windows:
I mean - 
"Scheduled Tasks"
and 
"Add Scheduled Tasks"

Vladimir.