مشكلة في تشغيل البرنامج مع الوندوز

ألا تعتقد أخي أنك لو وضعت الكود الذي كتبته لجعلت عملية مساعدتك أسهل على الأخوة ؟

اعتذر اخي الكريم

uses

Registry;

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);

const

RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';

// or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce';

var

Registry: TRegistry;

begin

Registry := TRegistry.Create;

try

Registry.RootKey := HKEY_LOCAL_MACHINE;

if Registry.OpenKey(RegKey, False) then

begin

if bRegister = False then

Registry.DeleteValue(AppTitle)

else

Registry.WriteString(AppTitle, AppName);

end;

finally

Registry.Free;

end;

end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);

begin

// 1.Parameter: Path to your Exe-File

// 2. Parameter: the Title of your Application

// 3. Set (true) or Unset (false) Autorun

SetAutoStart(ParamStr(0), 'Title of your Application', True);

end;

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
Var
  Regkey : TRegistry;
begin
try
  Regkey := TRegistry.Create;
  try
    Regkey.RootKey:=HKEY_LOCAL_MACHINE;
    Regkey.Access:= KEY_ALL_ACCESS;
    // run the application automatically after Windows starts,
    // create the entry in autorun registry key
    if bRegister
        and Regkey.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',true) then
          // if Autorun On
          Regkey.WriteString(AppTitle, AppName)
          // or simply for exemple : Regkey.WriteString('Salati', Application.ExeName)
    else
          // else Autorun Off
          Regkey.DeleteValue(AppTitle);
    Regkey.CloseKey;
  finally
    Regkey.Free;
  end;
except on E: Exception do
  ShowMessage(e.Message);
end;
end;