[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;

[Author]

Posts