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 

文章來源于領測軟件測試網 http://www.kjueaiud.com/