飘动的五星红旗--delphi小程序

Written by spirit on 2008年4月24日

这几天学校为了迎接奥运会,举行了一场运动会,我没参加,呆在宿舍没啥事,用delphi写了一个桌面小程序"飘动的五星红旗",来表达一下我的爱国之心。^_^

程序的实现方式为:利用image组件调用一个gif图片,隐藏窗体边框,隐藏任务栏图标实现窗体透明.....

阅读全文...

delphi利用api实现窗体的半透明及透明

Written by spirit on 2008年4月24日

从win2k系统开始,ms就在操作系统中加入了一些API,利用这些api可以实现窗体(form)的半透明。

具体代码如下:

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

const
WS_EX_LAYERED=$80000;
AC_SRC_OVER=$0;
AC_SRC_ALPHA=$1;
...

阅读全文...

delphi实现隐藏程序在任务栏的图标

Written by spirit on 2008年4月24日

一句就能实现隐藏任务栏图标的功能:在form的create 事件中加入下面一行代码

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

但不要忘了在uses 里面加入 ShellApi 哟~~~

想你了!你想我吗?——Delphi小程序

Written by spirit on 2008年4月15日

好像有一句话这么说:真正的程序员用c,聪明的程序员用Delph。受了这句话的启发,这段时间在自学delphi,准备当个聪明的程序员^_^ 。

今天下午没课,就用delphi编了一个小程序,很简单的入门小程序,就是定义2个按钮,利用onmousemove事件让按钮隐藏、可见。高手不要见笑哟。

程序源码如下:

var
Form1: TForm1;

implementation

{$R *.dfm}
...

阅读全文...

数据库系统概论课后习题答案(第三版)

Written by spirit on 2008年4月2日

目前正在学习《数据库系统概论》第四版,可网上还没有第4版的答案,只有找第三版的凑合一下了,其实3版和4版查不多的。本着有知识大家共同学习的观点^_^,分享给大家。本书是教育部“高等教育面向对世纪教学内容和课程体系改革计划”的研究成果,是面向21世纪课程教材和教育部高等学校计算机科学与技术学科“九五”规划教材。 本书是在第二版基础上修订而成的,与第二版相比较,在整体结构上进行了适当的调整,增加了数据库新技术方面的内容。全书内容包括:数据库模型、数据库...

阅读全文...

如何让Editplus支持汇编语言语法高亮显示

Written by spirit on 2007年12月18日

让Editplus支持汇编语言语法高亮显示,editplus php高亮转自 A.TNG(阿唐)的博客最近在看汇编,发现好多知识都还给老师了,得恶补回来。写了几行代码,发现SourceInsight感觉好不爽,还是用回最喜欢的Editplus。不过突然发现ep不支持汇编语言的语法高亮显示,很是郁闷,心想,如此强大的ep怎能如此弱,找了找ep的各个设置,发现在:工具-〉参数设置-〉文件-〉设置和语法 中有个可以设置语法高亮显示的选项,里头已经有了:cpp css html java js jsp ...

阅读全文...

简单的抽奖系统代码(Javascript)

Written by spirit on 2007年11月19日

此代码借鉴了网上的一些网友的代码,又加上了一些诸如不重复抽奖之类的改进。大概思路如下:  1.将所有的的抽奖数据(这里为手机号码)存入数组中。  2.使用random 函数随机产生该数组的INDEX  3.使用setInterval 函数以极短的时间间隔产生该数组随机INDEX所对应的手机号码,并显示。  4.使用removeEleAt(index)函数删除随机产生过的手机号码。并且重新组织生成剩

阅读全文...

delphi经典编程入门下载,delphi入门教程下载

Written by spirit on 2007年11月10日

   200711101409534743.rar...

阅读全文...

pascal多项式相加

Written by spirit on 2007年11月5日

pascal的多多项式相加的代码:var sia:array [1..200,1..2] of integer; sc:char; sii,si,si1,si2:integer; s,s1:byte; ss1,ss2,ss3:string; ft:text; begin fillchar(sia,sizeof(sia),#0); s:=0; assign(ft,'lineb.in')

阅读全文...

多项式相加程序(C语言)

Written by spirit on 2007年11月5日

多项式相加程序代码(C语言) ,供那些c语言初学者参考。#i nclude<stdio.h>#i nclude<malloc.h>#i nclude<stdlib.h>#define  LEN  sizeof(node)typedef struct polynode{ int coef; int exp; struct

阅读全文...

c++程序的自我复制及开机自运行代码

Written by spirit on 2007年10月28日

一个简单的复制代码,能够实现开机的自动运行。源代码如下:#include <windows.h>int WINAPI WinMain(HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nFu

阅读全文...