YURSHAT
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
[Files]
Source: D:\Программы\Inno Setup 5.2.2\Новая папка (4)\DLL\InnoCallback.dll; Flags: dontcopy
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
[Code]
type
TimerProc = procedure(Sender: TObject);
function CallbackAddr(Callback: TimerProc; ParamCount: Integer): LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
var
lbl1: TLabel;
procedure Timer2(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;
procedure InitializeWizard();
begin
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= 20;
Top:= 325;
Width:= 200;
Height:= 20;
AutoSize:= False;
Caption:= 'Вот, что можно сделать средствами Inno Setup... ';
Font.Color:= clWindowText;
Font.Height:= -16;
Font.Name:= 'MS Sans Serif';
Font.Style:= [];
ParentFont:= False;
end;
SetTimer(WizardForm.Handle, 1, 100 {задаём интервал}, CallbackAddr(@Timer2, 0));
end; |
Всего записей: 855 | Зарегистр. 07-11-2009 | Отправлено: 12:36 09-05-2010 | Исправлено: YURSHAT, 13:38 09-05-2010 |
|
