Subversion Repositories spacemission

Rev

Blame | Last modification | View Log | RSS feed

  1. unit GamSplash;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   jpeg, ExtCtrls, StdCtrls;
  8.  
  9. type
  10.   TSplashForm = class(TForm)
  11.     SplashImage: TImage;
  12.     procedure FormCreate(Sender: TObject);
  13.   end;
  14.  
  15. var
  16.   SplashForm: TSplashForm;
  17.  
  18. implementation
  19.  
  20. {$R *.DFM}
  21.  
  22. procedure TSplashForm.FormCreate(Sender: TObject);
  23. var
  24.   FDirectory: string;
  25. begin
  26.   if copy(extractfiledir(application.ExeName), length(extractfiledir(application.ExeName))-1, 2) = ':\' then FDirectory := ''
  27.     else FDirectory := extractfiledir(application.ExeName)+'\';
  28.   SplashImage.Picture.loadfromfile(FDirectory+'Bilder/SplSplash.jpg');
  29. end;
  30.  
  31. end.
  32.  
  33.