[Serega]

Не работает на седьмой винде »

Вот код... проверил на W7, Vista под рукой нет, поэтому добавил условие проверки, что не Vista:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Code]
function GetLogonUserProfile: string;
{ функция вернёт полный путь до папки пользователя, вошедшего в систему тестировалась на XP и W7 }
var
  Version: TWindowsVersion;
  RootKey: Integer;
  SubKeyName: string;
  ValueName: string;
  LogonUser: string;
  ActiveUser: string;
begin
  try
    Result := '';
    GetWindowsVersionEx(Version);
    if Version.NTPlatform then
      begin
        case Version.Major of
          5:  begin  // XP
                case IsWin64 of
                  True : RootKey := HKEY_CURRENT_USER_64;
                  False: RootKey := HKEY_CURRENT_USER;
                end;
                RootKey := HKEY_CURRENT_USER;
                SubKeyName := 'Software\Microsoft\Windows\CurrentVersion\Explorer';
                ValueName := 'Logon User Name';
              end;
          6: // W7 и Vista
            if Version.Minor = 1 then // здесь проверяем, что не Vista, т.к. на Vista я не тестировал и не знаю результата...
              begin
                case IsWin64 of
                  True : RootKey := HKEY_LOCAL_MACHINE_64;
                  False: RootKey := HKEY_LOCAL_MACHINE;
                end;
                SubKeyName := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI';
                ValueName := 'LastLoggedOnUser';
              end;
        end;
        if RegQueryStringValue(RootKey, SubKeyName, ValueName, LogonUser) then
          begin
            while (LogonUser <> '') and ((LogonUser[1] = '.') or (LogonUser[1] = '\')) do
              Delete(LogonUser, 1, 1);
            ActiveUser := ExpandConstant('{%USERNAME}');
            Result := ExpandConstant('{%USERPROFILE}');
            if (Result <> '') and (Pos(Lowercase(LogonUser), Lowercase(Result)) = 0) then
              StringChange(Result, ActiveUser, LogonUser);
          end;
      end;
  finally
    SetLength(SubKeyName, 0);
    SetLength(ValueName, 0);
    SetLength(LogonUser, 0);
    SetLength(ActiveUser, 0);
  end;
end;

function InitializeSetup(): Boolean;
begin
  MsgBox(GetLogonUserProfile, mbInformation, MB_OK);
end;

[Serega]

I need a code for extracting files from dvd: bin\gamedata.arc in {app} »

Look on this site, as there there are usage examples.

[serg aka lain]

P.S Кстати это не та прога которая в 7зипе лежит, а эта вообще какая то замороченая, но зато распаковка в графическом режиме!»

Смотрел, действительно, софтинка может извлекать и .zip и .7z,
но ещё к ней нужна 7-zip32.dll, без нее не хочет.

[serg aka lain]

Вот код... проверил на W7 »

Ради интереса проверил у себя (Win7 64), показывает пустое окно.
имхо, нужно доработать этот кусок кода

Код:

            if Version.Minor = 1 then // здесь проверяем, что не Vista, т.к. на Vista я не тестировал и не знаю результата...
              begin
                if IsWin64 then
                   RootKey := HKEY_LOCAL_MACHINE_64
                else
                RootKey := HKEY_LOCAL_MACHINE;

[somename]

Вот код... проверил на W7, Vista под рукой нет, поэтому добавил условие проверки, что не Vista: »

эх.. Может у тебя пароль админа не спрашивается когда под юзером сидишь? У меня - опять путь к папке админа, хотя я под юзером сижу..

[Serega]

проверил у себя (Win7 64) »

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

Может у тебя пароль админа не спрашивается когда под юзером сидишь? »

всё спрашивает, как положено и пароль ввожу...
Прочитайте у себя в реестре раздел - HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI, какое значение LastLoggedOnUser ?

[serg aka lain]

а после такого изменения, показывает нормально? »

[serg aka lain]

какие ключи вставлять в инно?! »

Там вроде всё просто, вот пример без привязки к дополнительным задачам.

Код:

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

[Files]
Source: un7zip.exe; DestDir: {tmp}; Flags: ignoreversion;
Source: 7-zip32.dll; DestDir: {tmp}; Flags: ignoreversion;
Source: un7zip.ini; DestDir: {tmp}; Flags: ignoreversion;
Source: Data.zip; DestDir: {app}; Flags: ignoreversion nocompression deleteafterinstall;

[Run]
Filename: {tmp}\un7zip.exe; Parameters: """{app}\*.zip"" ""{app}"" ""{app}\extract.log"""; Flags: waituntilterminated;

[UninstallDelete]
Type: filesandordirs; Name: {app}\Data;
Type: files; Name: {app}\extract.log;