Вывод информации о загружаемой библиотеке в SplashScrenn Delphi

krivetko-man

Member
Joined
Nov 22, 2008
Messages
53
Reaction score
62
1) Изучил как делаю в TMS Components Pack
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.

Что делать?
 

krivetko-man

Member
Joined
Nov 22, 2008
Messages
53
Reaction score
62
  • Thread starter
  • Banned
  • #2
Ну что делато то, а? Я с ума уже сходить начинаю!!!
Help!!!!!! SoS!!!!!!
 
Top