- 博客(3)
- 资源 (11)
- 收藏
- 关注
原创 对象互斥
var MutexHandle: Integer;begin if OpenMutex(MUTEX_ALL_ACCESS, FALSE, RunOnceMutex) begin ShowMessage(This application is already open!); Exit; end; MutexHandle := CreateMutex(nil,
2006-12-26 14:53:00 659
原创 获取文件大小,修改日期,版本
//获取文件版本function getFileVersion(sFile: string; bIncludeBuild: boolean): string;var dwfvw, dwZero, dwvsf: DWORD; Major, Minor, Release, Build: DWORD; pfvw: PChar; pvsf: PVSFixedFileInfo; s: string;begi
2006-12-26 14:50:00 6974
原创 加密算法MD5
unit md5;interfaceuses Windows, Dialogs; function md(sFile:string):string;IMPLEMENTATIONtype MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of
2006-12-26 14:49:00 675
易博龙RAD Studio XE3(Delphi Xe3)
2012-08-06
BDE错误代码信息查询
2010-11-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人