Artur1990
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
var BackgroundForm: TForm;
function ShowWindow(hWnd, nCmdShow: LongWord): LongWord; external 'ShowWindow@user32.dll stdcall';
procedure BackgroundOnActivate(Sender: TObject); Begin if WizardForm.Visible then WizardForm.Show End;
Procedure InitializeWizard; var errorCode: Integer;
Begin
BackgroundForm:= TForm.Create(nil)
BackgroundForm.BorderStyle:= bsNone;
BackgroundForm.OnActivate:= @BackgroundOnActivate;
ShowWindow(BackgroundForm.Handle, sw_ShowMaximized)
if DirExists(ExpandConstant('{src}\..\Slides')) then
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{src}\..\Slides')) else
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'fold', ExpandConstant('{reg:HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,My Pictures}'))
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'Alpha', '1');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'timer', '2');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'ShowName', '0');
RegWriteStringValue(HKCU, 'Software\Serbis\SBSlideShow', 'efTRUE', '1');
ExtractTemporaryFile('SBSlideShow.scr');
Exec(ExpandConstant('{tmp}\SBSlideShow.scr'), '/P '+ IntToStr(BackgroundForm.Handle),'', sw_Hide, ewNoWait, ErrorCode);
End;
Procedure DeinitializeSetup;
Begin
BackgroundForm.Free
End;
|
Всего записей: 44 | Зарегистр. 17-06-2009 | Отправлено: 23:17 29-06-2009 | Исправлено: Artur1990, 23:23 29-06-2009 |
|
