]<br><br>//在Form上放两个EDIT，一是edtExe1, 一是edtExe2<br>//点击Button后把edtExe1里的RCD_DATA: TAboutForm添加到edtExe2里面。<br>procedure TFormMain.btnUpdateClick(Sender: TObject);<br>var<br> hResLoad: HRSRC; // handle to loaded resource<br> hExe: THandle; // handle to existing .EXE file<br> hRes: HRSRC; // handle/ptr. to res. info. in hExe<br> hUpdateRes: THandle; // update resource handle<br> lpResLock: Pointer; // pointer to resource data<br> Result: Boolean;<br>begin<br> // Load the .EXE file that contains the dialog box you want to copy.<br> hExe := LoadLibrary(PChar(edtExe1.Text));<br> if hExe = 0 then<br> RaiseLastOSError;<br> // Locate the dialog box resource in the .EXE file.<br> hRes := FindResource(hExe, 'TAboutForm', RT_RCDATA);<br> if hRes = 0 then<br> RaiseLastOSError;<br> // Load the dialog box into global memory.<br> hResLoad := LoadResource(hExe, hRes);<br> if hResLoad = 0 then<br> RaiseLastOSError;<br> // Lock the dialog box into global memory.<br> lpResLock := LockResource(hResLoad);<br> if lpResLock = nil then<br> RaiseLastOSError;<br> // Open the file to which you want to add the dialog box resource.<br> hUpdateRes := BeginUpdateResource(PChar(edtExe2.Text), False);<br> if hUpdateRes = 0 then<br> RaiseLastOSError;<br> // Add the dialog box resource to the update list.<br> Result := UpdateResource(hUpdateRes, // update resource handle<br> RT_RCDATA, // change dialog box resource<br> 'TAboutForm', // dialog box name<br> MakeLong(LANG_NEUTRAL, SUBLANG_NEUTRAL), // neutral language<br> lpResLock, // ptr to resource info<br> SizeofResource(hExe, hRes)); // size of resource info.<br> if not Result then<br> RaiseLastOSError;<br> // Write changes to other EXE and then close it.<br> if not EndUpdateResource(hUpdateRes, False) then<br> RaiseLastOSError;<br><br> // Clean up.<br> if not FreeLibrary(hExe) then<br> RaiseLastOSError;<br>end;<br>][?]