- 博客(6)
- 资源 (8)
- 收藏
- 关注
原创 OD工具管理(INI文件操作)
procedure TForm1.FormShow(Sender: TObject);begin S1 := ExtractFilePath(Application.ExeName)+AutoPath.ini; MyIni := TIniFile.Create(S1); MyIni.ReadSectionValues(Tools, Listbox1.Items); MyIni.Free;e
2010-01-05 08:22:00 602
转载 Delphi中“流”的利用-EXE加密|电子贺卡
一、Delphi中流的基本概念及函数声明 在Delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。 TStream类中定义的属性介绍如下: 1、Size:此属性以字节返回流中数据大小。 2、Position:此属性控制流中存取指针的位置。 Tstream中定义的虚方法有四个: 1、Read:此方法实现将数据从流中读出。函数原形为:
2010-01-05 08:18:00 527
原创 禁止用户关闭操作系统
private { Private declarations } procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession; ...... procedure TForm1.QueryEndSession(var Msg:TMessage); begin Msg.Result := 0; e
2010-04-06 00:54:00 389
原创 如何按下ESC键退出程序
分别在FormCreate,FormKeyPress事件中输入以下代码: procedure TForm1.FormCreate(Sender: TObject);begin keypreview:= True; //可以接收键盘操作end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin
2010-04-06 00:53:00 1615
转载 怎样更改EXE的主图标
function ChangeExeIcon(IcoFile, ExeFile: string): Boolean; var stID: ICONDIR; stGID: GRPICONDIR; pGrpIcon: PBYTE; pIcon: PBYTE; hUpdate: DWORD; nSize, nGSize: DWORD; hFile: THandle; dwReserved: DWOR
2010-01-05 08:44:00 1210
转载 Delphi 流分割与合并文件的函数
//分割文件的函数 {参数 1 是要分割的文件名; 参数 2 是要风格文件的大小, 单位是 KB} {分割后的文件名扩展名用序号替换} function SplitFile(const FileName: string; Size: Cardinal): Boolean; var fStream: TFileStream; {原始文件} toStream: TMemoryStream; {分
2010-01-05 08:36:00 935
DELPHI专题文档-程序应用
2010-04-06
DELPHI专题--程序应用
2010-04-06
DELPHI专题--API应用
2010-04-06
Delphi教程---代码实例
2010-04-06
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人