krivetko-man
Турист
- Credits
- 0
1) Изучил как делаю в TMS Components Pack
2) Проштудировал: Как увидеть ссылки? | How to see hidden links?
начал делать обоими способами. И сразу начались проблемы. Сначала никак рес файл нормальный сделать не мог по ходу. ResourceBuilder помог... Решил... Обрадовался...
Теперь есть такая проблема: инфа о загружаемом модуле добавляется только после bild пакета, и перезапуска делфи. Второй раз перезапустить = хрен получишь. (Хотя сама библиотека грузиться, и компоненты на сових местах и все пашет как часы).
Что делать?
2) Проштудировал: Как увидеть ссылки? | How to see hidden links?
начал делать обоими способами. И сразу начались проблемы. Сначала никак рес файл нормальный сделать не мог по ходу. ResourceBuilder помог... Решил... Обрадовался...
Теперь есть такая проблема: инфа о загружаемом модуле добавляется только после bild пакета, и перезапуска делфи. Второй раз перезапустить = хрен получишь. (Хотя сама библиотека грузиться, и компоненты на сових местах и все пашет как часы).
Код:
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.
Что делать?