Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
18 / 34 / 2
Регистрация: 28.01.2012
Сообщений: 181

Засунуть программу в другую программу

21.04.2012, 20:59. Показов 2933. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
собственно говоря, есть одна программка, которую надо засунуть в свою программу и при запуске запакованная программа выполнялась как отдельный процесс
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.04.2012, 20:59
Ответы с готовыми решениями:

Как засунуть программу в треи (АПИ!)?
Привет всем. Ето код который я покалдовал :D HINSTANCE hInst = (HINSTANCE) GetClassLong(Handle,GCL_HMODULE); HICON hIcon...

как в программу паскаля поставить ссылку на другую паскалевскую программу?
подскажите пожалуйста, как в задаче на паскале сделать ссылку на другую паскалевскую прогу , то есть : у меня запукается программа, в ней...

Создать программу которая - создает другую программу с действиями
Мне нужны подсказки кусочки O_o Создать программу которая - создает другую программу программа имеет форму FORM , но создает она...

7
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
21.04.2012, 21:13
Почитайте про ресурсы.
2
18 / 34 / 2
Регистрация: 28.01.2012
Сообщений: 181
21.04.2012, 21:24  [ТС]
LK, ну это понятно что в сторону ресурсов надо шагать. А как потом вызвать запакованный exe-шник? причем она должна запускаться отдельным процессом
0
Эксперт С++
 Аватар для Avazart
8488 / 6155 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
21.04.2012, 21:27
ShellExecute() или
CreateProcess()
ну итд
1
18 / 34 / 2
Регистрация: 28.01.2012
Сообщений: 181
21.04.2012, 21:31  [ТС]
Avazart, ну как я понял ShellExecute() может вызвать программу, которая хранится на жестком диске. А мне надо вызвать программу из ресурсов
0
Эксперт С++
 Аватар для Avazart
8488 / 6155 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
21.04.2012, 21:37
А чем вызвана необходимость упоковки в ресурс?
0
18 / 34 / 2
Регистрация: 28.01.2012
Сообщений: 181
21.04.2012, 21:43  [ТС]
Avazart, есть одна программа у которого нету исходного кода и я решил воспользоваться возможностями этой программы в своей программе, чтобы не изобретать велосипед заново
0
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
21.04.2012, 21:46
Как запустить EXE из ресурсов
- Задача: Запустить программу 1.exe из ресурсов моей программу main.exe не извлекая её на диск.
- То есть, необходимо запустить программу main.exe, затем извлечь из ресурсов 1.exe заменяя память другого процесса, чтобы запустилась программа 1.exe;
- Данную схему вроде частично реализовал(Без переноса таблицы импорта и релоков).

# TRFR.cpp:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
#include "TRFR.h"
#include "Main.h"
//---------------------------------------------------------------------------
bool (*pNtdllFunc)(HANDLE, LPVOID);
//---------------------------------------------------------------------------
 
TRFR::TRFR()
{
    // ----
}
//---------------------------------------------------------------------------
 
TRFR::~TRFR()
{
    // ----
}
//---------------------------------------------------------------------------
 
bool __fastcall TRFR::ZwUnmapViewOfSection(HANDLE ProcessHandle, LPVOID BaseAddress)
{
    bool Result = false;
    // -----
    try
    {
        HMODULE hNtdll = LoadLibrary("ntdll.dll");
        if(hNtdll != NULL)
        {
            (FARPROC &)pNtdllFunc = GetProcAddress(hNtdll, "ZwUnmapViewOfSection");
            pNtdllFunc(ProcessHandle, BaseAddress);
            FreeLibrary(hNtdll);
            Result = true;
        }
    }
    catch(...) {}
    // ----
    return Result;
}
//---------------------------------------------------------------------------
 
