游戏大厅小游戏

delphi的一个小游戏源码 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin shellexecute(handle,'open','project6\p1.exe','-s','',sw_show); end; procedure TForm1.Button2Click(Sender: TObject); begin shellexecute(handle,'open','project10\project1.exe','-s','',sw_show); end; procedure TForm1.Button3Click(Sender: TObject); begin shellexecute(handle,'open','project14\project1.exe','-s','',sw_show); end; procedure TForm1.Button4Click(Sender: TObject); begin shellexecute(handle,'open','project17\project1.exe','-s','',sw_show); end; procedure TForm1.Button5Click(Sender: TObject); begin shellexecute(handle,'open','project16\Project1.exe','-s','',sw_show); end; procedure TForm1.Button7Click(Sender: TObject); begin shellexecute(handle,'open','project12\p1.exe','-s','',sw_show); end; procedure TForm1.Button8Click(Sender: TObject); begin showmessage('作者：金子捷'+#13+'友情帮助：滕一铭、刘鑫浩'); end; procedure TForm1.Button9Click(Sender: TObject); begin shellexecute(handle,'open','关窗户\project1.exe','-s','',sw_show); end; procedure TForm1.Button10Click(Sender: TObject); begin shellexecute(handle,'open','拼图\project1.exe','-s','',sw_show); end; procedure TForm1.Button6Click(Sender: TObject); begin shellexecute(handle,'open','24\24点游戏1.exe','-s','',sw_show); end; end. Button9: TButton; Button10: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin shellexecute(handle,'open','project6\p1.exe','-s','',sw_show); end; procedure TForm1.Button2Click(Sender: TObject); begin shellexecute(handle,'open','project10\project1.exe','-s','',sw_show); end; procedure TForm1.Button3Click(Sender: TObject); begin shellexecute(handle,'open','project14\project1.exe','-s','',sw_show); end; procedure TForm1.Button4Click(Sender: TObject); begin shellexecute(handle,'open','project17\project1.exe','-s','',sw_show); end; procedure TForm1.Button5Click(Sender: TObject); begin shellexecute(handle,'open','project16\Project1.exe','-s','',sw_show); end; procedure TForm1.Button7Click(Sender: TObject); begin shellexecute(handle,'open','project12\p1.exe','-s','',sw_show); end; procedure TForm1.Button8Click(Sender: TObject); begin showmessage('作者：金子捷'+#13+'友情帮助：滕一铭、刘鑫浩'); end; procedure TForm1.Button9Click(Sender: TObject); begin shellexecute(handle,'open','关窗户\project1.exe','-s','',sw_show); end; procedure TForm1.Button10Click(Sender: TObject); begin shellexecute(handle,'open','拼图\project1.exe','-s','',sw_show); end; procedure TForm1.Button6Click(Sender: TObject); begin shellexecute(handle,'open','24\24点游戏1.exe','-s','',sw_show); end; end.