krivetko-man
Member
- Joined
- Nov 22, 2008
- Messages
- 53
- Reaction score
- 62
- Banned
- #1
1) Изучил как делаю в TMS Components Pack
2) Проштудировал: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1334
начал делать обоими способами. И сразу начались проблемы. Сначала никак рес файл нормальный сделать не мог по ходу. ResourceBuilder помог... Решил... Обрадовался...
Теперь есть такая проблема: инфа о загружаемом модуле добавляется только после bild пакета, и перезапуска делфи. Второй раз перезапустить = хрен получишь. (Хотя сама библиотека грузиться, и компоненты на сових местах и все пашет как часы).
Что делать?
2) Проштудировал: http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1334
начал делать обоими способами. И сразу начались проблемы. Сначала никак рес файл нормальный сделать не мог по ходу. ResourceBuilder помог... Решил... Обрадовался...
Теперь есть такая проблема: инфа о загружаемом модуле добавляется только после bild пакета, и перезапуска делфи. Второй раз перезапустить = хрен получишь. (Хотя сама библиотека грузиться, и компоненты на сових местах и все пашет как часы).
Code:
unit rstcpSplashInfo;
{$I rstcpDefs.inc}
interface
Uses Classes,ToolsAPI,Graphics,DesignIntf,rstcpVersions,rstcpResourceString;
{$R rstcplogo.RES}
implementation
procedure RSTCPRegisterWithSplash;
var
bmp:TBitmap;
alicstatus:string;
aisunreg:Boolean;
begin
bmp := TBitmap.Create;
bmp.LoadFromResourceName(HInstance, 'RSTCPLOGO');
{$IFDEF SPLASH}
if RSTCPGetRegisterStatus=True then
begin
alicstatus:=rstcpfullversion;
aisunreg:=False;
end
else
begin
alicstatus:=rstcptrialversion;
aisunreg:=True;
end;
SplashScreenServices.AddPluginBitmap(rstcpname+' for Delphi '+RSTCPGetDelphiVersion+' ( version '+rstcpversion+' )',
bmp.Handle,
aisunreg,
alicstatus,
''
);
{$ENDIF}
bmp.Free;
end;
begin
RSTCPRegisterWithSplash;
end.
Что делать?