ULONG __fastcall TRFR::Protect(ULONG characteristics)
{
    const ULONG mapping[8] = {PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, PAGE_EXECUTE_READ, PAGE_READWRITE, PAGE_EXECUTE_READWRITE, PAGE_READWRITE, PAGE_EXECUTE_READWRITE};
    return mapping[characteristics >> 29];
}
//---------------------------------------------------------------------------
 
bool __fastcall TRFR::GetMemoryToSection(HANDLE hProcess, LPVOID Mapping, LPVOID pRes, USHORT NumberOfSections, PIMAGE_SECTION_HEADER pSection)
{
    bool Result = true;
    // ----
    for (USHORT i = 0; i < NumberOfSections; i++)
    {
        Result = WriteProcessMemory(hProcess,
            (LPVOID)(DWORD(Mapping) + pSection[i].VirtualAddress),
            (LPCVOID)(DWORD(pRes) + pSection[i].PointerToRawData),
            pSection[i].SizeOfRawData, NULL);
        // ----
        if(!Result) break;
    }
    // ----
    return Result;
}
//---------------------------------------------------------------------------
 
DWORD __fastcall TRFR::RunFromResurs(LPTSTR ComLine, LPCTSTR ResName, LPCTSTR ResType)
{
    bool Result = true;
    DWORD pPID = 0;
    // ----
    PROCESS_INFORMATION pi;
    STARTUPINFO si;
    ZeroMemory(&pi, sizeof(pi));
    ZeroMemory(&si, sizeof(si));
    si.cb = sizeof(STARTUPINFO);
    // ----
    PIMAGE_DOS_HEADER pDos = NULL;
    PIMAGE_NT_HEADERS pNt = NULL;
    PIMAGE_FILE_HEADER pFile = NULL;
    PIMAGE_OPTIONAL_HEADER pOptional = NULL;
    PIMAGE_SECTION_HEADER pSection = NULL;
    // ----
    LPVOID x = NULL, pRes = NULL, Mapping = NULL;
    HANDLE hProcess = NULL;
    HMODULE hInst = GetModuleHandle(NULL);
    // ----
    pRes = LockResource(LoadResource(hInst, FindResource(hInst, ResName, ResType)));
    if(pRes != NULL)
    {
        pDos = PIMAGE_DOS_HEADER(pRes);
        if (pDos->e_magic == IMAGE_DOS_SIGNATURE)
        {
            pNt = PIMAGE_NT_HEADERS(PCHAR(pRes) + pDos->e_lfanew);
            if (pNt->Signature == IMAGE_NT_SIGNATURE)
            {
                pFile = &pNt->FileHeader;
                pOptional = &pNt->OptionalHeader;
                pSection = IMAGE_FIRST_SECTION(pNt);
                // ----
                Result = CreateProcess(NULL, ComLine, NULL, NULL, FALSE, CREATE_SUSPENDED, NULL, NULL, &si, &pi);
                if(Result)
                {
                    FMain->WLog("CreateProcess()");
                    hProcess = pi.hProcess;
                    pPID = pi.dwProcessId;
                    CONTEXT context;
                    context.ContextFlags = CONTEXT_FULL;
                    // ----
                    Result = GetThreadContext(pi.hThread, &context);
                    if(Result)
                    {
                        FMain->WLog("GetThreadContext()");
                        Result = ReadProcessMemory(pi.hProcess, (LPCVOID)(context.Ebx + 8), &x, sizeof(x), 0);
                        if (Result)
                        {
                            FMain->WLog("ReadProcessMemory()");
                            Result = ZwUnmapViewOfSection(pi.hProcess, x);
                            if(Result)
                            {
                                FMain->WLog("ZwUnmapViewOfSection()");
                                Mapping = VirtualAllocEx(pi.hProcess, (LPVOID)pOptional->ImageBase, pOptional->SizeOfImage, MEM_RESERVE | MEM_COMMIT, PAGE_EXECUTE_READWRITE);
                                if(Mapping != NULL)
                                {
                                    FMain->WLog("VirtualAllocEx()");
                                    SIZE_T bsize = 0;
                                    DWORD previousProtection = 0;
                                    Result = VirtualProtectEx(pi.hProcess, Mapping, pOptional->SizeOfHeaders, PAGE_EXECUTE_READWRITE, &previousProtection);
                                    //FMain->WLog("VirtualProtectEx = '" + (String)(int)Result + "'");
                                    Result = WriteProcessMemory(pi.hProcess, Mapping, (LPCVOID)pRes, pOptional->SizeOfHeaders, &bsize);
                                    FMain->WLog("bsize = '" + (String)bsize + "'");
                                    if(Result)
                                    {
                                        FMain->WLog("WriteProcessMemory()");
                                        Result = GetMemoryToSection(pi.hProcess, Mapping, pRes, pFile->NumberOfSections, pSection);
                                        if(Result)
                                        {
                                            FMain->WLog("GetMemoryToSection()");
                                            Result = WriteProcessMemory(pi.hProcess, (LPVOID)(context.Ebx + 8), &Mapping, sizeof(Mapping), 0);
                                            if(Result)
                                            {
                                                context.Eax = (ULONG)Mapping + pOptional->AddressOfEntryPoint;
                                                // ----
                                                SetThreadContext(pi.hThread, &context);
                                                ResumeThread(pi.hThread);
                                            }
                                        }
                                    }
                                    else FMain->WLog("[WPM1] GetLastError = '" + (String)GetLastError() + "'");
                                }
                                else Result = false;
                            }
                        }
                    }
                    // ----
                    if(!Result && hProcess != NULL) TerminateProcess(hProcess, 0);
                    // ----
                    CloseHandle(pi.hProcess);
                    CloseHandle(pi.hThread);
                }
            }
        }
    }
    // -----
    FreeResource(pRes);
    // ----
    return (Result) ? pPID : 0;
}
# TRFR.h:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include <Windows.h>
#include <tlhelp32.h>
#include <stdio.h>
//---------------------------------------------------------------------------
class TRFR
{
    private:
        bool __fastcall ZwUnmapViewOfSection(HANDLE ProcessHandle, LPVOID BaseAddress);
        ULONG __fastcall Protect(ULONG characteristics);
        bool __fastcall GetMemoryToSection(HANDLE hProcess, LPVOID Mapping, LPVOID pRes, USHORT NumberOfSections, PIMAGE_SECTION_HEADER pSection);
    public:
        TRFR();
        ~TRFR();
        DWORD __fastcall RunFromResurs(LPTSTR AppName, LPCTSTR ResName, LPCTSTR ResType);
};
- Проблема в том, что если программу компилировать в режиме 'Debug', то всё нормально, запускается и выполняет свои функции, если скомпилировать в режиме 'Release', то на строчке 128:

