
先进入DOS,在命令行输入Debug(回车),接着输入:
a100
push cs
pop ds
mov dx,115
mov ah,9
int 21
mov ax,0e07
int 10
mov ah,4c
int 21
e115 'Error!!' d a 24
n Error.com
rcx
20
w
q
-----------
退出Debug,你可在当前目录看到刚生成的Error.com,在命令行输入
Error(回车),你就能看到运行效果了,报错并响铃一次。
delphi的EXE可以变成很小的需要安装一个KCL插件
要小巧又不要运行库,也许只有汇编了
补充:KCL是国外一位delphi高手开发的
你可以到国外的网站上找找,具体哪里有下载我自己也不知道
国内的话只有这个网站有过介绍www.delphiun.com
找到了。。
KCL全称是Kylix Component Library
有KOL和MCK2部分组成,
它可以使delphi的程序缩小90%甚至更多
一个500K的程序可以变成50K或是更小
详细介绍和下载地址见此:
http://www.delphibbs.com/keylife/iblog_show.asp?xid=15243
//////////////////////我的最短小 有疑问请追问 满意请采纳////////////////////////////////////9 15 3 20 -6
569 368 777 158 686
-6
158
Press any key to continue
#include "stdio.h"
#define N 2
main()
{
int i,j,arry[N][5],minarry[2]
for (i=0i<Ni++)
for (j=0j<5j++)
{
scanf("%d",&arry[i][j])
if (j==0)
minarry[i] = arry[i][0]
if (arry[i][j]<minarry[i])
minarry[i] = arry[i][j]
}
for (i=0i<Ni++)
printf("%d\n",minarry[i])
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)