[Iska]

Скачай и установи http://pascalabc.net »

Именно этот — не рекомендую. Лучше зараз брать чистый FreePascal и книжку.

[Beavimo]

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

code

function InitializeSetup(): Boolean;
var
FileName: String;
SHA1: String;
begin
FileName := ExpandConstant('{reg:HKLM\SOFTWARE\Code,PATH_APPLICATION}') +'\Test.exe';
Result := FileExists(FileName);
SHA1 := GetSHA1OfFile(FileName);
if SHA1 = 'ad030d5606a2dcfa75ebc425a70730f23e7f07ab' then // буквы должны быть маленькими
begin
Result := MsgBox('Программа уже Установлена' #13#13 'Продолжить Установить?', mbInformation, MB_YESNO) = IDYES;
end
else
begin
end
end;

[iglezz]

Beavimo, Комментарий здесь.

[Bio_Hazard]

Здравствуйте!
Помогите сделать проверку, запущенны ли процессы XXX.exe, YYY.exe, ZZZ.exe. Если ни один процесс не запущен, продолжить установку. Если запущен хотя-бы один процесс, вывести окно с сообщением, какие процессы запущены и 2мя кнопками: остановить установку и закрыть процессы и продолжить установку.
Спасибо!

[Gnom_aka_Lexander]

Bio_Hazard, Скрипты Inno Setup. Помощь и советы - шапка - ссылки на примеры скриптов - в самом низу пара вариантов.

[Bio_Hazard]

Gnom_aka_Lexander, там скрипты по отдельности, я их не смогу соеденить

[Bio_Hazard]

У меня не работает этот код:

Код:

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

[code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';

//**************************************************//
function InitializeSetup(): Boolean;
begin
  If RunTask('winamp.exe', false) then
    begin
      if MsgBox('Программа Winamp используется. Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then
        begin
          KillTask('winamp.exe');
          Result:= True;
        end else
          Exit;
    end;
Result:=True;
end;

Просто проходит установка без запросов и ничего не закрывает

[habib2302]

Bio_Hazard, Данный код не работал и не будет работать. Используйте метод

Код:

[code]

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
begin
  Exec(ExpandConstant('taskkill'), ' /f /im winamp.exe', '', SW_HIDE, ewWaitUntilTerminated, RC);
end;
end;

[Bio_Hazard]

habib2302, выбивает ошибку Unknown Identifier 'RC'

[Gnom_aka_Lexander]

Bio_Hazard, объявить забыл.

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  rc:Integer;
begin...