Kód: Vybrať všetko

procedure SetRunOnStart(AllUsers: Boolean);
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  with Registry do
  try
    if AllUsers then
      RootKey := HKEY_LOCAL_MACHINE
    else
      RootKey := HKEY_CURRENT_USER;
    if OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then
      // název položky = titulek aplikace
      // hodnota položky = EXE soubor aplikace včetně cesty
      WriteString(Application.Title, Application.ExeName)
    else
      raise Exception.Create('Chyba při otevírání klíče registrů.');
  finally
    Free;
  end;
end;  

Kód: Vybrať všetko

//Author: Winston Gubantes
//Created: November 26, 2009
//Purpose: to Create or starting a Task by TaskScheduler or By Process

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using TaskScheduler;
using System.Windows.Forms;
using System.Diagnostics;
//using System.Runtime.InteropServices; //used to call API windows

namespace BusinessLogic
{
public class TaskHelper
{
public TaskHelper()
{

}
//[DllImport("shell32.dll")]
//private extern int ShellExecute(int hwnd, string operation, string filex, string parameters, string directory, int command);

public static void createTaskImmediateExec(string TaskName, string Comment, string AppName, string Parameters, int SecondsDelay)
{
//Updated By: Winston Gubantes
#region TaskScheduler

TaskScheduler.ScheduledTasks oSt = new TaskScheduler.ScheduledTasks();
TaskScheduler.Task oTask = null;

try
{
oTask = oSt.CreateTask(TaskName);
}
catch (ArgumentException)
{
try
{
//oSt.DeleteTask(“AgentUpdate”);
oSt.DeleteTask(TaskName);
oTask = oSt.CreateTask(TaskName);
}
catch
{

}
}

//oTask.Comment = “MovingPro Agent”;
oTask.Comment = Comment;
//oTask.ApplicationName = “MSIEXEC.EXE”;
oTask.ApplicationName = AppName;
//oTask.WorkingDirectory = Application.StartupPath.Trim();
//oTask.WorkingDirectory = strUpdatePath;
oTask.SetAccountInformation(System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString(), (string)null);
//oTask.Parameters = @” /CLEANUP “;
//oTask.Parameters = ” /I ” + strUpdatePath + “\\agentsetup.msi /QN “;
oTask.Parameters = Parameters;
oTask.Flags = TaskFlags.RunOnlyIfLoggedOn;
//oTask.Hidden = true;
if (SecondsDelay > 0)
{
oTask.Triggers.Add(new RunOnceTrigger(DateTime.Now.AddSeconds(SecondsDelay)));
}

oTask.Save();
oTask.Hidden = true;

oTask.Run();
oTask.Close();
oSt.Dispose();
#endregion
}

public static void createTaskOnlogon(string TaskName, string Comment, string AppName, string Parameters)
{
//Updated By: Winston Gubantes
#region TaskScheduler

TaskScheduler.ScheduledTasks oSt = new TaskScheduler.ScheduledTasks();
TaskScheduler.Task oTask = null;

try
{
oTask = oSt.CreateTask(TaskName);
}
catch (ArgumentException)
{
return;
}

//oTask.Comment = “MovingPro Agent”;
oTask.Comment = Comment;
//oTask.ApplicationName = “MSIEXEC.EXE”;
oTask.ApplicationName = AppName;
//oTask.WorkingDirectory = Application.StartupPath.Trim();
//oTask.WorkingDirectory = strUpdatePath;
oTask.SetAccountInformation(System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString(), (string)null);
//oTask.Parameters = @” /CLEANUP “;
//oTask.Parameters = ” /I ” + strUpdatePath + “\\agentsetup.msi /QN “;
oTask.Parameters = Parameters;
oTask.Flags = TaskFlags.RunOnlyIfLoggedOn;
//oTask.Hidden = true;
oTask.Triggers.Add(new OnLogonTrigger());
oTask.Save();

//oTask.Hidden = true;

oTask.Run();
oTask.Close();
oSt.Dispose();
#endregion
}

public static void startProcess(string DirPath, string ExeName, string Arguments)
{
startProcess(DirPath, ExeName, Arguments, false);
}

public static void startProcess(string DirPath, string ExeName, string Arguments,bool isHideWindow)
{
//System.Diagnostics.ProcessStartInfo psi = new ProcessStartInfo();
ProcessStartInfo psi = new ProcessStartInfo();

psi.UseShellExecute = true;
psi.FileName = ExeName;

if (isHideWindow)
{
psi.WindowStyle = ProcessWindowStyle.Hidden;
psi.CreateNoWindow = true;
}

if (DirPath != “”) { psi.WorkingDirectory = DirPath; }
psi.Arguments = Arguments;
//psi.Arguments = ” /I ” + @” “”" + strFileName + @” “” ” + ” /QN”;

Process.Start(psi);
}
}
}

