|
@@ -4,7 +4,7 @@ interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
- Dialogs, ExtCtrls, jpeg;
|
|
|
+ Dialogs, ExtCtrls, jpeg, UtilMethods;
|
|
|
|
|
|
type
|
|
|
TWelcomeForm = class(TForm)
|
|
@@ -37,6 +37,8 @@ var
|
|
|
iFirstTime: Cardinal;
|
|
|
begin
|
|
|
WelcomeForm := TWelcomeForm.Create(nil);
|
|
|
+ if FileExists(GetAppFilePath + 'Welcome.jpg') then
|
|
|
+ WelcomeForm.imgWelcome.Picture.LoadFromFile(GetAppFilePath + 'Welcome.jpg');
|
|
|
Result := WelcomeForm.Handle;
|
|
|
WelcomeForm.Show;
|
|
|
iFirstTime := GetTickCount;
|