Код: Выделить всё
start /wait yusetup7p.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-
) перетаскивания формы за любую область!Код: Выделить всё
function ReleaseCapture: Longint; external 'ReleaseCapture@user32.dll stdcall';
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0);
end;Код: Выделить всё
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
[code]
const
WM_SYSCOMMAND = $0112;
WM_MOUSEMOVE = $0200;
VK_LBUTTON = 1;
SC_DRAGMOVE = $F012;
type
SHORT = Longint;
function GetKeyState(nVirtKey: Integer): SHORT; external 'GetKeyState@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';
procedure AppOnMSG(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_MOUSEMOVE then if GetKeyState(VK_LBUTTON) > 0 then
begin
ReleaseCapture;
SendMessage(WizardForm.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
Handled := False;
end;
end;
procedure InitializeWizard();
begin
Application.OnMessage := @AppOnMSG;
end;
Код: Выделить всё
[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
[ code]
const
WM_SYSCOMMAND = $0112;
WM_MOUSEMOVE = $0200;
VK_LBUTTON = 1;
SC_DRAGMOVE = $F012;
type
SHORT = Longint;
function GetKeyState(nVirtKey: Integer): SHORT; external 'GetKeyState@user32.dll stdcall';
function ReleaseCapture: BOOL; external 'ReleaseCapture@user32.dll stdcall';
function SetCapture(hWnd: HWND): HWND; external 'SetCapture@user32.dll stdcall';
procedure AppOnMSG(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message = WM_MOUSEMOVE then if GetKeyState(VK_LBUTTON) > 0 then
begin
ReleaseCapture
SendMessage(Msg.hwnd, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
Handled := False;
end;
end;
procedure InitializeWizard();
begin
Application.OnMessage := @AppOnMSG;
end;Код: Выделить всё
procedure ShowRandomPics;
begin
Pic := Pic+1;
if Pic = SlidesNumber then Pic := 0;
SplashImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Image_' + IntToStr(Pic+1) + '.bmp'));
end;Код: Выделить всё
function NextButtonClick(CurPage: Integer): Boolean;
var
sz:Integer;
s:string;
begin
Result:=True;
If CurPage=6 then
//Проверка присутствия определенных файлов в папке с установленной программой на странице выбора папки назначения
begin
If (FileSearch('Main.exe', ExpandConstant('{app}'))='')
or (FileSearch('Comp.dll', ExpandConstant('{app}')+'\data')='')
then
begin
s:='Извините, в директории '+ExpandConstant('{app}')+'' #13 'не обнаружены файлы, подтверждающие подлинность программы.' #13#13 'Пожалуйста, выберите правильный путь для установки обновления.';
MsgBox(s, mbError, mb_Ok);
Result:= False
end
else
//И проверка размера оригинальных файлов
begin
If FileSize(ExpandConstant('{app}')+'\Main.exe', sz)
then
begin
If sz270336 //Проверяемый размер в байтах
then
begin
s:='Размер установленого компонента Main.exe не соответствует.' #13#13 'Для установки обновления требуются оригинальные файлы.'; MsgBox(s, mbCriticalError, mb_Ok);
Result:= False
end else
begin
If FileSize(ExpandConstant('{app}')+'\data\Comp.dll', sz)
then
begin
If sz3688328
then
begin
s:='Размер установленого компонента Comp.dll не соответствует.' #13#13 ' Для установки обновления требуются оригинальные файлы.'; MsgBox(s, mbCriticalError, mb_Ok);
Result:= False
end;
end;
end;
end;
end;
end;
end;Код: Выделить всё
itd_addfile('http://www.sherlocksoftware.org/petz/files/dogz5.zip',expandconstant('{tmp}\dogz5.zip'));