//When used in code We used task scheduler for Vista/Win7
BusinessLogic.TaskHelper.createTaskImmediateExec(“Report”,
“Sample Title”,
Application.StartupPath + “\\Your.exe”,
“Sample Args”,
0);

Kód: Vybrať všetko

namespace StartupFolderShortcut
{
  public partial class Form1 : Form
  {
    public Form1()
    {
      InitializeComponent();
    }

    private void buttonCreate_Click(object sender, EventArgs e)
    {
      CreateStartupFolderShortcut();
    }

    private void buttonDelete_Click(object sender, EventArgs e)
    {
      DeleteStartupFolderShortcuts(Path.GetFileName(Application.ExecutablePath)) ;
    }

    public void CreateStartupFolderShortcut()
    {
      WshShellClass wshShell = new WshShellClass();
      IWshRuntimeLibrary.IWshShortcut shortcut;
      string startUpFolderPath = Environment.GetFolderPath(Environment.SpecialFolder.Startup);

      // Create the shortcut
      shortcut = (IWshRuntimeLibrary.IWshShortcut)wshShell.CreateShortcut(startUpFolderPath + "\\" + Application.ProductName + ".lnk");

      shortcut.TargetPath = Application.ExecutablePath;
      shortcut.WorkingDirectory = Application.StartupPath;
      shortcut.Description = "Launch My Application";
//      shortcut.IconLocation = Application.StartupPath + @"\App.ico";
      shortcut.Save();
    }

    public string GetShortcutTargetFile(string shortcutFilename)
    {
      string pathOnly = Path.GetDirectoryName(shortcutFilename);
      string filenameOnly = Path.GetFileName(shortcutFilename);

      Shell32.Shell shell = new Shell32.ShellClass();
      Shell32.Folder folder = shell.NameSpace(pathOnly);
      Shell32.FolderItem folderItem = folder.ParseName(filenameOnly);
      if (folderItem != null)
      {
        Shell32.ShellLinkObject link = (Shell32.ShellLinkObject)folderItem.GetLink;
        return link.Path;
      }

      return String.Empty; // Not found
    }

    public void DeleteStartupFolderShortcuts(string targetExeName)
    {
      string startUpFolderPath = Environment.GetFolderPath(Environment.SpecialFolder.Startup);

      DirectoryInfo di = new DirectoryInfo(startUpFolderPath);
      FileInfo[] files = di.GetFiles("*.lnk");

      foreach (FileInfo fi in files)
      {
        string shortcutTargetFile = GetShortcutTargetFile(fi.FullName);
        Console.WriteLine("{0} -> {1}", fi.Name, shortcutTargetFile);

        if (shortcutTargetFile.EndsWith(targetExeName, StringComparison.InvariantCultureIgnoreCase))
        {
          System.IO.File.Delete(fi.FullName);
        }
      }
    }

  }
}

Kód: Vybrať všetko

namespace StartupFolderShortcut
{
  partial class Form1
  {
    /// <summary>
    /// Required designer variable.
    /// </summary>
    private System.ComponentModel.IContainer components = null;

    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
    protected override void Dispose(bool disposing)
    {
      if (disposing && (components != null))
      {
        components.Dispose();
      }
      base.Dispose(disposing);
    }

    #region Windows Form Designer generated code

    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    private void InitializeComponent()
    {
      this.buttonCreate = new System.Windows.Forms.Button();
      this.buttonDelete = new System.Windows.Forms.Button();
      this.SuspendLayout();
      // 
      // buttonCreate
      // 
      this.buttonCreate.Location = new System.Drawing.Point(12, 12);
      this.buttonCreate.Name = "buttonCreate";
      this.buttonCreate.Size = new System.Drawing.Size(131, 42);
      this.buttonCreate.TabIndex = 0;
      this.buttonCreate.Text = "Create Shortcut";
      this.buttonCreate.UseVisualStyleBackColor = true;
      this.buttonCreate.Click += new System.EventHandler(this.buttonCreate_Click);
      // 
      // buttonDelete
      // 
      this.buttonDelete.Location = new System.Drawing.Point(12, 69);
      this.buttonDelete.Name = "buttonDelete";
      this.buttonDelete.Size = new System.Drawing.Size(131, 42);
      this.buttonDelete.TabIndex = 1;
      this.buttonDelete.Text = "Delete Shortcuts";
      this.buttonDelete.UseVisualStyleBackColor = true;
      this.buttonDelete.Click += new System.EventHandler(this.buttonDelete_Click);
      // 
      // Form1
      // 
      this.AutoScaleDimensions = new System.Drawing.SizeF(6F, 13F);
      this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
      this.ClientSize = new System.Drawing.Size(160, 129);
      this.Controls.Add(this.buttonDelete);
      this.Controls.Add(this.buttonCreate);
      this.Name = "Form1";
      this.Text = "Form1";
      this.ResumeLayout(false);

    }

    #endregion

    private System.Windows.Forms.Button buttonCreate;
    private System.Windows.Forms.Button buttonDelete;
  }
}