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: 

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