LoadTypeLib

#include <windows.h>
#include <ole2.h>
int main(int argc, char* argv[])
{
CoInitialize(0);
ITypeLib* typeLib;
HRESULT hr = LoadTypeLib((wchar_t *)argv[1], typeLib);
.
.
.
CoUninitialize();
}

//--------------------------------------------------------------
function TtfAutoUpdate.pRegLib(fileName : String):boolean;
var
sFileName : String;
ptlib: ITypeLib;
begin
sFileName := fileName;
try
result := true;
OleCheck(LoadTypeLib(PWideChar(sFileName), ptlib));
OleCheck(RegisterTypeLib(ptlib, PWideChar(sFileName),nil));
pWriteLog('注册' + fileName + '成功');
Except
on e:Exception do
begin
result := false;
pWriteLog('注册' + fileName + '失败，错误:' + e.Message);
end;
end;
end;
//--------------------------------------------------------------
function TtfAutoUpdate.pUnRegLib(fileName : String):boolean;
var
sFileName : String;
ptlib : ITypeLib;
ptla : PTLibAttr;
begin
sFileName := fileName;
try
result := true;
OleCheck(LoadTypeLib(PWideChar(sFileName), ptlib));
OleCheck(ptlib.GetLibAttr(ptla));
OleCheck(UnRegisterTypeLib(ptla.guid,ptla.wMajorVerNum,ptla.wMinorVerNum,ptla.lcid,ptla.syskind));
ptlib.ReleaseTLibAttr(ptla);
pWriteLog('卸载' + fileName + '成功');
Except
on e:Exception do
begin
result := false;
pWriteLog('卸载' + fileName + '失败，错误:' + e.Message);
end;
end;
end;

1. unit InstFnc2;
2. 
   
3. {
4.   Inno Setup
5.   Copyright (C) 1997-2004 Jordan Russell
6.   Portions by Martijn Laan
7.   For conditions of distribution and use, see LICENSE.TXT.
8. 
   
9.   OLE-related installation functions
10. 
    
11.   $jrsoftware: issrc/Projects/InstFnc2.pas,v 1.21 2005/04/09 07:28:51 jr Exp $
12. }
13. 
    
14. interface
15. 
    
16. {$I VERSION.INC}
17. 
    
18. function CreateShellLink(const Filename, Description, ShortcutTo, Parameters,
19.   WorkingDir, IconFilename: String; const IconIndex, ShowCmd: Integer;
20.   const HotKey: Word; FolderShortcut: Boolean): String;
21. procedure RegisterTypeLibrary(const Filename: String);
22. procedure UnregisterTypeLibrary(const Filename: String);
23. 
    
24. implementation
25. 
    
26. uses
27.   Windows, SysUtils, PathFunc, CmnFunc2, InstFunc, Main, Msgs, MsgIDs,
28.   {$IFNDEF Delphi3orHigher} OLE2, {$ELSE} ActiveX, ComObj, {$ENDIF}
29.   ShellAPI, ShlObj;
30. 
    
31. function IsWindowsXP: Boolean;
32. { Returns True if running Windows XP or later }
33. begin
34.   Result := (WindowsVersion >= Cardinal($05010000));
35. end;
36. 
    
