Проблема Создайте DLL, совместимую с Inno Setup

[MCV]

Привет друзья!... Может кто-нибудь объяснить, как создать DLL C++ в Visual Studio 2010 - Embarcadero RAD Studio 2010, совместимом с inno setup

English Version
​

Hi friend Can anyone explain how to create a C ++ DLL in Visual Studio 2010 or Embarcadero RAD Studio 2010, compatible with inno setup?

 

[SotM]

Этот текст на каком языке написан?!

 

[MCV]

Этот текст на каком языке написан?!

Товарищ уже изменил описание проблемы

English Version ​

Comrade has already changed the description of the problem


Надеюсь, пожалуйста, помогите ..
Надеюсь, пожалуйста, помогите ..

 

[Krinkels]

Держи пример. Писал на VS 2012

 

[MCV]

Держи пример. Писал на VS 2012

#pragma comment(linker, "/ENTRY:DllMain")

Какую функцию он выполняет?

English Version ​

What function does it fulfill?

 

[Krinkels]

Какую функцию он выполняет?

https://msdn.microsoft.com/en-us/library/f9t8842e.aspx

 

[MCV]

https://msdn.microsoft.com/en-us/library/f9t8842e.aspx

#pragma comment(linker, "/ENTRY:DllMain")

int __stdcall DllMain(HMODULE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
    return 1;
};

Правильно ли это?

English Version
​

It is right?

 

[Krinkels]

По сути #pragma comment(linker, "/ENTRYllMain") не обязательная функция, я уж не помню зачем я её вставил, а может просто забыл удалить

 

[MCV]

Я напишу DLL, и я пошлю свой прогресс

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

 

[MCV]

И вот опять проблема ...

Полученное значение - это Application HWND

В ПК, в котором он скомпилирован, отлично работает

Кто-нибудь знает, как решить эту проблему?

 

[Krinkels]

Скрины нормально прикрепи

 

[MCV]

И вот опять проблема ...

Полученное значение - это Application HWND

В ПК, в котором он скомпилирован, отлично работает

Кто-нибудь знает, как решить эту проблему?

 

[MCV]

Скрины нормально прикрепи

Я снова загрузил изображения

 

[Krinkels]

Скинь скрипт и либу

 

[MCV]

Скинь скрипт и либу

Dll Code

Header.h

#pragma once
#include <Windows.h>

DllMain.cpp

#include "Header.h"
HWND AppHandle = 0;

BOOL __stdcall EnumProc(HWND hWnd, LPARAM lParam)
{
    DWORD pid;
    WCHAR cl[14];
    GetWindowThreadProcessId(hWnd, &pid);
    GetClassNameW(hWnd, cl, 13);

    if (pid == GetCurrentProcessId())
    {
        if (wcsstr(cl, L"TApplication"))
            AppHandle = hWnd;
    };

    return true;
};

void Dll_Start(void)
{
    EnumWindows(EnumProc, 0);
};

void Dll_Stop(void)
{
};

BOOL __stdcall DllMain(HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
        Dll_Start();
        break;

    case DLL_PROCESS_DETACH:
        Dll_Stop();
        break;
    };

    return TRUE;
};

Source.cpp

#include "Header.h"
extern HWND AppHandle;

HWND __stdcall GetAppHandle(void)
{
    return AppHandle;
};

Source.def

LIBRARY
EXPORTS
    GetAppHandle

Inno Setup Script

[Setup]
AppName=Test
AppVersion=1.5
DefaultDirName=.

[Files]
Source: IsFunc.dll; DestDir: {tmp}; Flags: dontcopy;

[Code]
function GetAppHandle(): Longint;
external 'GetAppHandle@files:IsFunc.dll stdcall';

function InitializeSetup(): Boolean;
begin
  MsgBox(IntToStr(GetAppHandle()), mbInformation, MB_OK);
end;

Где проблема?

 

[Krinkels]

Странно, у меня тоже нихрена не работает

 

[MCV]

Странно, у меня тоже нихрена не работает

Любая идея, в чем проблема?

 

[Krinkels]

Хе, у меня заработало

В настройках релиз версии ставишь такое:

и должно все работать. По крайней мере у меня все нормально

 

[MCV]

Хе, у меня заработало

В настройках релиз версии ставишь такое:
Посмотреть вложение 3973
и должно все работать. По крайней мере у меня все нормально

Большое вам спасибо.
проблема, похоже, решена
но попробуйте этот файл, чтобы узнать.