Programm in Autostart setzen?

[CalganX]

Hi @all!
Ich habe eine Frage: ich möchte, dass man auf Knopfdruck mein Programm (Verzeichnis: "C:\myProg\Prog.exe") in den Autostart / aus dem Autostart heraus gesetzt wird.
Wie mache ich das unter Delphi???

Chris1308

[Daniel]

Ich würde das über einen Registry-Eintrag in "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run" lösen. Das wäre dann ein neuer Eintrag vom Typ 'String' mit der vollständigen Pfadangabe zu Deinem Programm. Das Bearbeiten der Registry haben wir hier kürzlich erst gehabt.

Grüße,
Daniel

[Daniel B]

Erstell doch lieber eine Verknüpfung im Autostart Ordner anstatt die Reg weiter voll zu Müllen.

[Christian Seehase]

Moin Daniel B,

allerdings ist es erheblich einfacher den Registryeintrag zu realisieren, als einen Shortcut in Autostart zu erstellen (falls man nich eine fertige lnk Datei kopiert).

[Daniel B]

Zitat von Christian Seehase:

allerdings ist es erheblich einfacher den Registryeintrag zu realisieren, als einen Shortcut in Autostart zu erstellen

Hi Christian,

natürlich hast du da recht. Nur ich bin der Meinung, wenn man die möglichkeit hat auf die Reg zu verzichten dann sollte man das auch machen.
Bei 9x/ME wo man regelmässig 1x im Monat oder alle 2Monate formatiert und neuinstalliert, da ist es egal. Aber bei NT/2k/XP, würde ich es mir schon überlegen.
Denn da muss man Müll sehr lange mit sich rumschleppen.

[RomanK]

Hier ist mal Code um eine Verknüpfung zu erstellen:

Code:

function CreateLink(lpszPathObj,lpszPathLink,
  lpszDesc: string):Boolean;
var
  psl: IShellLink;
  ppf: IPersistFile;

const
  IID_IPersistFile:
     TGUID = (D1:$0000010B;
              D2:$0000;
              D3:$0000;
              D4:($C0,$00,$00,$00,$00,$00,$00,$46));
begin
  result := False;
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink,
                                nil,
                                CLSCTX_INPROC_SERVER,
                                IID_IShellLinkA,
                                psl)) then
    begin
      psl.SetPath(PChar(lpszPathObj));
      psl.SetDescription(PChar(lpszDesc));
      if SUCCEEDED(psl.QueryInterface(IID_IPersistFile,
                   ppf)) then
        begin
          ppf.Save(StringToOLEStr(lpszPathLink),TRUE);
          Result := true;
          ppf._Release; //---> Runtime-Error wenn aktiv
        end;
    end;
  psl._Release; // ---> Runtime-Error wenn aktiv
end;

Im Usesteil hab ich

Code:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  activex, comobj, shlobj, StdCtrls;

[CalganX]

[quote]// ---> Runtime-Error wenn aktiv [/qoute]
Was meinst du damit? Ich habe den Code noch nicht ausprobiert, da die File jetzt ersteinmal in der Regedit steht.

Chris1308

[d3g]

Hi Chris1308,

die _Release-Kommandos würde ich einfach weglassen, da Delphi in SachenCOM die intelligenteste Entwicklungsumgebnug ist (_AddRef/_Release, IDispatch.Invoke()) und COM-Objekte, wenn deren Gültigkeitsbereich endet oder auf die gleiche Variable eine neue Referenz gelegt wird, automatisch dereferenziert werden.

MfG,
d3g

[Helmi]

Hallo,

kann mir jemand folgenden Code erklären und vielleicht auch sagen, wie man ihn anwenden muss:

Code:

function CreateLink(lpszPathObj,lpszPathLink, 
  lpszDesc: string):Boolean; 
var 
  psl: IShellLink; 
  ppf: IPersistFile; 

const 
  IID_IPersistFile: 
     TGUID = (D1:$0000010B; 
              D2:$0000; 
              D3:$0000; 
              D4:($C0,$00,$00,$00,$00,$00,$00,$46)); 
begin 
  result := False; 
  if SUCCEEDED(CoCreateInstance(CLSID_ShellLink, 
                                nil, 
                                CLSCTX_INPROC_SERVER, 
                                IID_IShellLinkA, 
                                psl)) then 
    begin 
      psl.SetPath(PChar(lpszPathObj)); 
      psl.SetDescription(PChar(lpszDesc)); 
      if SUCCEEDED(psl.QueryInterface(IID_IPersistFile, 
                   ppf)) then 
        begin 
          ppf.Save(StringToOLEStr(lpszPathLink),TRUE); 
          Result := true; 
          ppf._Release; //---> Runtime-Error wenn aktiv 
        end; 
    end; 
  psl._Release; // ---> Runtime-Error wenn aktiv 
end;

mfg
Helmi

[Plat]

Probiers mal damit

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  reg  : TRegistry;
begin
  reg := tregistry.create;
  with reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('deinprogname', paramstr(0));
    CloseKey;
    free;
  end;

end;