Удаление триальных сообщений компонент.

[worldmen]

Использую триальный компонент FiBPlus. при запуске экзешника показывает маленькое окошко с просбой зарегистрироваться.
Я нашел файлик Как увидеть ссылки? | How to see hidden links?, который недает выскакивать этому сообщению.
Но если на форму бросить компонент sSkinManager ( AlphaControls Как увидеть ссылки? | How to see hidden links?) - бесплатный для СНГ, то рекламное окно окно опять появляется.

 

[AlekVolsk]

меня спасает вот это:

unit antitrial;

interface

implementation

uses windows;

const
WndClassName = 'TAppBuilder';

var
HWindow: HWnd;
WndClass: TWndClass;

initialization
FillChar(WndClass, SizeOf(TWndClass), #0);
with WndClass do begin
style := 0;
lpFnWndProc := @DefWindowProc;
cbClsExtra := 0;
cbWndExtra := 0;
hIcon := LoadIcon(0, idi_Application);
hCursor := LoadCursor(0, idc_Arrow);
hbrBackground := GetStockObject(white_Brush);
lpszMenuName := '';
lpszClassName := WndClassName;
end;
WndClass.hInstance := HInstance;
if RegisterClass(WndClass) = 0 then halt(255);
HWindow := CreateWindowEx(0, WndClassName, '', ws_OverlappedWindow, 0, 0, 0, 0, 0, 0, Hinstance, nil);

finalization
if HWindow > 0 then begin
DestroyWindow(HWindow);
UnRegisterClass(WndClassName, hinstance);
end;

end.

 

[worldmen]

создал проект только с FiBPlus 7.15.
почему-то не выходит, все равно выводит рекламное сообщение, а при версии FiBPlus 6.45 убирало рекламу.

 

[AlekVolsk]

Со SSkinManager не работал, не знаю. если в uses .dpr добавить antitrial.pas сразу посдле Forms, перед всеми формами, то все ништяк

 

[worldmen]

Действительно работает !!! Спасибо.