[kotyarko@fb]

Reyesahydo,

Код:

RegWriteStringValue(HKEY_CURRENT_USER, 'Software\AAAAA-AAAAA-AAAAA-AAAAA', '', '');

[Reyesahydo]

Код: RegWriteStringValue(HKEY_CURRENT_USER, 'Software\AAAAA-AAAAA-AAAAA-AAAAA', '', ''); »

А как записать вот сюда ?

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Valve\Half-Life\Settings]
"ValveKey"="AAAAA-AAAAA-AAAAA-AAAAA-AAAAA"

Мне ключ нужно именно передач вот этому параметру
И напишите пожалуйста куда именно нужно это нужно писать

[Raf-9600]

Нашёл вроде бы неплохой код для проверки на наличие определённого обновления Windows https://theroadtodelphi.wordpress.co...i-wmi-and-wua/

Код:

function  ISHotFixID_Installed(const HotFixID : string): Boolean;
var
  updateSession      : OleVariant;
  updateSearcher     : OleVariant;
  updateEntry        : OleVariant;
  updateSearchResult : OleVariant;
  UpdateCollection   : OleVariant;
  oEnum              : IEnumvariant;
  iValue             : LongWord;
begin
 result:=False;
  updateSession:= CreateOleObject('Microsoft.Update.Session');
  updateSearcher    := updateSession.CreateUpdateSearcher;
  //this line improves the performance , the online porperty indicates whether the UpdateSearcher goes online to search for updates. so how we are looking for already installed updates we can set this value to false
  updateSearcher.online:=False;
  updateSearchResult:= updateSearcher.Search(Format('IsInstalled = 1 and Type=%s',[QuotedStr('Software')]));
  UpdateCollection  := updateSearchResult.Updates;
  oEnum         := IUnknown(UpdateCollection._NewEnum) as IEnumVariant;
  while oEnum.Next(1, updateEntry, iValue) = 0 do
  begin
    Result:=Pos(HotFixID,updateEntry.Title)>0;
    updateEntry:=Unassigned;
    if Result then break;
  end;
end;

Однако проблема в том, что он несовместим с Inno. В частности компилятор жалуется на OleVariant и IEnumvariant. Кто-то может это исправить?

[kotyarko@fb]

А как записать вот сюда ? »

Так:

Код:

RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Valve\Half-Life\Settings', 'ValveKey', 'AAAAA-AAAAA-AAAAA-AAAAA-AAAAA');

[Reyesahydo]

Так: Код: RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Valve\Half-Life\Settings', 'ValveKey', 'AAAAA-AAAAA »

Куда его именно нужно писать ?

[saurn]

Использую только официальные версии! »

Код:

procedure _CancelClick ( const Sender: TObject );
begin
    WizardForm.CancelButton.OnClick ( Sender );
end;

======================================================================

Куда его именно нужно писать ? »

Для этой задачи вполне достаточно секции Registry, без оперирования в коде.

Код:

[Registry]
Root: HKCU; Subkey: "Software\Valve\Half-Life\Settings"; ValueType: string; ValueName: "ValveKey"; ValueData: "AAAAA-AAAAA-AAAAA-AAAAA-AAAAA"; Flags: deletevalue;

[Reyesahydo]

Код:

[Registry]
Root: HKCU; Subkey: "Software\Valve\Half-Life\Settings"; ValueType: string; ValueName: "ValveKey"; ValueData: "AAAAA-AAAAA-AAAAA-AAAAA-AAAAA"; Flags: deletevalue;

Код работает не всегда (Через раз)
Можете показать как сделать код через секцию [code] ?

[kotyarko@fb]

Можете показать как сделать код через секцию [code] ? »

Например:

Код:

Procedure CurStepChanged(CurStep: TSetupStep);
begin
 if CurStep = ssPostInstall then
  RegWriteStringValue(HKEY_CURRENT_USER, 'Software\Valve\Half-Life\Settings', 'ValveKey', 'AAAAA-AAAAA-AAAAA-AAAAA-AAAAA');
end;

[Oasahelola]

Мне нужно добавить много EXE-файлов создать для них ярлыки
Вопрос: Правильно ли я делаю ?

Сомневаюсь в правильности скрипта

P.S
Через мастер скриптов можно только один добавить

Скрытый текст

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"

[Setup]
AppId={{BEC44BB3-44D5-412E-B193-EBDAB39F9CDE}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\TEST\EXE1.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\TEST\EXE2.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\TEST\EXE3.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\TEST\EXE4.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\TEST\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE1.exe"
Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE2.exe"
Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE3.exe"
Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE4.exe"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE1"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE2"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE3"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE4"; Tasks: desktopicon

[Dodakaedr]

Oasahelola, почти, пишите разные имена ярлыков

Код:

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\EXE1.exe"
Name: "{group}\{#MyAppName}2"; Filename: "{app}\EXE2.exe"
Name: "{group}\{#MyAppName}3"; Filename: "{app}\EXE3.exe"
Name: "{group}\{#MyAppName}4"; Filename: "{app}\EXE4.exe"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\EXE1"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}2"; Filename: "{app}\EXE2"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}3"; Filename: "{app}\EXE3"; Tasks: desktopicon
Name: "{commondesktop}\{#MyAppName}4"; Filename: "{app}\EXE4"; Tasks: desktopicon