[Jlovenpk1|seyu]

ОБНОВЛЯЮ ПЕРВЫЙ ПОСТ.

Вообще я Ленивый человек, мне все лень делать, но когда я берусь за delphi и думаю - Что бы сделать полезное для себя и опыта набраться.
Было много ужасных программ, которые не работали нормально, а другие и вовсе не раз сносили мне винду))
В итоге, я решил создать кое - что, что не раз видел в фильмах о будущем ^^
В общем, я это программу хочу довести до ума(ИИ), но это еще в планах(то есть летом может быть возьмусь )
Скачать(новая версия) -Скачать
СкринШот -

Код программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Menus,shellapi, ExtCtrls, registry;   type   TForm1 = class(TForm)     Label1: TLabel;     Button1: TButton;     Button2: TButton;     MainMenu1: TMainMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     QBasic1: TMenuItem;     FreeBasic1: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     Lineage21: TMenuItem;     N6: TMenuItem;     Delphi1: TMenuItem;     N7: TMenuItem;     N8: TMenuItem;     skype1: TMenuItem;     Email1: TMenuItem;     N9: TMenuItem;     httpwwwdelphisourcesruforumindexphp1: TMenuItem;     Label2: TLabel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure QBasic1Click(Sender: TObject);     procedure N4Click(Sender: TObject);     procedure FreeBasic1Click(Sender: TObject);     procedure Lineage21Click(Sender: TObject);     procedure N6Click(Sender: TObject);     procedure N8Click(Sender: TObject);     procedure skype1Click(Sender: TObject);     procedure Email1Click(Sender: TObject);     procedure httpwwwdelphisourcesruforumindexphp1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   uses Unit2, Unit3;   {$R *.dfm}   procedure run(what: string); begin ShellExecute(0, 'open', pchar(what), nil, nil,1); end;   procedure TForm1.Button1Click(Sender: TObject); var ans: integer; var reg: tregistry;   begin reg := tregistry.create; reg.rootkey := hkey_local_machine; reg.lazywrite := false; reg.openkey('software\microsoft\windows\currentversion\run', false); reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё} reg.closekey;   randomize; ans := random(5); case ans of   0: label2.caption := 'Высокомерие это стена скрывающая страхи и сомнения';   1: label2.caption := ' Не все то истина, что находится в учебнике ' ;   2: label2.caption := 'Все разрешено, что не запрещено законом. ';   3: label2.caption := ' Один страж, сильнее 10 солдат. ' ;   4: label2.caption := ' Сила есть, ума не надо. ';   end; end; procedure TForm1.Button2Click(Sender: TObject); begin   if InputBox('Загадка','Сидит дед, в сто шуб одет. Кто его раздевает - тот слёзы проливает. Кто это?','') = 'лук' then     MessageDlg('Правильно!',mtInformation,[mbOk],0)   else     MessageDlg('Вы не угадали.',mtWarning,[mbOk],0) end;   procedure TForm1.Button3Click(Sender: TObject); begin form2.show; end;   procedure TForm1.N2Click(Sender: TObject); begin   form2.show; end;   procedure TForm1.N3Click(Sender: TObject); begin form3.show; end;   procedure TForm1.QBasic1Click(Sender: TObject); begin run ('http://qbasic.su');     end;   procedure TForm1.N4Click(Sender: TObject); begin    if inputbox('Плак',' Вы подождете реализации этой функции?)[Да,Нет]','')='да' then   MessageDlg('Скоро будет^^',mtInformation,[mbOK],0)   else   MessageDlg(' Да не, лови вирус!!',mtInformation,[mbok],0) end;   procedure TForm1.FreeBasic1Click(Sender: TObject); begin if inputbox('Плак',' Вы подождете реализации этой функции?)[Да,Нет]','')='да' then   MessageDlg('Скоро будет^^',mtInformation,[mbOK],0)   else   MessageDlg(' Да не, лови вирус!!',mtInformation,[mbok],0) end;   procedure TForm1.Lineage21Click(Sender: TObject); begin winexec('C:\Lineage 2 The Chaotic Throne High Five 5\Lineage 2 The Chaotic Throne High Five 5\hfive.exe',SW_SHOW); end;   procedure TForm1.N6Click(Sender: TObject); begin  run ('http://google.ru'); end;   procedure TForm1.N8Click(Sender: TObject); begin   run ('http://Jlovenpk1.clan.su'); end;   procedure TForm1.skype1Click(Sender: TObject); begin     MessageDlg('Skype: Seyu451', mtinformation,[mbOK],0) end;   procedure TForm1.Email1Click(Sender: TObject); begin   MessageDlg('E-mail: Jlovenpk1@mail.ru',mtinformation,[mbOK],0) end;   procedure TForm1.httpwwwdelphisourcesruforumindexphp1Click(   Sender: TObject); begin   Run('http://www.delphisources.ru/') end;   end.