@@ -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;