Dephi中资源文件的应用

领测软件测试网

try 
result := shgetpathfromidlist(shbrowseforfolder(lpbi), buf); 
except 
freemem(lpbi.pszDisplayName); 
end; 
if result then 
begin 
directory := buf; 
if length(directory) <> 3 then directory := directory + ’\’; 
end; 
end; 

function MainDialogProc( 
DlgWin: hWnd; 
DlgMessage: UINT; 
DlgWParam: WPARAM; 
DlgLParam: LPARAM 
) 
: integer; stdcall; 
var 
MyIcon: HICON; 
Sdir: string; 
begin 
Result := 0; 
case DlgMessage of 
WM_INITDIALOG: 
begin 

文章来源于领测软件测试网 https://www.ltesting.net/