37. function GetResultingFilename(const PF: IPersistFile;
38.   const OriginalFilename: String): String;
39. { Determines the actual resulting filename. IPersistFile::Save doesn't always
40.   save to the specified filename; it may rename the extension to .pif if the
41.   shortcut points to an MS-DOS application. }
42. var
43.   CurFilename: PWideChar;
44.   OleResult: HRESULT;
45. begin
46.   Result := '';
47.   CurFilename := nil;
48.   OleResult := PF.GetCurFile(CurFilename);
49.   { Note: Prior to Windows 2000/Me, GetCurFile succeeds but returns a NULL
50.     pointer }
51.   if SUCCEEDED(OleResult) and Assigned(CurFilename) then begin
52.     if OleResult = S_OK then
53.       Result := WideCharToString(CurFilename);
54.     CoTaskMemFree(CurFilename);
55.   end;
56.   { If GetCurFile didn't work (e.g. not running Windows 2000/Me or later), we
57.     have no choice but to try to guess the filename }
58.   if Result = '' then begin
59.     if NewFileExists(OriginalFilename) then
60.       Result := OriginalFilename
61.     else if NewFileExists(PathChangeExt(OriginalFilename, '.pif')) then
62.       Result := PathChangeExt(OriginalFilename, '.pif')
63.     else begin
64.       { Neither exist? Shouldn't happen, but return something anyway }
65.       Result := OriginalFilename;
66.     end;
67.   end;
68. end;
69. 
    
70. function CreateShellLink(const Filename, Description, ShortcutTo, Parameters,
71.   WorkingDir, IconFilename: String; const IconIndex, ShowCmd: Integer;
72.   const HotKey: Word; FolderShortcut: Boolean): String;
73. { Creates a lnk file named Filename, with a description of Description, with a
74.   HotKey hotkey, which points to ShortcutTo.
75.   NOTE! If you want to copy this procedure for use in your own application
76.   be sure to call CoInitialize at application startup and CoUninitialize at
77.   application shutdown. See the bottom of this unit for an example. But this
78.   is not necessary if you are using Delphi 3 and your project already 'uses'
79.   the ComObj RTL unit. }
80. const
81.   CLSID_FolderShortcut: TGUID = (
82.     D1:$0AFACED1; D2:$E828; D3:$11D1; D4:($91,$87,$B5,$32,$F1,$E9,$57,$5D));
83. {$IFNDEF Delphi3OrHigher}
84. var
85.   OleResult: HRESULT;
86.   SL: IShellLink;
87.   PF: IPersistFile;
88.   WideFilename: PWideChar;
89. begin
90.   if FolderShortcut then
91.     OleResult := CoCreateInstance(CLSID_FolderShortcut, nil, CLSCTX_INPROC_SERVER,
92.       IID_IShellLink, SL)
93.   else
94.     OleResult := E_FAIL;
95.   { If a folder shortcut wasn't requested, or if CoCreateInstance failed
96.     because the user isn't running Windows 2000/Me or later, create a normal
97.     shell link instead }
98.   if OleResult <> S_OK then begin
99.     FolderShortcut := False;
100.     OleResult := CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
101.        IID_IShellLink, SL);
102.     if OleResult <> S_OK then
103.       RaiseOleError('CoCreateInstance', OleResult);
104.   end;
105.   PF := nil;
106.   WideFilename := nil;
107.   try
108.     SL.SetPath(PChar(ShortcutTo));
109.     SL.SetArguments(PChar(Parameters));
110.     if WorkingDir <> '' then
111.       SL.SetWorkingDirectory(PChar(WorkingDir));
112.     if IconFilename <> '' then
113.       SL.SetIconLocation(PChar(IconFilename), IconIndex);
114.     SL.SetShowCmd(ShowCmd);
115.     if Description <> '' then
116.       SL.SetDescription(PChar(Description));
117.     if HotKey <> 0 then
118.       SL.SetHotKey(HotKey);
119. 
     
120.     OleResult := SL.QueryInterface(IID_IPersistFile, PF);
121.     if OleResult <> S_OK then
122.       RaiseOleError('IShellLink::QueryInterface', OleResult);
123.     { When creating a folder shortcut on 2000/Me, IPersistFile::Save will strip
124.       off everything past the last '.' in the filename, so we keep the .lnk
125.       extension on to give it something harmless to strip off. XP doesn't do
126.       that, so we must remove the .lnk extension ourself. }
127.     if FolderShortcut and IsWindowsXP then
128.       WideFilename := StringToOleStr(PathChangeExt(Filename, ''))
129.     else
130.       WideFilename := StringToOleStr(Filename);
131.     if WideFilename = nil then
132.       OutOfMemoryError;
133.     OleResult := PF.Save(WideFilename, True);
134.     if OleResult <> S_OK then
135.       RaiseOleError('IPersistFile::Save', OleResult);
136. 
     
