Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
vint56, Я так маску делаю.Shift85, инструмент прямоугольник со скругленными углами
var
img: LongInt;
function InitializeSetup:boolean;
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');
Result:=True;
end;
procedure InitializeWizard;
var
i:integer;
begin
with WizardForm do begin
Bevel.Hide;
InnerNotebook.Hide;
OuterNotebook.Hide;
ClientWidth:=500;
ClientHeight:=550;
Position:=poScreenCenter;
NextButton.Width:=0;
CancelButton.Top:=515;
end;
CreateFormFromImage(WizardForm.Handle,ExpandConstant('{tmp}\frame.png'));
end;
procedure DeinitializeSetup;
begin
gdipShutdown;
end;