I am trying to force the tray icon to always show with Delphi.

I am trying to force the tray icon to always show with Delphi.
I found that FASTCOPY dose it in c++.
The source is at https://fastcopy.jp/archive/FastCopy351src.zip

Now to the point i am trying to translate the code to pascal.

The file is tmisc.cpp
and in mainwin.cpp line 2885 it uses the function ForceSetTrayIcon

Can any one help ?

from tmisc.cpp

class __declspec(uuid("FB852B2C-6BAD-4605-9551-F15F87830935")) ITrayNotify : public IUnknown {
public:
virtual HRESULT __stdcall RegisterCallback(INotificationCB *) = 0;
virtual HRESULT __stdcall SetPreference(const NOTIFYITEM *) = 0;
virtual HRESULT __stdcall EnableAutoTray(BOOL) = 0;
};

class __declspec(uuid("D133CE13-3537-48BA-93A7-AFCD5D2053B4")) ITrayNotify8 : public IUnknown {
public:
virtual HRESULT __stdcall RegisterCallback(INotificationCB *, u_long *) = 0;
virtual HRESULT __stdcall UnregisterCallback(u_long) = 0;
virtual HRESULT __stdcall SetPreference(const NOTIFYITEM *) = 0;
virtual HRESULT __stdcall EnableAutoTray(BOOL) = 0;
virtual HRESULT __stdcall DoAction(BOOL) = 0;
};

const CLSID TrayNotifyId = {
0x25DEAD04, 0x1EAC, 0x4911, {0x9E, 0x3A, 0xAD, 0x0A, 0x4A, 0xB5, 0x60, 0xFD}
};


BOOL ForceSetTrayIcon(HWND hWnd, UINT id, DWORD pref)
{
BOOL ret = FALSE;
NOTIFYITEM ni = { 0, 0, 0, hWnd, pref, id, 0 };

if (IsWin8()) {
ITrayNotify8 *tn = NULL;

CoCreateInstance(TrayNotifyId, NULL, CLSCTX_LOCAL_SERVER, __uuidof(ITrayNotify8),
(void **)&tn);
if (tn) {
if (SUCCEEDED(tn->SetPreference(&ni))) {
ret = TRUE;
}
tn->Release();
}
} else {
ITrayNotify *tn = NULL;

CoCreateInstance(TrayNotifyId, NULL, CLSCTX_LOCAL_SERVER, __uuidof(ITrayNotify),
(void **)&tn);
if (tn) {
if (SUCCEEDED(tn->SetPreference(&ni))) {
ret = TRUE;
}
tn->Release();
}
}

return ret;
}
from mainwin.cpp
#define FASTCOPY_NIM_ID 100

ForceSetTrayIcon(hWnd, FASTCOPY_NIM_ID);

https://fastcopy.jp/archive/FastCopy351src.zip