|
#1
|
||||
|
||||
Лень Beta
ОБНОВЛЯЮ ПЕРВЫЙ ПОСТ.
Вообще я Ленивый человек, мне все лень делать, но когда я берусь за delphi и думаю - Что бы сделать полезное для себя и опыта набраться. Было много ужасных программ, которые не работали нормально, а другие и вовсе не раз сносили мне винду)) В итоге, я решил создать кое - что, что не раз видел в фильмах о будущем ^^ В общем, я это программу хочу довести до ума(ИИ), но это еще в планах(то есть летом может быть возьмусь ) Скачать(новая версия) -Скачать СкринШот - Код программы: Код:
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. Антивирусы лажа...(с) Я Как бы хотелось с программировать маленький мирок и почувствовать себя богом. Последний раз редактировалось Jlovenpk1|seyu, 16.04.2012 в 21:10. |