- 博客(4)
- 资源 (5)
- 收藏
- 关注
原创 编译资源进入可执行程序
做一个.rc的文件,里面是文本格式,内容如下: 资源名 类型 资源在windows中的文件件 mycur1 cursor 28.cur //加入光标mycur2 cursor 29.cur //加入光标mycur3 cursor 30.cur //加入光标myIco1 ICON ico.ICO //加入图标bmp1 Bitmap 1.bmpbmp2 Bitmap 2.bmp
2004-09-10 12:12:00 1076
原创 命令行参数,程序参数
If system.ParamCount > 0 Then Begin filename := system.paramstr(1); OpenFile(filename); End;
2004-09-10 12:06:00 1091
原创 拖拉打开文件
说明:DragDropFiles是在函数声明中定义的消息函 DragQueryFile和DragFinish都是API函数,在调用之前要在pas头上引用shellAPI单元。 OpenFile是你真正用来打开文件的的函数,其它所做的是得到拖拉进来的文件的文件名。Procedure DragDropFiles(Var message: TMessage); Message WM_Dr
2004-09-10 12:06:00 1129
原创 注册文件类型,设置文件图标
{------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述: @参数: FileExt, Filet
2004-09-10 12:05:00 1617
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人