5,386
社区成员
发帖
与我相关
我的任务
分享急！一个关于OPENFILE用法的问题，在线等待！
小弟要做一个软件，里面需要用到OPENFILE这个函数，但是小弟不知道怎样使用，请各位教我！！请一定要附上相关的关于OPENFILE这个函数的使用范例！！谢谢了！！
...全文
请发表友善的回复…
发表回复
wwweeiii 2003-09-14
- 打赏
- 举报
哦，谢谢了！！！
PrgmLover 2003-09-14
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
Var
aa: OFSTRUCT;
aHandle: HWnd;
begin
aHandle:= OpenFile('E:\其他\Note.txt',aa,OF_READ);
//返回文件句柄。
...
...
end;
Var
aa: OFSTRUCT;
aHandle: HWnd;
begin
aHandle:= OpenFile('E:\其他\Note.txt',aa,OF_READ);
//返回文件句柄。
...
...
end;
hkbarton 2003-09-14
- 打赏
- 举报
OpenFile('c:\x.txt')
wwweeiii 2003-09-14
- 打赏
- 举报
请给个具体的例子好么？？
hkbarton 2003-09-14
- 打赏
- 举报
只有一个参数，就是文件名