C++
1
Result = WriteProcessMemory(pi.hProcess, Mapping, (LPCVOID)pRes, pOptional->SizeOfHeaders, &bsize);
- GetLastError() выдаёт ошибку 0x05:
C++
1
2
3
ERROR_ACCESS_DENIED
5
0x5
- Вроде использую VirtualProtectEx(), вообщем что-то не могу сам допереть...
- У Borland есть удобный класс для извлечения из ресурсов 'TResourceStream', но он мне не очень нравится. (Это так, вода...)

P.S. -> Убедительно прошу, не нужно мне советовать следующее: А чем плох приём извлечения программы на диск с последующим запуском...
- Задача конкретно поставлена. (Файл не должен извлекаться из ресурсов)

Попробуй добавить процессу привилегию SeDebugPrivilege.

- К сожалению не помогло =)
- Вот код функции:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
void TFMain::EnableDebugPriv(void)
{
        String Text = "";
        HANDLE hToken;
        LUID sedebugnameValue;
        TOKEN_PRIVILEGES tkp;
        // enable the SeDebugPrivilege;
        if (!OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))
        {
                Text = "OpenProcessToken() failed, Error = %d SeDebugPrivilege is not available. " + (String)GetLastError();
                //wprintf( L"OpenProcessToken() failed, Error = %d SeDebugPrivilege is not available.\n", GetLastError());
                WLog(Text);
                return;
        }
        // ----
        if (!LookupPrivilegeValue(NULL, SE_DEBUG_NAME, &sedebugnameValue))
        {
                Text = "LookupPrivilegeValue() failed, Error = %d SeDebugPrivilege is not available. " + (String)GetLastError();
                //wprintf( L"LookupPrivilegeValue() failed, Error = %d SeDebugPrivilege is not available.\n", GetLastError());
                WLog(Text);
                CloseHandle(hToken);
                return;
        }
        // ----
        tkp.PrivilegeCount = 1;
        tkp.Privileges[0].Luid = sedebugnameValue;
        tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
        // ----
         if (!AdjustTokenPrivileges(hToken, FALSE, &tkp, sizeof tkp, NULL, NULL))
         {
                Text = "AdjustTokenPrivileges() failed, Error = %d SeDebugPrivilege is not available. " + (String)GetLastError();
                //wprintf( L"AdjustTokenPrivileges() failed, Error = %d SeDebugPrivilege is not available.\n", GetLastError());
                WLog(Text);
         }
         // ----
         CloseHandle(hToken);
}
А как открываешь pi.hProcess? Может из другого потока (ImpersonateSelf)?

