innonewbie
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
function InitializeSetup: boolean;
var
LogoForm: TForm;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
LogoForm:= TForm.Create(nil)
LogoForm.SetBounds(ScaleX(0),ScaleY(0), ScaleX(256), ScaleY(256));
LogoForm.Position:=poScreenCenter;
CreateFormFromImage(LogoForm.Handle,ExpandConstant('{tmp}\splash.png'))
LogoForm.Show
Sleep(3000);
LogoForm.Free;
LogoForm.Close;
Result:=True;
end;
procedure DeinitializeSetup;
begin
gdipShutDown;
end; |
Всего записей: 168 | Зарегистр. 30-12-2010 | Отправлено: 13:45 22-06-2018 | Исправлено: innonewbie, 17:45 22-06-2018 |
|
