[MogilShik2007]

Привет, появилось пару вопросов:

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
if CurUninstallStep=usUninstall then 
begin 
if DirExists(ExpandConstant('{pf}\PCGAME\Игра\Saves')) then 
begin 
if MsgBox('Удалить сохранения игры?',mbconfirmation, mb_yesno) = IDYES then 
begin 
DelTree(ExpandConstant('{pf}\PCGAME\Игра\Saves'), True, True, True); 
MsgBox('Сохранения игры успешно удалены.', mbinformation, mb_ok); 
end; 
end; 
end; 
end;

[UninstallDelete]
Type: dirifempty; Name: "{pf}\PCGAME"
Type: dirifempty; Name: "{pf}\PCGAME\Игра"
Type: files; Name: "{pf}\PCGAME\Игра\log.txt"
Type: files; Name: "{pf}\PCGAME\Игра\multiplayer_log.txt"
Type: files; Name: "{pf}\PCGAME\Игра\stronghold.cfg"

1. Как сделать, чтобы выделенное красным тоже удалялось?
2. Если изменить папку назначения то вся эта фигня бессмысленна, как можно это решить?)))

[R.i.m.s.k.y.]

MogilShik2007, помоему у тебя кнопка ) западает
2. {app}\PCGAME
1.

Код:

procedure RD(Dir:string);
begin
  Exec('cmd.exe', ' /c rd /S /Q  ' + '"'+Dir+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure RF(file:string);
begin
  Exec('cmd.exe', ' /c del /F /Q  ' + '"'+file+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usDone then begin
  RD(ExpandConstant('{app}'))
end;
end;

[MogilShik2007]

Не, неканает {app}, пропускает запрос на удаление сохранений...

[Gnom_aka_Lexander]

MogilShik2007, смотри. Папка {app}(папка, в которую была установлена программа) это то, что удаляется вообще по всякому. соответственно - проверяем - нету, запрос пропускается - чего не понятно?

[MogilShik2007]

Разобрался)))

[MogilShik2007]

Такой вопрос, на странице приветствия когда пишется мол будет установлена такая-то программа или игра, реально как-то название этой проги или игры своим цветом сделать?

[Gnom_aka_Lexander]

MogilShik2007, Можно.

[MogilShik2007]

Елки, посмотрел этот ReDrawText, там сам черт ногу сломит(((

[MogilShik2007]

Усе, победил таки с помощью ReDrawText, оказалась отличная штука)))

Подскажите какие цвета в формате color=$FF0000 поддерживает IS, а то не все хавает.

Ммм, ну и хотелось бы скрипт для полного счастья, чтобы использовать скин при деинсталляции, такой же как и при установке, а то пробовал:

Скрипт

[Setup]
AppName=My prog
AppVerName=My prog
DefaultDirName={pf}\My prog

[Files]
Source: ISSkin.dll; DestDir: {app}; Flags: ignoreversion
Source: Tiger.cjstyles; DestDir: {app}; Flags: ignoreversion

[code]
procedure LoadSkin(lpszPath: string; lpszIniFileName: string );
external 'LoadSkin@files:isskin.dll stdcall delayload setuponly';

procedure LoadSkinUninst(lpszPath: string; lpszIniFileName: string );
external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly';

procedure UnloadSkinUninst();
external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';

function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external 'ShowWindow@user32.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Tiger.cjstyles');
LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
Result := True;
end;

function InitializeUninstall(): Boolean;
begin
FileCopy(ExpandConstant('{app}\isskin.dll'), ExpandConstant('{tmp}\isskin.dll'), True);
FileCopy(ExpandConstant('{app}\Tiger.cjstyles'), ExpandConstant('{tmp}\Tiger.cjstyles'), True);
LoadSkinUninst(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
Result := True;
end;

procedure DeinitializeUninstall();
begin
UnloadSkinUninst();
end;

Устанавливаться то со скином устанавливается, а удаляться не хочет выдает ошибку(((

[Yury_Prizrak]

Всем привет. Такой вопрос - как сделать чекбокс на последней странице с надписью "Запустить сервис?" и, если он нажат выполнить функцию

читать дальше »

Код:

//StartService.
procedure StartService();
var
	ResultCode: Integer;
	ResultString: String;
begin
	//Проверка инстал или апдейт
	if not Installed then
	begin
		ResultString := ExpandConstant('start "' + IdentificationServiceEdit.Text + '"');
	end
	else
	begin
		ResultString := ExpandConstant('start "' + IdentificationService + '"');
	end;

	Exec('net', ResultString, '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;