|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Два исполняемых файла в один
Люди, нужна помощь.
Есть два исполняемых файла Первый Код:
uses SysUtils, windows; var Application, Params: string; fName: string; nsize: cardinal; begin nsize := 128; SetLength(fName, nsize); SetLength(fName, GetModuleFileName(hinstance, pchar(fName), nsize)); { TODO -oUser -cConsole Main : Insert code here } Application := ExtractFilePath(fName)+'Drweb\DrWebUpW.exe'; Params := '/dir:"'+ExtractFilePath(fName)+'Drweb" /LNG:ru_drweb.dwl /UA'; WinExec(Pchar(Application+' '+Params),1); end. Второй Код:
uses SysUtils, windows; var Application, Params: string; fName: string; nsize: cardinal; begin nsize := 128; SetLength(fName, nsize); SetLength(fName, GetModuleFileName(hinstance, pchar(fName), nsize)); { TODO -oUser -cConsole Main : Insert code here } Application := ExtractFilePath(fName)+'Drweb\DrWebUpW.exe'; Params := '/dir:"'+ExtractFilePath(fName)+'Drweb" /LNG:ru_drweb.dwl /UPD'; WinExec(Pchar(Application+' '+Params),1); end. Нужно их объединить в один исполняемый файл. Заранее спасибо. Последний раз редактировалось HA3APET, 20.08.2010 в 19:23. |