Windown Apiï¼
LoadLibrary
è½½å
¥æå®çå¨æé¾æ¥åºï¼å¹¶å°å®æ å°å°å½åè¿ç¨ä½¿ç¨çå°å空é´ãä¸æ¦è½½å
¥ï¼å³å¯è®¿é®åºå
ä¿åçèµæºï¼æååè¿ååºæ¨¡åçå¥æï¼é¶è¡¨ç¤ºå¤±è´¥
FreeLibrary
éæ¾æå®çå¨æé¾æ¥åº
ç¨ LoadLibrary è½½å
¥ abc.dll
var
RasLib : THandle;
Str:array[0..255] of Char;
begin
RasLib := LoadLibrary (PChar(AppPath+'abc.dll')) ;
try
if RasLib <> 0 then begin
//èµæºç±»å为 Bitmapï¼èµæº ID 为 1
Bitmap1.Handle:=LoadBitmap(RasLib, MakeIntResource(1));
//èµæºç±»å为 iconï¼èµæºå称 为 MainIcon
icon1.Handle := LoadIcon(RasLib, 'MainIcon');
//èµæºç±»å为 Stringï¼èµæº ID 为 3
if LoadString(RasLib, 3, @Str, sizeof(Str)) <> 0 then
Label1.Caption := StrPas(Str);
//è½½å
¥ä»»æç±»åèµæº
with TResourceStream.Create(RasLib, èµæºå称, èµæºç±»å) do begin
try
SaveToFile('d:\.....');
....
SaveToStream(Stream);
finally
Free;
end;
end;
finally
FreeLibrary(RasLib);
end;
温馨提示:答案为网友推荐,仅供参考