137.     Result := GetResultingFilename(PF, Filename);
138.   finally
139.     if Assigned(WideFilename) then
140.       SysFreeString(WideFilename);
141.     if Assigned(PF) then
142.       PF.Release;
143.     SL.Release;
144.   end;
145. {$ELSE}
146. var
147.   OleResult: HRESULT;
148.   Obj: IUnknown;
149.   SL: IShellLink;
150.   PF: IPersistFile;
151.   WideFilename: WideString;
152. begin
153.   if FolderShortcut then begin
154.     try
155.       Obj := CreateComObject(CLSID_FolderShortcut);
156.     except
157.       { Folder shortcuts aren't supported prior to Windows 2000/Me. Fall back
158.         to creating a normal shell link. }
159.       Obj := nil;
160.     end;
161.   end;
162.   if Obj = nil then begin
163.     FolderShortcut := False;
164.     Obj := CreateComObject(CLSID_ShellLink);
165.   end;
166.   SL := Obj as IShellLink;
167.   SL.SetPath(PChar(ShortcutTo));
168.   SL.SetArguments(PChar(Parameters));
169.   if WorkingDir <> '' then
170.     SL.SetWorkingDirectory(PChar(WorkingDir));
171.   if IconFilename <> '' then
172.     SL.SetIconLocation(PChar(IconFilename), IconIndex);
173.   SL.SetShowCmd(ShowCmd);
174.   if Description <> '' then
175.     SL.SetDescription(PChar(Description));
176.   if HotKey <> 0 then
177.     SL.SetHotKey(HotKey);
178. 
     
179.   PF := SL as IPersistFile;
180.   { When creating a folder shortcut on 2000/Me, IPersistFile::Save will strip
181.     off everything past the last '.' in the filename, so we keep the .lnk
182.     extension on to give it something harmless to strip off. XP doesn't do
183.     that, so we must remove the .lnk extension ourself. }
184.   if FolderShortcut and IsWindowsXP then
185.     WideFilename := PathChangeExt(Filename, '')
186.   else
187.     WideFilename := Filename;
188.   OleResult := PF.Save(PWideChar(WideFilename), True);
189.   if OleResult <> S_OK then
190.     RaiseOleError('IPersistFile::Save', OleResult);
191. 
     
192.   Result := GetResultingFilename(PF, Filename);
193.   { Delphi 3 automatically releases COM objects when they go out of scope }
194. {$ENDIF}
195. end;
196. 
     
197. procedure RegisterTypeLibrary(const Filename: String);
198. {$IFNDEF Delphi3OrHigher}
199. var
200.   WideFilename: PWideChar;
201.   OleResult: HRESULT;
202.   TypeLib: ITypeLib;
203. begin
204.   WideFilename := StringToOleStr(PathExpand(Filename));
205.   if WideFilename = nil then
206.     OutOfMemoryError;
207.   try
208.     OleResult := LoadTypeLib(WideFilename, TypeLib);
209.     if OleResult <> S_OK then
210.       RaiseOleError('LoadTypeLib', OleResult);
211.     try
212.       OleResult := RegisterTypeLib(TypeLib, WideFilename, nil);
213.       if OleResult <> S_OK then
214.         RaiseOleError('RegisterTypeLib', OleResult);
215.     finally
216.       TypeLib.Release;
217.     end;
218.   finally
219.     SysFreeString(WideFilename);
220.   end;
221. end;
222. {$ELSE}
223. var
224.   WideFilename: WideString;
225.   OleResult: HRESULT;
226.   TypeLib: ITypeLib;
227. begin
228.   WideFilename := PathExpand(Filename);
229.   OleResult := LoadTypeLib(PWideChar(WideFilename), TypeLib);
230.   if OleResult <> S_OK then
231.     RaiseOleError('LoadTypeLib', OleResult);
232.   OleResult := RegisterTypeLib(TypeLib, PWideChar(WideFilename), nil);
233.   if OleResult <> S_OK then
234.     RaiseOleError('RegisterTypeLib', OleResult);
235. end;
236. {$ENDIF}
237. 
     
