|
| 壁纸随机更改 2003-05-28 |
{******************************************************************************* 作者：Kingron 时间：2001.1.11 功能：用于随机的更换壁纸，能适应不同的分辨率。 联系方法：Kingron@163.net。 附注：Source.RES的建立...[全部内容] |
|
| 清除IE历史记录 2003-05-28 |
清除Internet Explorer临时文件 在TfrmMain你必须引用WinINet单元 Uses WinINet; 然后放上一个TButton按钮命名为btnEmptyCache，加入以下代码： Procedure TfrmMain.btnEmptyCacheClick( Sender : TObject ); Var lpEntryInfo : PInternetCacheEn...[全部内容] |
|
| IE中添加工具栏 2003-05-28 |
我们首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr；然后建立一个COM Object，将其保存为BandUnit.pas；然后建立一个Form，这个窗口将作为子窗口显示在IE工具栏中，将窗口的BorderStyle属性改为bsNone，添加一个TButton组件和一个TComboBox组件，将TButton的...[全部内容] |
|
| BIG5和GB互换 2003-05-28 |
Gb2312 高字節範圍 0xa1 <= Gb2312.High <= 0xf7Gb2312 低字節範圍 0xa1 <= Gb2312.Low <= 0xfeBig5 高字節範圍 0xa1 <= Big5.High <= 0xf9Big5 低字節範圍 0x40 <= Big5.Low <= 0xfe可以看出，big5碼的低字節的範圍比gb2312要大，當...[全部内容] |
|
| wave文件格式说明 2003-05-28 |
unit LinearSystem; interface {============== WAV Format Coding Type ==================} type WAVHeader = record nChannels : Word; nBitsPerSample : LongInt; nSamplesPerSec : LongInt; nAvgBytesPerSec : LongInt; RIFFSize : LongInt; fmtSize : LongInt; fo...[全部内容] |
|
| 利用IE的多语言动态库实现程序中多语言的自由切换 2003-05-28 |
利用IE的多语言动态库实现程序中多语言的自由切换All Systems (Win 95+ and WinNT4+) with MS Internet Explorer 4 and newer have a library named mlang.dll in the Winnt\System32 directory. Usually you can tell Delphi to simply import these COM Libraries. Th...[全部内容] |
|
| 如何得到汉字的unicode 2003-05-28 |
你需要的是这样的函数吧？ function AnsiToUnicode(Ansi: string):string; var s:string; i:integer; j,k:string[2]; a:array [1..1000] of char; begin s:=''; StringToWideChar(Ansi,@(a[1]),500); i:=1; while ((a[...[全部内容] |
|
| PC喇叭发声 2003-05-28 |
：sunstone 时间：00-9-3 7:51:42 ID:325632 送你一个控件unit PCSpk;{* Program : PCSpk.Pas Purpose : TPCSpeaker Component Author Version Last Changed Comments ------ -------&...[全部内容] |
|
| WMV的歌曲信息 2003-05-28 |
unit WMAfile;interfaceuses Classes, SysUtils;const { Channel modes } WMA_CM_UNKNOWN = 0; { Unknow...[全部内容] |
|
| 文件属性对话框 2003-05-28 |
function SHFileProperties(handle:hwnd;uflags:dword;name:pchar;str:pchar):dword;stdcall;external 'shell32.dll' index 178;uFlags=1/2;name:Filename;str:好像不起作用其实只是调用ShellExecuteEX看下面的例子function ShowFileProperties(FileName: String; Wnd: ...[全部内容] |
