游戏大厅的部分代码

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>游戏大厅</title>
<style type="text/css">
.a{
	background-repeat:repeat-x;	
	background-image:url(../Desktop/%E5%9B%BE%E7%89%87%E7%B4%A0%E6%9D%90/menuBg.jpg);
	height:45px;
	width:1000px;
}
img{
float:left;	
}
ul{
	list-style-type: none;	
}
.b{
	background-repeat: no-repeat;
	background-image: url(../Desktop/%E5%9B%BE%E7%89%87%E7%B4%A0%E6%9D%90/btn-01.gif);
	position: relative;
	height:25px;
	width:100px;
	text-align: center;	
	float:left;
	top:10px;
	left:20px;
	display:block;
	padding-top:10px;
}
.c{
	padding: 5px;
	float: right;
	color:#FFF;
	position: relative;
	top: 10px;
}
a{
	font-size:20px;
	color
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
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.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值