238. procedure UnregisterTypeLibrary(const Filename: String);
239. type
240.   TUnRegTlbProc = function(const libID: TGUID; wVerMajor, wVerMinor: Word;
241.     lcid: TLCID; syskind: TSysKind): HResult; stdcall;
242. {$IFNDEF Delphi3OrHigher}
243. var
244.   UnRegTlbProc: TUnRegTlbProc;
245.   WideFilename: PWideChar;
246.   OleResult: HRESULT;
247.   TypeLib: ITypeLib;
248.   LibAttr: PTLibAttr;
249. begin
250.   { Dynamically import UnRegisterTypeLib since older OLEAUT32.DLL versions
251.     don't have this function }
252.   @UnRegTlbProc := GetProcAddress(GetModuleHandle('OLEAUT32.DLL'),
253.     'UnRegisterTypeLib');
254.   if @UnRegTlbProc = nil then
255.     Win32ErrorMsg('GetProcAddress');
256.   WideFilename := StringToOleStr(PathExpand(Filename));
257.   if WideFilename = nil then
258.     OutOfMemoryError;
259.   try
260.     OleResult := LoadTypeLib(WideFilename, TypeLib);
261.     if OleResult <> S_OK then
262.       RaiseOleError('LoadTypeLib', OleResult);
263.     try
264.       OleResult := TypeLib.GetLibAttr(LibAttr);
265.       if OleResult <> S_OK then
266.         RaiseOleError('ITypeLib::GetLibAttr', OleResult);
267.       try
268.         with LibAttr^ do
269.           OleResult := UnRegTlbProc(Guid, wMajorVerNum, wMinorVerNum, LCID, SysKind);
270.         if OleResult <> S_OK then
271.           RaiseOleError('UnRegisterTypeLib', OleResult);
272.       finally
273.         TypeLib.ReleaseTLibAttr(LibAttr);
274.       end;
275.     finally
276.       TypeLib.Release;
277.     end;
278.   finally
279.     SysFreeString(WideFilename);
280.   end;
281. end;
282. {$ELSE}
283. var
284.   UnRegTlbProc: TUnRegTlbProc;
285.   WideFilename: WideString;
286.   OleResult: HRESULT;
287.   TypeLib: ITypeLib;
288.   LibAttr: PTLibAttr;
289. begin
290.   { Dynamically import UnRegisterTypeLib since older OLEAUT32.DLL versions
291.     don't have this function }
292.   @UnRegTlbProc := GetProcAddress(GetModuleHandle('OLEAUT32.DLL'),
293.     'UnRegisterTypeLib');
294.   if @UnRegTlbProc = nil then
295.     Win32ErrorMsg('GetProcAddress');
296.   WideFilename := PathExpand(Filename);
297.   OleResult := LoadTypeLib(PWideChar(WideFilename), TypeLib);
298.   if OleResult <> S_OK then
299.     RaiseOleError('LoadTypeLib', OleResult);
300.   OleResult := TypeLib.GetLibAttr(LibAttr);
301.   if OleResult <> S_OK then
302.     RaiseOleError('ITypeLib::GetLibAttr', OleResult);
303.   try
304.     with LibAttr^ do
305.       OleResult := UnRegTlbProc(Guid, wMajorVerNum, wMinorVerNum, LCID, SysKind);
306.     if OleResult <> S_OK then
307.       RaiseOleError('UnRegisterTypeLib', OleResult);
308.   finally
309.     TypeLib.ReleaseTLibAttr(LibAttr);
310.   end;
311. end;
312. {$ENDIF}
313. 
     
314. procedure InitOle;
315. var
316.   OleResult: HRESULT;
317. begin
318.   OleResult := CoInitialize(nil);
319.   if FAILED(OleResult) then
320.     raise Exception.CreateFmt('CoInitialize failed (0x%.8x)', [OleResult]);
321.     { ^ doesn't use a SetupMessage since messages probably aren't loaded
322.       during 'initialization' section below, which calls this procedure }
323. end;
324. 
     
325. initialization
326.   InitOle;
327. finalization
328.   CoUninitialize;
329. end.