🚀 go-pugleaf

Hello,

I had create a DLL (check.dll) for my customers. They include this to their
software project. My DLL shows a form, weather this software products is not
registrated.

In my DLL i show this form via a dynamical function (CheckVersion) by
folliwing code:

TForm1 *form = new TForm1(NULL);
form->ShowModal();
delete form;

On my computer this works fine and the window is on top.

My customer use following code to load my dll and to start the function in
the dll which check weather a function is registered:

this is pcs7 code:

#include "apdefap.h"
void OnClick(char* lpszPictureName, char* lpszObjectName, char*
lpszPropertyName)
{
#pragma code ("user32.DLL");
HWND FindWindow(LPCTSTR lpClassName, LPCTSTR lpWindowName);
BOOL BringWindowToTop(HWND hWnd);
#pragma code();

#pragma code ("check.DLL");
int CheckVersion();
#pragma code();

int val = CheckVersion();

if (val == -1)
{
// nicht registriert
}
else
{
// registriert
#define PIC_1 "Bild_1.pdl"
SSMChangeWorkField(SSMGetScreen(lpszPictureName),PIC_1,TRUE);
}
}

On my customer PC my Code works fine to, but my window of the DLL is not on
top, but it has to.

Now i thought about how to force my form to be on top. So i use

BEGIN_MESSAGE_MAP
   VCL_MESSAGE_HANDLER(WM_KILLFOCUS, TMessage, OnKillFocus)
END_MESSAGE_MAP(TForm)

and

void __fastcall TForm1::OnKillFocus(TMessage& Msg)
{
  Sleep(500);
  SetForegroundWindow(Handle);
  BringWindowToTop(Handle);
}

But when I compile my dll now, i get warning: (translated to english)

W8027 Functions, which includes switch, will not be expand as inline

As is try to use my dll now it does not work.

Does anybody have any idea what to do, that my form is really on top?

Mike