Dephi中資源文件的應用

領測軟件測試網

MyIcon := LoadIcon(hInstance, ’MainIcon’); 
SetClassLONG(DlgWin, GCL_HICON, MyIcon); 
MainWin := DlgWin; 
end; 
WM_Close: 
begin 
PostQuitMessage(0); 
Exit; 
end; 
WM_COMMAND: 
case LOWORD(DlgWParam) of 

ID_Selet: 
begin 
if SelectDirectory(DlgWin, ’請選擇安裝目錄’, ’’, Sdir) 
then SendMessage(GetDlgItem(DlgWin, ID_Edit), WM_SETTEXT, 0, lParam(pChar(Sdir))); 
end; 
ID_Setup: 
begin 
if My_Gettext = ’’ then 
begin 
MessageBox(DlgWin, ’請先選擇安裝文件夾!’, ’信息’, MB_ICONINFORMATION + MB_OK); 
Exit; 
end; 
CopyFile(pchar(ParamStr(0)), pchar(My_Gettext + Getmyname), false); 
MessageBox(DlgWin, ’安裝完畢!’, ’信息’, MB_ICONINFORMATION + MB_OK); 
PostQuitMessage(0); 
Exit; 
end; 
ID_Quit: 

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