- Я создаю процесс при помощи WinApi функции CreateProcess();]

Ты добавляешь привилегию процессу. Не все потоки процесса наследуют его привилегии . Вот не понял, какие параметры у CreateProcess()? Там же имя образа на диске?

Цитата:
MuForum, ты добавляешь привилегию процессу. Не все потоки процесса наследуют его привилегии . Вот не понял, какие параметры у CreateProcess()? Там же имя образа на диске?
RunFromResurs(LPTSTR ComLine, LPCTSTR ResName, LPCTSTR ResType)
- ComLine: Полный путь к программе вместе с командной строкой.
- ResName: Имя загруженного файла в ресурсах программы.
- ResType: Тип загруженного файла в ресурсах программы.

- Запускаю отдельно файл через CreateProcess, атрибуты процесса по умолчанию(FALSE).
Записан

Я не знаю что такое RunFromResurs. Давай разберемся... Есть exe1 в котором есть exe2. exe1 запускает процесс - какой? Еще один exe1? Вообще что за задача - обход файловых фильтров антивирусов?
схема, не для копипейста, не проверял
консультации и техническая поддержка не предоставляются


Добавлено через 2 минуты
Цитата Сообщение от Dondok Посмотреть сообщение
Avazart, есть одна программа у которого нету исходного кода и я решил воспользоваться возможностями этой программы в своей программе, чтобы не изобретать велосипед заново
Так зачем ее в русурсы прятать, коль и так будет понятно, что программа не ваша, запустите ее при необходимости, да и все. Ну и еще авторов-создателей поблагодарить не забудьте .
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.04.2012, 21:46
Помогаю со студенческими работами здесь

Как засунуть файл в программу?
Ребят, всем привет, подскажите, пожалуйста, как засунуть файл в программу: нужно присвоить кнопке код такой, чтобы при нажатии на кнопку...

Как засунуть программу в трей ?
Народ, очередной ламерский вопрос =) Помогите... Как мне сделать тек, чтобы моя программа при запуске сидела в трее и чтобы при...

Как заставить программу запустить другую программу
Как заставить программу запуститься в спрятанном режиме, чтобы её можно было найти только в Дистептчере задач во вкладке процессы и...

Внедрить программу в другую программу/игру
Написал маленькую прогу для игры которая нажимает пробел каждые пол секунды Сделал её по верх всех окон, она по верх игры но когда я...

Как засунуть exe в мою программу и запустить его
Как запустить exe в программе из ресурсов, не вынимая ее от туда?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru