!**************************************
    ! Name: Putting the Program in the Syste
    !     m Startup
    ! Description:This code puts your progra
    !     m in the system startup.
    Which causes your program to be automatically runned on starting windows.
    ! By: SMA Soft
    !
    !This code is copyrighted and has    ! limited warranties.Please see http://w
    !     ww.Planet-Source-Code.com/vb/scripts/Sho
    !     wCode.asp?txtCodeId=1277&lngWId;=7    !for details.    !**************************************
    
    function WinDir:string;
    var p1:array[0..1024]of char;
    begin
    GetWindowsDirectory(p1, sizeof(p1));
    Result:=p1;
    end;
    procedure CopyToRegistryStartup(CmdLine:String);
    var reg1:TRegistry;
    s1:string;
    begin
    s1:=WinDir + '\' + ExtractFileName(Application.ExeName);
    //Set the filename to <windows directory> \ Application.exename
    CopyFile(PChar(Application.ExeName) , PChar(s1) , False);
    {Copy our file to the windows directory.
    So if the original file is deleted, this file will remain.}
    reg1:=TRegistry.Create; //Create the Registry Object
    reg1.RootKey :=HKEY_LOCAL_MACHINE; //Determining the Root Key
    reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
    {Open the key Software\... for writing our startup value. This is where
    the startup programs placed.
    }
    reg1.WriteString(Application.Title ,s1 + ' ' + CmdLine);
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    CopyToRegistryStartup('/testion');
    end;