blob: efa6803aadfa4580acde0c8602d3b4d2fe533124 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
; Äåìîíñòðàöèîííûé ñêðèïò ISWin7 v0.4.2
;
; Ïîääåðæêà Windows Vista áûëà íåêîððåòíà âñëåäñòâèè ÷åãî áûëà óäàëåíà
;
; Ýòî òåñòîâûé ñêðèïò ïîçâîëÿåò ñäåëàòü ïðîçðà÷íûìè êðàÿ èëè âñ¸ îêíî öåëèêîì.
; Ðàáîòàåò â Windows 7, Windows 8
;
; Â Windows XP è Windows Vista îí ïðîïóñêàåò èíèöèàëèçàöèþ
; ÷òî íå ìåøàåò ðàáîòîñïîñîáíîñòè ñåòàïíèêà â ýòèõ îïåðàöèîííûõ ñèñòåìàõ
;
; Ñîçäàòåëü: VoLT
;
; Â äàëüíåéøåì ðàçâèòèè îæèäàåòñÿ ïîëíàÿ ïîääåðæêà âñåõ ñâèñòåëîê è ïåðäåëîê Windows 7
;
; Âûðàæàþ áëàãîäàðíîñòü çà òåñòû êàìðàäó s00p (òðåêåð ñ nnm-club.ru)
; Õî÷ó òàê æå ñêàçàòü ñïàñèáî ãðóïïå R.G. ReCoding (òðåêåð rustorka.com) çà èäåè è õîðîøóþ êîìïàíèþ
[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=.
[Files]
Source: ISWin7.dll; DestDir: {tmp}; Flags: dontcopy
// Handle ðàâåí õýíäëó îêíà WizardForm.Handle.
// Ïàðàìåòðû Left, Top, Right èëè Bottom çàäàþò ðàìêó Ñòåêëà,
// Åñëè îäèí èç ýòèõ ïàðàìåòðîâ ðàâåí -1 òî ñòåêëî äåëàåòñÿ íà âñ¸ îêíî
[Code]
function win7_init(Handle:HWND; Left, Top, Right, Bottom : Integer): Boolean;
external 'win7_init@files:ISWin7.dll stdcall';
procedure win7_free;
external 'win7_free@files:ISWin7.dll stdcall';
procedure InitializeWizard();
begin
// Äëÿ áîëåå êðàñèâîãî îòîáðàæåíèÿ óìåíüøàåì íèæíþþ ãðàíèöó
WizardForm.Bevel.Height := 1;
// Èíèöèàëèçèðóåì áèáëèîòåêó
if win7_init(WizardForm.Handle, 0, 0, 0, 47) then
begin
WizardForm.Caption := 'Âêëþ÷åíî';
end
else
begin
WizardForm.Caption := 'Âûêëþ÷åíî';
end;
end;
procedure DeinitializeSetup();
begin
// Îòêëþ÷àåì áèáëèîòåêó
win7_free;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.ReadyPage.Hide;
end;
|
