Open the properties dialog of a Scheduled Task

Here is a basic example that will drive the dialog up using a function that accepts the job name (which is the file name without the job extension)

Hope this helps,
Russell


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComObj, ActiveX, ShlObj;

type
  TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
  private
     { Private declarations }
  public
     { Public declarations }
  end;

var
  Form1:   TForm1;

implementation
{$R *.DFM}

procedure DisplayTaskPropertySheet(JobName: String);
var  pidl:             PITEMIDLIST;
     lpInvoke:         CMINVOKECOMMANDINFO;
     lpMsg:            TMsg;
     pMenu:            IContextMenu;
     pMalloc:          IMalloc;
     pDesktopFolder:   IShellFolder;
     pFolder:          IShellFolder;
     pEnum:            IEnumIDList;
     lpName:           TStrRet;
     szPath:           String;
     bFound:           Boolean;
     dwFetch:          Cardinal;
     chEaten:          ULONG;
     dwAttributes:     ULONG;
begin

  // Set default found state
  bFound:=False;

  // Determine path for tasks
  SetLength(szPath, MAX_PATH);
  dwFetch:=GetWindowsDirectory(@szPath[1], MAX_PATH);
  SetLength(szPath, dwFetch);
  szPath:=szPath+'\Tasks';

  // Get a pointer to the Desktop's IShellFolder interface.
  if (SUCCEEDED(SHGetDesktopFolder(pDesktopFolder))) then
  begin
     // Get malloc
     SHGetMalloc(pMalloc);
     // Convert the path to an ITEMIDLIST.
     if (pDesktopFolder.ParseDisplayName(0, nil, PWideChar(WideString(szPath)), chEaten, pidl, dwAttributes) = S_OK) then
     begin
        // Bind to the object
        if (pDesktopFolder.BindToObject(pidl, nil, IShellFolder, pFolder) = S_OK) then
        begin
           // Get the folder enumerator
           if (pFolder.EnumObjects(0, SHCONTF_NONFOLDERS, pEnum) = S_OK) then
           begin
              // Locate the file
              while (pEnum.Next(1, pidl, dwFetch) = S_OK) do
              begin
                 // Check for file
                 if (pFolder.GetDisplayNameOf(pidl, SHGDN_NORMAL, lpName) = S_OK) then
                 begin
                    // Check for correct item
                    if (CompareText(String(lpName.pOleStr), JobName) = 0) then
                    begin
                       // Get context menu for item
                       if (pFolder.GetUIObjectOf(0, 1, pidl, IContextMenu, nil, pMenu) = S_OK) then
                       begin
                          // Setup for menu item
                          lpInvoke.cbSize:=SizeOf(CMIC_MASK_ASYNCOK);
                          lpInvoke.fMask:=CMIC_MASK_NO_CONSOLE;
                          lpInvoke.hwnd:=GetDesktopWindow;
                          lpInvoke.lpParameters:=nil;
                          lpInvoke.lpDirectory:=nil;
                          lpInvoke.nShow:=SW_SHOW;
                          lpInvoke.dwHotKey:=0;
                          lpInvoke.hIcon:=0;
                          // Fire the "Properties" menu item
                          lpInvoke.lpVerb:=MakeIntResource(8);
                          if (pMenu.InvokeCommand(lpInvoke) = S_OK) then
                          begin
                             // Required to allow the dialog to display
                             Sleep(1000);
                          end;
                          // Release interface
                          pMenu:=nil;
                       end;
                       // Set found
                       bFound:=True;
                    end;
                    // Free memory
                    pMalloc.Free(lpName.pOleStr);
                    // Break if done
                    if bFound then break;
                 end;
              end;
              // Release interface
              pEnum:=nil;
           end;
           // Release interface
           pFolder:=nil;
        end;
     end;
     // Release interfaces
     pDesktopFolder:=nil;
     pMalloc:=nil;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

 DisplayTaskPropertySheet('My Sample Job');

end;