[Support]

Hello!

Can you show a code please?

I will think how to add a compatibility.

[TomGer]

'Support' wrote:

Hello!

Can you show a code please?

I will think how to add a compatibility.

Yes sure, this is the way i add the Items. I used that in many of my Tools.

Quote:

Code:

// Add a Menu Item to the System Menu
hMenu := GetSystemMenu(Handle, False);
if hMenu <> 0 then
begin
if not InsertMenu(hMenu, 6, MF_BYPOSITION, $F200, 'About the Program…') then
ShowMessage(SysErrorMessage(GetLastError));
if not InsertMenu(hMenu, 7, MF_BYPOSITION or MF_Separator, $00, '') then
ShowMessage(SysErrorMessage(GetLastError));
DrawMenuBar(hMenu);
end
else
begin
………..
end;

[Support]

Thank you, I'll research it soon 🙂

[Support]

Hello again!

Try add this line after your code : sSkinProvider1.SystemMenu.Generate;

The problem will not exist with latest versions of the package.

[Author]

Posts