在windows系统中,可以通过Regsvr32来实现注册ocx或者dl,
编程时,调用Regsvr32来注册,却不能正常执行。尤其是在Win7系统中,需要管理员身份才能运行。
使用下面的代码则能正常注册。
- //注册
- function RegisterDllServer(FileName: string): boolean;
- var
- nDllAddr: integer;
- bstr: string;
- ProcAddr: Pointer;
- str: PAnsiChar;
- begin
- Result := False;
- if not FileExists(FileName) then
- exit;
- nDllAddr:=LoadLibrary(PWideChar(FileName));
- if nDllAddr <> 0 then
- begin
- bstr:='DllRegisterServer'+chr(0);
- str := PAnsiChar(AnsiString(bstr));
- ProcAddr := GetProcAddress(nDllAddr,str);
- if ProcAddr<>nil then
- begin
- CallWindowProc(ProcAddr,nDllAddr,0,0,0);
- Result := True;
- end;
- FreeLibrary(nDllAddr);
- end;
- end;
- //反注册
- function UnRegisterDllServer(FileName: string): boolean;
- var
- nDllAddr: integer;
- bstr: string;
- ProcAddr: Pointer;
- str: PAnsiChar;
- begin
- Result := False;
- if not FileExists(FileName) then
- exit;
- nDllAddr:=LoadLibrary(PWideChar(FileName));
- if nDllAddr <> 0 then
- begin
- bstr:='DllUnregisterServer'+chr(0);
- str := PAnsiChar(AnsiString(bstr));
- ProcAddr := GetProcAddress(nDllAddr,str);
- if ProcAddr<>nil then
- begin
- CallWindowProc(ProcAddr,nDllAddr,0,0,0);
- Result := True;
- end;
- FreeLibrary(nDllAddr);
- end;
- end;
http://blog.csdn.net/shuaihj/article/details/6243360
选择目录
- function selectdir: string; //如果取消取返回为空,否则返回选中的路径
- var
- Info: TBrowseInfo;
- IDList: pItemIDList;
- Buffer: PChar;
- begin
- result := '';
- Buffer := StrAlloc(MAX_PATH);
- with Info do
- begin
- hwndOwner := GetActiveWindow; //少了这句,浏览目录选择框不会跳出来的
- pidlRoot := nil; //起始位置,缺省为我的电脑
- pszDisplayName := Buffer; //用于存放选择目录的指针
- lpszTitle := '请选择路径:'; //对话框提示信息
- ulFlags := BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES;
- //选择参数,此处表示显示目录和文件,如果只显示目录则将后一个去掉即可
- lpfn := nil; //指定回调函数指针
- lParam := 0; //传递给回调函数参数
- IDList := SHBrowseForFolder(Info); //读取目录信息
- end;
- if IDList <> nil then
- begin
- SHGetPathFromIDList(IDList, Buffer); //将目录信息转化为路径字符串
- result := strpas(Buffer);
- end;
- StrDispose(buffer);
- end;
http://blog.csdn.net/earbao/article/details/9296411