/GamSplash.pas |
---|
9,7 → 9,6 |
type |
TSplashForm = class(TForm) |
SplashImage: TImage; |
procedure FormCreate(Sender: TObject); |
end; |
var |
19,14 → 18,5 |
{$R *.DFM} |
procedure TSplashForm.FormCreate(Sender: TObject); |
var |
FDirectory: string; |
begin |
if copy(extractfiledir(application.ExeName), length(extractfiledir(application.ExeName))-1, 2) = ':\' then FDirectory := '' |
else FDirectory := extractfiledir(application.ExeName)+'\'; |
SplashImage.Picture.loadfromfile(FDirectory+'Bilder/SplSplash.jpg'); |
end; |
end. |