- 博客(10)
- 资源 (45)
- 问答 (2)
- 收藏
- 关注
RSS订阅转载 delphi实现MD5算法
unit MD5;interfaceusesWindows,SysUtils;//自定函数 计算字符串的MD5值function StrToMD5(str:string):string; //计算字符串的MD5值function FileToMD5(FilePath:string):string; //计算文件的MD5值typeMD5Count = array[0
2012-07-16 20:47:26
7798
1
转载 delphi中如何获得硬盘序列号
var SerialNum: DWord; A, B: DWord; VolumeSerialNumber: string ; Key: string ; begin Key:= ' '; if GetVolumeInformation(PChar( 'C:\ '), Nil, 0, @SerialNum, A, B, Nil,
2012-07-16 20:44:04
2452
原创 数字的翻译（英文到中文）
今天看到个帖子，感觉有点意思。。。#include#include#include using namespace std;int get(string str);string str1[]={"zero","one","two","three","four","five","six","seven","eight","nine","ten","eleven","twelve","t
2012-07-15 15:36:58
1864
原创 VC程序只允许运行一次
在InitInstance()中加入以下代码即可：::CreateMutex(NULL, FALSE, _T("Global\\xxxxx.exe")); /*创建一个互斥体*/ if(ERROR_ALREADY_EXISTS == GetLastError()) { AfxMessageBox(_T("该程序只允许运行一次!")); return FALSE;
2012-07-13 14:51:55
981
转载 Delphi中强制结束一个进程
强制结束一个进程的 API 为 TerminateProcessBOOL TerminateProcess(HANDLE hProcess, // 进程句柄UINT uExitCode // 退出代码 );你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess,0 来结束进程，要注意的是如果可能的话，尽量不要在
2012-07-12 22:31:59
1339
转载 delphi中如何查看某个程序在进程中是否已经存在
uses TLHelp32 注意 function FindProcess(AFileName: string): boolean; var hSnapshot: THandle;//用于获得进程列表 lppe: TProcessEntry32;//用于查找进程 Found: Boolean;//用于判断进程遍历是否完成 begin Result
2012-07-12 22:30:07
8619
原创 delphi中让窗口最前端显示
1.//置前SetWindowPos(form1.handle,HWND_TOPMost,form1.left,form1.top,form1.width,form1.heigth,0);//取消置前SetWindowPos(form1.handle,HWND_NOTOPMost,form1.left,form1.top,form1.width,form1.heigth,0);
2012-07-12 22:03:42
7744
转载 Delphi实现程序只运行一次并激活已打开的程序
unit wdRunOnce;{******************************************* * brief: 让程序只运行一次 * autor: linzhenqun * date: 2005-12-28 * email: [email protected] * blog: http://blog.csdn.net/linzhengqun******
2012-07-12 21:57:55
3745
3
原创 C++Primer第三版0601
这个是没有看教材，纯粹以自己现有的编码能力，凑合满足需求，留在这里，供自己日后反思只用，当然也欢迎拍砖。。。#include #include #include #include using namespace std;//#include //#include //#define byte unsigned char//#include void main(){ st
2012-07-10 21:41:45
627
原创 CLSID与BSTR类型的互相转换
CLSID m_clsid; BSTR bstrGLSID; ::StringFromCLSID(m_clsid,&bstrGLSID); ::CLSIDFromString(bstrGLSID,&m_clsid);CString strCLSID;strCLSID=bstrGLSID;bstrGLSID=strCLSID.AllocSysString();
2012-07-02 21:38:37
1151
5C++设计模式--基于Qt4开源跨平台开发框架 完整清晰版中文PDF.zip
2020-03-31
GameCloseLight.zip
2020-03-20
QT及QT Quick开发实战--QT学习系列之一
2020-01-29
InnoSetup_523_WestKing_HA
2012-07-15
CRC校验Demo
2012-04-06
psapi.dll
2011-11-06
VC模拟Windows任务管理器
2011-10-25
windows系统中搜索功能MFC实现
2011-06-20
要时刻注意攻城狮们的“面子”，正向激励大多数时间是有效的！
2021-06-27
MFC中如何将云台控制按钮始终显示在视频流的界面上
2015-12-23
TA创建的收藏夹 TA关注的收藏夹
TA关注的人