[Dodakaedr]

saneksanek, Почему не убивает процесс?

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program ver.1.5
DefaultDirName={pf}\My Program

[Files]
Source: "compiler:Dll Pack\ISTask.dll"; DestDir: "{app}"

[ Code]
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';
function KillTask(ExeFileName: string): Integer;
external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  if RunTask('USBSRService.exe', False) then
    begin
      // прячем форму
      UninstallProgressForm.Visible:= False;
       if MsgBox('Программа USBSRService.exe используется. Закрыть и продолжить удаление?', mbConfirmation, MB_YESNO) = IDYES then
        begin
          KillTask('USBSRService.exe');
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          // показываем форму
          UninstallProgressForm.Visible:= True;
        end
       else
        begin
          MsgBox('Завершите работу file.exe, затем снова запустите программу удаления.', mbInformation, MB_OK);
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          Abort;
        end;
    end;
end;

И никаких сообщений не выводится, хоть процесс запущен

[saneksanek]

Dodakaedr, Код рабочий,в чем-то у вас косяк.Может компилировали без данного кода?
Если не коммерческая тайна,можете выложить скрипт с файлом я посмотрю

[Irenis]

При создании установщика через мастера Inno Setup в окне "файлы приложения" нужно выбрать главный исполняемый файл приложения. При этом ярлык, который появится на рабочем столе после установки игры, автоматически берется из этого запускного файла. Как поставить другой ярлык? То есть что нужно прописать в скрипте, чтобы самой задать иконку ярлыка, которая должна появится на рабочем столе после установки игры, при этом не меняя главный исполняемый файл? Спасибо))

[TryRooM]

Irenis,
[Icons]
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}" ; IconFileName: "{app}\твоя иконка.ico.";

[Dodakaedr]

Если не коммерческая тайна,можете выложить скрипт с файлом я посмотрю »

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: "compiler:Dll Pack\ISTask.dll"; DestDir: "{app}"; Flags: ignoreversion

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

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

function KillTaskA(ExeFileName: string): Integer;
external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

function RunTaskA(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';


function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\ISTask.dll')) then ExtractTemporaryFile('ISTask.dll');
If RunTask('USBSRService.exe', False) then  // Указываем программу, которая должна припятствовать установке.
begin
if MsgBox('Программа установки обнаружила, что программа Scanner запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbInformation, mb_YesNo) = idYes then
begin
  KillTask('USBSRService.exe');  // Указываем программу, которая должна будет закрыться
  Result := True;
  end else
  Exit;
  end;
  Result := True;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
    begin
      UnloadDLL(ExpandConstant('{app}\ISTask.dll'));
    end;
end;

function InitializeUninstall(): Boolean;
begin
If RunTaskA('USBSRService.exe', false) then // Указываем программу, которая должна припятствовать удалению.
begin
if MsgBox('Программа удаления обнаружила, что программа Scanner запущена в данный момент.'#13#13'Закрыть программу и продолжить удаление?', mbInformation, mb_YesNo) = idYes then
begin
  KillTaskA('USBSRService.exe');  // Указываем программу, которая должна будет закрыться
  Result := True;
  end else
  Exit;
  end;
  Result := True;
end;

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

[saneksanek]

Этого процесса изначально нет,потому и нет диалоговых окон.Закройте программу и запустите снова,сама программа весит на USBSafelyRemove.exe

[saurn]

Dodakaedr, он не будет работать на юникоде. Тут для юникодовой. Или пример от El Sanchez в шапке.

[habib2302]

Всем привет. Дайте пожалуйста скрипт на создание txt файов

[Irenis]

Скажите пожалуйста, а как делать установщики, в которых был бы сам setup, а под ним остальные файлы в формате .bin. Сейчас я просто создаю установщик, создаю arc архив, и при установке распаковывается этот архив и игра устанавливается. А как сделать, чтобы вместо arc было bin? Тоже сначала архивировать FreeArc-ом, а потом как то в bin переделывать или там вообще по другому все делается? Может кто объяснит или подскажет, где об этом почитать можно

[vint56]

Irenis, просто переименуй расширения файла с arc на bin можно сразу во фриарке там есть выходной архив там есть расширения arc можеш поставить любое только в скрипте на распаковку укажи названия архива и расширения файла
Пример
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Data-A.Irenis), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;