[El Sanchez]

Узнаёте SID пользователя »

R.i.m.s.k.y., 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;

[Dodakaedr]

nik1967, спасибо

[Dodakaedr]

Как это исправить?

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

[legik2003]

Помогите пожалуйста с инсталлятором INNO SETUP
Написал инсталлятор, но хотелось бы разбить выбор компонентов через PageControl ну или что в этом духе, так как компонент очень много и все это рябит в глазах, вот к примеру как на скринах которые нарисовал в фотошопе.

[Debugger]

У меня в проекте довольно много компонентов. Но некоторые записи в реестр в секции [Registry] общие для всех компонентов. Нельзя ли както сделать одну общую запись для нескольких компонентов? К сожалению указание в флаге Components нескольких приводит к ошибке при компиляции. Иначе ужасно много одинаковой писанины для каждого компонента получается!

[Johny777]

nik1967, Dodakaedr, непосредственное удаление элемента "О программе" из системного меню программы

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

Код:

const
    MF_BYPOSITION = $400;

function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; external 'GetSystemMenu@user32.dll stdcall';
function DeleteMenu(hMenu: HMENU; uPosition, uFlags: UINT): BOOL; external 'DeleteMenu@user32.dll stdcall';

function DeleteAboutMenu(): BOOL;
var
    hSysMenu: HMENU;
begin
    // получаем хэндл сис. меню
    hSysMenu := GetSystemMenu(WizardForm.Handle, False);

              // удаляем по позиции(индексу) MF_BYPOSITION. На 7-м месте находится разделитель. Удаляем его
    Result := DeleteMenu(hSysMenu, 7, MF_BYPOSITION) and
    
              // после этого на 7-ю позицию встаёт айтем "О программе". Ещё раз удаляем 7-й айтем
              DeleteMenu(hSysMenu, 7, MF_BYPOSITION);
end;

procedure InitializeWizard();
begin
    DeleteAboutMenu();
end;

PS: можно конечно сначала удалить 8-й (это и есть изначально айтем "О программе"), а потом 7-й.
Хотя вообще 7-й не обязательно удадять. Но нафиг нужен разделитель который ничего не отделяет?

Serega, El Sanchez, благодарю за полезную информацию.

[Nordek]

Как это исправить? »

Никак. Реализовать внесение значений в "SYSTEM\ControlSet001\Enum\Root" возможно, но не нужно - от незнания как это работает и для чего: лучше не лезть вообще. По данному вопросу вряд ли кто поможет.

[Shkutu]

указание в флаге Components нескольких приводит к ошибке при компиляции »

Это смотря как указывать.
В этом случае компоненты нужно соединять логическими операциями, в вашем случае скорее "or".

Код:

[Components]
Name: "a"; Description: "comp a"
Name: "b"; Description: "comp b"

[Registry]
Root: "HKLM"; Subkey: ... ; Components a or b

[Dodakaedr]

Никак. Реализовать внесение значений »

Ясно. Спасибо. А unpacker есть который поддерживает 5.5 версию inno setup?

[Dodakaedr]

Вроде пока только до версии 5.5.4 »

Это та что в шапке?