delphi中用代码实现注册Ocx和Dll（有点怪异，使用CallWindowProc来调用指定函数DllRegisterServer）

在windows系统中，可以通过Regsvr32来实现注册ocx或者dl，

编程时，调用Regsvr32来注册，却不能正常执行。尤其是在Win7系统中，需要管理员身份才能运行。

使用下面的代码则能正常注册。

1. //注册
2. function RegisterDllServer(FileName: string): boolean;
3. var
4. nDllAddr: integer;
5. bstr: string;
6. ProcAddr: Pointer;
7. str: PAnsiChar;
8. begin
9. Result := False;
10. if not FileExists(FileName) then
11. exit;
12. nDllAddr:=LoadLibrary(PWideChar(FileName));
13. if nDllAddr <> 0 then
14. begin
15. bstr:='DllRegisterServer'+chr(0);
16. str := PAnsiChar(AnsiString(bstr));
17. ProcAddr := GetProcAddress(nDllAddr,str);
18. if ProcAddr<>nil then
19. begin
20. CallWindowProc(ProcAddr,nDllAddr,0,0,0);
21. Result := True;
22. end;
23. FreeLibrary(nDllAddr);
24. end;
25. end;
26. //反注册
27. function UnRegisterDllServer(FileName: string): boolean;
28. var
29. nDllAddr: integer;
30. bstr: string;
31. ProcAddr: Pointer;
32. str: PAnsiChar;
33. begin
34. Result := False;
35. if not FileExists(FileName) then
36. exit;
37. nDllAddr:=LoadLibrary(PWideChar(FileName));
38. if nDllAddr <> 0 then
39. begin
40. bstr:='DllUnregisterServer'+chr(0);
41. str := PAnsiChar(AnsiString(bstr));
42. ProcAddr := GetProcAddress(nDllAddr,str);
43. if ProcAddr<>nil then
44. begin
45. CallWindowProc(ProcAddr,nDllAddr,0,0,0);
46. Result := True;
47. end;
48. FreeLibrary(nDllAddr);
49. end;
50. end;

http://blog.csdn.net/shuaihj/article/details/6243360

选择目录

1. function selectdir: string; //如果取消取返回为空，否则返回选中的路径
2. var
3. Info: TBrowseInfo;
4. IDList: pItemIDList;
5. Buffer: PChar;
6. begin
7. result := '';
8. Buffer := StrAlloc(MAX_PATH);
9. with Info do
10. begin
11. hwndOwner := GetActiveWindow;   //少了这句，浏览目录选择框不会跳出来的
12. pidlRoot := nil; //起始位置，缺省为我的电脑
13. pszDisplayName := Buffer; //用于存放选择目录的指针
14. lpszTitle := '请选择路径:'; //对话框提示信息
15. ulFlags := BIF_RETURNONLYFSDIRS or BIF_BROWSEINCLUDEFILES;
16. //选择参数，此处表示显示目录和文件，如果只显示目录则将后一个去掉即可
17. lpfn := nil; //指定回调函数指针
18. lParam := 0; //传递给回调函数参数
19. IDList := SHBrowseForFolder(Info); //读取目录信息
20. end;
21. if IDList <> nil then
22. begin
23. SHGetPathFromIDList(IDList, Buffer); //将目录信息转化为路径字符串
24. result := strpas(Buffer);
25. end;
26. StrDispose(buffer);
27. end;

http://blog.csdn.net/earbao/article/details/9296411