Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Files]
Source: InnoCallback.dll; DestDir: {tmp}; Flags: dontcopy
[_Code]
var
FileNameLabel: TLabel;
type
TTimerProc=procedure(h:longword; msg:longword; idevent:longword; dwTime:longword);
function WrapTimerProc(callback:TTimerProc; paramcount:integer):longword;
external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: longword): longword;
external 'SetTimer@user32.dll stdcall';
procedure OnTimer(h:longword; msg:longword; idevent:longword; dwTime:longword);
begin
FileNameLabel.Caption:=WizardForm.FileNameLabel.Caption
end;
procedure InitializeWizard();
begin
SetTimer(0,0,0,WrapTimerProc(@OnTimer,4))
FileNameLabel:=TLabel.Create(WizardForm)
FileNameLabel.SetBounds(0,100,417,30)
FileNameLabel.AutoSize:=False
FileNameLabel.WordWrap:=True
FileNameLabel.ShowAccelChar:=False
FileNameLabel.Transparent:=True
FileNameLabel.Parent:=WizardForm.InstallingPage
end;
|
