在Delphi中实现任意形状的窗体

Form的TEXT： object Form1: TForm1 Left = 192 Top = 107 BorderStyle = bsNone Caption = ''Form1'' ClientHeight = 348 ClientWidth = 536 Color = clBtnFace Font.Charset = DEFAULT_CHARSE...

Delphi嵌入式汇编一例

用delphi写的程序，把x指针指向的4个字节次序颠倒过来： function toulong(x: pchar): longword; begin result := (longword(x^) shl 24) or (longword((x + 1)^) shl 16) or (longword((x + 2)...

Delphi中用于读写(I/O)的三种文件类型

Delphi中用于读写(I/O)的三种文件类型 一.旧pascal文件类型 用旧文件变量表示的文件类型,比如 F:text,F:File. 定义了三类:有类型,无类型,字符类型以及一些Delphi的文件操作函数.比如:AssignPrn,...

移动没有CAPTION的窗体

procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST; procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST); begin Message.Result := HTCAPTION; end;

得到当前的光驱的盘符

procedure GetCDROM(var CD:char); var str:string; Drivers:Integer; driver:char; i,temp:integer; begin Drivers:=GetLogicalDrives; temp:=(1 and Drivers); for i:=0 to 26 do begin if te...

在Internet传播声音

－使用Audio Compression Manager（ACM） 作者／ Peter Morris　 翻译／陈省 　　在几年以前 IP 电话被炒的沸沸扬扬，但用过的人都觉得这个技术非常不成熟，语音质量很差，时断时续，还经常有...

在DELPHI中用线程排序

在数据处理量很大的情况下，如何在数据处理的同时响应用户操作？Windows95/98和WindowsNT作为多线程的多任务操作系统，其调度单元是线程，即线程是系统分配处理器时间资源的基本单元，所以我们可...

半透明窗体的制作

半透明窗体并不是Win2000的新特效，凡是用过金山词霸的同志都会发现在屏幕取词设置中有一个半透明背景的选项，这说明在Win98下是可以实现半透明窗口的。但我还是要首先谈谈在Win2000实现半透明窗...