[Ivan_009]

интересует как вывести только кнопку "закрыть"? »

Dodakaedr, Пример:

Код:

function GetClassLong(Wnd: HWnd; Index: Integer): Longint; external 'GetClassLongA@user32.dll stdcall';
function SetClassLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetClassLongA@user32.dll stdcall';

procedure Close;
begin
  SetClassLong(Wizardform.Handle, -26, GetClassLong(Wizardform.Handle, -26) or $200);
end;

procedure InitializeWizard;
begin
  Close;
  WizardForm.Position:= poScreenCenter;
end;

[Dodakaedr]

SID или имя залогиненного пользователя можете узнать так:

Код:

#define A = (Defined UNICODE) ? "W" : "A"
const
    WTS_CURRENT_SERVER_HANDLE = 0;
    WTS_CURRENT_SESSION = (-1);
    WTSUserName = 5;

function WTSQuerySessionInformation(hServer: THandle; SessionId, WTSInfoClass: DWORD; var ppBuffer: Longint; var pBytesReturned: DWORD): BOOL; external 'WTSQuerySessionInformation{#A}@wtsapi32.dll stdcall';
procedure WTSFreeMemory(pMemory: Longint); external 'WTSFreeMemory@wtsapi32.dll stdcall';

///////////////////////////////////////////////////////
function GetLoggedOnUser(const IsSID: Boolean): String;
var
    i: Integer;
    aNames: TArrayOfString;
    dwLength: DWORD;
    lpBuffer: Longint;
begin
    if not RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList', aNames) then Exit;
    try
        if not WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSUserName, lpBuffer, dwLength) then Exit;
        Result := CastIntegerToString(lpBuffer);
        if IsSID then for i := 0 to GetArrayLength(aNames)-1 do if Pos(Lowercase(Result), LowerCase(ExpandConstant(Format('{reg:HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%s,ProfileImagePath|}', [aNames[i]])))) > 0 then
        begin
            Result := aNames[i];
            Break;
        end;
    finally
        WTSFreeMemory(lpBuffer);
    end;
end;

/////////////////////////////
procedure InitializeWizard();
begin
    MsgBox(GetLoggedOnUser(False), mbInformation, MB_OK);
    MsgBox(GetLoggedOnUser(True), mbInformation, MB_OK);
end;

Как с помощью этого кода занести ключ регистрации в HKEY_USERS\S-1-5-21-2866158627-181887668-3254620381-500\Software\TotalImageConverter...????

Код:

Root: HKU; SubKey: S-1-5-21-2866158627-181887668-3254620381-500\Software\TotalImageConverter; ValueType: string; ValueName: Key; ValueData: 0r/1GkAO/GMNgF5gip+qjw0OmwHwWCAw73h0I2eO/k6wRVs8HEWGdKK2BOVGxJvFmY3aD6pFMBveZb87Jht+hNWdqXcyekWPDvm3RstdisI6BSJy0UW8wtKQa217TKPbReCRXL38Z5YD9gyu0B68h2dV9yPzo; Flags: uninsdeletevalue uninsdeletekeyifempty

Где "S-1-5-21-2866158627-181887668-3254620381-500" SID пользователя. Или подскажите другие способы решения этой задачи.....

Пример: »

Не работает, наверное из-за того что использую скин (XPOSX7.cjstyles). Как исправить?

[Gnom_aka_Lexander]

как вывести только кнопку "закрыть"? »

так:

Код:

procedure InitializeWizard();
begin
  WizardForm.BorderIcons := [biSystemMenu];
end;

или так:

Код:

procedure InitializeWizard();
begin
  WizardForm.BorderStyle := bsDialog;
end;

[Dodakaedr]

Gnom_aka_Lexander, и эти способы не выводят кнопку.

[Gnom_aka_Lexander]

Dodakaedr, если ты удаляешь все кнопки, то вывести не выйдет. нужно не вместе, а вместо.

[Dodakaedr]

Код: procedure InitializeWizard(); begin WizardForm.BorderStyle := bsDialog; end; »

Этот вариант работает если не использовать скин, а со скином как сделать?

[Gnom_aka_Lexander]

Dodakaedr, скрипт свой с файлами залей куда-нибудь. должно и со скином все работать.

[Dodakaedr]

скрипт свой с файлами залей куда-нибудь »

http://rghost.ru/53703721

[Gnom_aka_Lexander]

Dodakaedr, у тебя в скрипте:

Код:

  with WizardForm do
  begin
    BorderIcons := [biMinimize];
    Caption := '{#MyAppName} {#MyAppVersion}';
  end;

biMinimize срабатывет только вместе с biMaximize, и как я уже писал - нужно не вместе, а вместо. В твоем случае, там должно быть не biMinimize а biSystemMenu.

[Dodakaedr]

biMinimize срабатывет только вместе с biMaximize, и как я уже писал - нужно не вместе, а вместо. В твоем случае, там должно быть не biMinimize а biSystemMenu. »

Спасибо, но это не то что хотел, при использовании biSystemMenu появляется полное системное меню, а мне нужно только кнопка закрыть, как оно срабатывает без скина.