Aplikasi berjalan secara otomatis

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

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

var
  Form1: TForm1;

implementation

uses registry;

{$R *.DFM}

procedure TForm1.FormDestroy(Sender: TObject);
begin
  with TRegistry.Create do try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString('Programku', Application.ExeName);
    CloseKey;
  finally
    Free;
  end;
end;

end.

Anda Telah Membaca Aplikasi berjalan secara otomatis

Semoga Artikel Aplikasi berjalan secara otomatis Bisa Bermanfaat untuk kita semua. Jika Ada Hal yang ingin ditanyakan, Silahkan Komentar atau Hubungi kami via Web Chat yang tersedia