Alaska Software Inc. - Xbase 1.9 and Vista 64bit
Alaska Software Inc. - Xbase 1.9 and Vista 64bit
Username: Password:
AuthorTopic: Xbase 1.9 and Vista 64bit
Stu FraserXbase 1.9 and Vista 64bit
on Thu, 05 Feb 2009 14:43:43 -0800
Hi All,

Tried installing 1.9 on a 64bit Vista Machine yesterday and the installer 
would not run.  Tried the SL1 prerelease and that installed fine.

Since other 32bit apps install and run on the Vista 64 machine, I'm guessing 
the problem is just the installer.  Has anyone encountered this before?  Is 
there a solution?  Is there an installer for 64bit machines?  I'd be looking 
for both 1.9 and XBTools installers.

Thanks,

Stu

Stuart Fraser
Senior Consultant
Oracle Team Lead / Mainframe Team Lead
CGI Information Systems and Management Consultants
James Loughner Re: Xbase 1.9 and Vista 64bit
on Thu, 05 Feb 2009 19:16:48 -0500
Well you can just copy the files from another install and set the proper
paths and other environmental variables. The installer really does very
little more than that.

Jim

Stu Fraser wrote:
> Hi All,
> 
> Tried installing 1.9 on a 64bit Vista Machine yesterday and the installer 
> would not run.  Tried the SL1 prerelease and that installed fine.
> 
> Since other 32bit apps install and run on the Vista 64 machine, I'm guessing 
> the problem is just the installer.  Has anyone encountered this before?  Is 
> there a solution?  Is there an installer for 64bit machines?  I'd be looking 
> for both 1.9 and XBTools installers.
> 
> Thanks,
> 
> Stu
>
Stu FraserRe: Xbase 1.9 and Vista 64bit
on Fri, 06 Feb 2009 08:43:00 -0800
Yup.  I figured that out when I was driving home last night. :o)

Thanks James,

Stu

"James Loughner" <jwrl@suddenlink.net> wrote in message 
news:36f072db$7b9ae13e$2e4@news.alaska-software.com...
> Well you can just copy the files from another install and set the proper
> paths and other environmental variables. The installer really does very
> little more than that.
>
> Jim
>
> Stu Fraser wrote:
>> Hi All,
>>
>> Tried installing 1.9 on a 64bit Vista Machine yesterday and the installer
>> would not run.  Tried the SL1 prerelease and that installed fine.
>>
>> Since other 32bit apps install and run on the Vista 64 machine, I'm 
>> guessing
>> the problem is just the installer.  Has anyone encountered this before? 
>> Is
>> there a solution?  Is there an installer for 64bit machines?  I'd be 
>> looking
>> for both 1.9 and XBTools installers.
>>
>> Thanks,
>>
>> Stu
>>
Jack DuijfRe: Xbase 1.9 and Vista 64bit
on Sun, 08 Feb 2009 01:13:31 +0100
Hello

Had identical problem.
To be ready for future hardware exchange, and the pain in re-installing 
everthing, i came up with a solution using InnoSetup.
Below you find the script.

Regards,
Jack Duijf

; Script ceated by Jack Duijf  14 june 2007
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
; see http://www.jrsoftware.org/ for download innosetup.
;

#define public XbResoucePrg     "C:\Alaska\XppW32\Resource\Icon\Xppprg.ico"
#define public XbResouceXpj     "C:\Alaska\XppW32\Resource\Icon\Pbuild.ico"
#define public XbResouceXff     "C:\Alaska\XppW32\Resource\Icon\XppFd.ico"
#define public XbResouceArc     "C:\Alaska\XppW32\Resource\Icon\Xppfld.ico"
#define public XbResouceOdf     "C:\Alaska\XppW32\Resource\Icon\Pri.ico"
#define public Mew2006          "Multi-Edit 2006\Mew32.exe"

[Setup]
Compression=Zip/1
AppName=Setup Xbase development using Multi-Edit 2006
AppVerName=Setup Xbase development using Multi-Edit 2006
AppPublisher=J.D. Software
DefaultDirName=C:\Alaska
DefaultGroupName=
AllowNoIcons=yes
DisableDirPage=Yes
DisableProgramGroupPage=Yes
DisableFinishedPage=Yes
DisableStartupPrompt=Yes
DisableReadyPage=yes
Uninstallable=No
AppendDefaultDirname=No
OutputBaseFileName=SetupXbase
ChangesAssociations=yes

[Components]
Name: "Me2006"            ; Description: "Link Xbase file extensions to 
Multi-edit 2006"

[Registry]
;Link .prg file to multi-edit 2006
Root: HKCR; Subkey: ".prg"                        ; ValueType: string; 
ValueName: ""; ValueData: "Ftxb0001"                     ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0001"                    ; ValueType: string; 
ValueName: ""; ValueData: "Xbase++ Source"               ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0001\DefaultIcon"        ; ValueType: string; 
ValueName: ""; ValueData: "{#XbResoucePrg}"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0001\shell\open\command" ; ValueType: string; 
ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
Me2006

;Link .ch file to multi-edit 2006
Root: HKCR; Subkey: ".ch"                         ; ValueType: string; 
ValueName: ""; ValueData: "Ftxb0002"                     ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0002"                    ; ValueType: string; 
ValueName: ""; ValueData: "Xbase++ Header"               ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0002\DefaultIcon"        ; ValueType: string; 
ValueName: ""; ValueData: "{#XbResoucePrg}"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0002\shell\open\command" ; ValueType: string; 
ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
Me2006

;Link .xpj file to multi-edit 2006
Root: HKCR; Subkey: ".xpj"                        ; ValueType: string; 
ValueName: ""; ValueData: "Ftxb0003"                     ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0003"                    ; ValueType: string; 
ValueName: ""; ValueData: "Xbase++ Project"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0003\DefaultIcon"        ; ValueType: string; 
ValueName: ""; ValueData: "{#XbResouceXpj}"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0003\shell\open\command" ; ValueType: string; 
ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
Me2006

;Link .xff file to multi-edit 2006
Root: HKCR; Subkey: ".xff"                        ; ValueType: string; 
ValueName: ""; ValueData: "Ftxb0004"                     ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0004"                    ; ValueType: string; 
ValueName: ""; ValueData: "Xbase++ Project"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0004\DefaultIcon"        ; ValueType: string; 
ValueName: ""; ValueData: "{#XbResouceXff}"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0004\shell\open\command" ; ValueType: string; 
ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
Me2006

;Link .arc file to multi-edit 2006
Root: HKCR; Subkey: ".arc"                        ; ValueType: string; 
ValueName: ""; ValueData: "Ftxb0005"                     ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0005"                    ; ValueType: string; 
ValueName: ""; ValueData: "Xbase++ Resource"             ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0005\DefaultIcon"        ; ValueType: string; 
ValueName: ""; ValueData: "{#XbResouceArc}"              ; Components: 
Me2006
Root: HKCR; Subkey: "Ftxb0005\shell\open\command" ; ValueType: string; 
ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
Me2006


[Code]

Function IncludePath(cKey: String;cValue: String): String;
var cCurrent: string;
var nPos: integer;
begin;
  cKey          := Lowercase(cKey);
  cValue        := Lowercase(cValue);
  
   Read the current setting from the registry
  
  if 
RegQueryStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session 
Manager\Environment',cKey,cCurrent) then begin ;
     cCurrent  := Lowercase(cCurrent);
     nPos      := Pos(cValue,cCurrent);
     if nPos = 0 then begin ;
         This path is not known yet, add it to the setting and rewrite the 
registry
        cCurrent := cCurrent + ';';
        cCurrent := cCurrent + cValue;
        RegWriteExpandStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session 
Manager\Environment',cKey,cCurrent);
     end;
  end;
end;

 Update the global enviroment.
 If the entry already exists, nothing happens


Function SetAllPath(S: String): Boolean;
begin;
  Result        := TRUE;
  IncludePath('PATH'    ,'c:\Alaska\Xppw32\bin');
  IncludePath('PATH'    ,'c:\Alaska\Xppw32\lib');
  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\bin');
  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\lib');
  IncludePath('PATH'    ,'c:\Alaska\Dbew32\bin');
  IncludePath('PATH'    ,'c:\Alaska\Dbew32\lib');
  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\bin');
  IncludePath('PATH'    ,'c:\Alaska\Xb2net');
  IncludePath('PATH'    ,'c:\Alaska\Tools');
  IncludePath('PATH'    ,'c:\Alaska\Tools\Express\bin19');
  IncludePath('LIB'     ,'c:\Alaska\Xppw32\lib');
  IncludePath('LIB'     ,'c:\Alaska\Xbtw32\lib');
  IncludePath('LIB'     ,'c:\Alaska\Dbew32\lib');
  IncludePath('LIB'     ,'c:\Alaska\Xb2net');
  IncludePath('LIB'     ,'c:\Alaska\Tools');
  IncludePath('LIB'     ,'c:\Alaska\Tools\Express\Lib');
  IncludePath('INCLUDE' ,'c:\Alaska\Xppw32\Include');
  IncludePath('INCLUDE' ,'c:\Alaska\Xbtw32\Include');
  IncludePath('INCLUDE' ,'c:\Alaska\Dbew32\Include');
  IncludePath('INCLUDE' ,'c:\Alaska\Xb2net');
  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Express\Include');
  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Include');
  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Jds_Bitmaps');
end;

Procedure CurStepChanged(Curstep: TsetupStep) ;
begin;
  if CurStep= ssDone then begin
    SetAllPath('')
  end;
end;
Stu FraserRe: Xbase 1.9 and Vista 64bit
on Mon, 09 Feb 2009 09:16:43 -0800
Hi Jack,

Good Idea!  This will be really handy as we are often tasked with trying it 
out on different platforms etc.  This will save a ton of time.

Thanks for sharing that.

Stu.

"Jack Duijf" <jack@jdsoftware.nl> wrote in message 
news:67258bb$63bef9fb$5c@news.alaska-software.com...
> Hello
>
> Had identical problem.
> To be ready for future hardware exchange, and the pain in re-installing 
> everthing, i came up with a solution using InnoSetup.
> Below you find the script.
>
> Regards,
> Jack Duijf
>
> ; Script ceated by Jack Duijf  14 june 2007
> ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
> ; see http://www.jrsoftware.org/ for download innosetup.
> ;
>
> #define public XbResoucePrg 
> "C:\Alaska\XppW32\Resource\Icon\Xppprg.ico"
> #define public XbResouceXpj 
> "C:\Alaska\XppW32\Resource\Icon\Pbuild.ico"
> #define public XbResouceXff     "C:\Alaska\XppW32\Resource\Icon\XppFd.ico"
> #define public XbResouceArc 
> "C:\Alaska\XppW32\Resource\Icon\Xppfld.ico"
> #define public XbResouceOdf     "C:\Alaska\XppW32\Resource\Icon\Pri.ico"
> #define public Mew2006          "Multi-Edit 2006\Mew32.exe"
>
> [Setup]
> Compression=Zip/1
> AppName=Setup Xbase development using Multi-Edit 2006
> AppVerName=Setup Xbase development using Multi-Edit 2006
> AppPublisher=J.D. Software
> DefaultDirName=C:\Alaska
> DefaultGroupName=
> AllowNoIcons=yes
> DisableDirPage=Yes
> DisableProgramGroupPage=Yes
> DisableFinishedPage=Yes
> DisableStartupPrompt=Yes
> DisableReadyPage=yes
> Uninstallable=No
> AppendDefaultDirname=No
> OutputBaseFileName=SetupXbase
> ChangesAssociations=yes
>
> [Components]
> Name: "Me2006"            ; Description: "Link Xbase file extensions to 
> Multi-edit 2006"
>
> [Registry]
> ;Link .prg file to multi-edit 2006
> Root: HKCR; Subkey: ".prg"                        ; ValueType: string; 
> ValueName: ""; ValueData: "Ftxb0001"                     ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0001"                    ; ValueType: string; 
> ValueName: ""; ValueData: "Xbase++ Source"               ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0001\DefaultIcon"        ; ValueType: string; 
> ValueName: ""; ValueData: "{#XbResoucePrg}"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0001\shell\open\command" ; ValueType: string; 
> ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
> Me2006
>
> ;Link .ch file to multi-edit 2006
> Root: HKCR; Subkey: ".ch"                         ; ValueType: string; 
> ValueName: ""; ValueData: "Ftxb0002"                     ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0002"                    ; ValueType: string; 
> ValueName: ""; ValueData: "Xbase++ Header"               ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0002\DefaultIcon"        ; ValueType: string; 
> ValueName: ""; ValueData: "{#XbResoucePrg}"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0002\shell\open\command" ; ValueType: string; 
> ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
> Me2006
>
> ;Link .xpj file to multi-edit 2006
> Root: HKCR; Subkey: ".xpj"                        ; ValueType: string; 
> ValueName: ""; ValueData: "Ftxb0003"                     ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0003"                    ; ValueType: string; 
> ValueName: ""; ValueData: "Xbase++ Project"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0003\DefaultIcon"        ; ValueType: string; 
> ValueName: ""; ValueData: "{#XbResouceXpj}"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0003\shell\open\command" ; ValueType: string; 
> ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
> Me2006
>
> ;Link .xff file to multi-edit 2006
> Root: HKCR; Subkey: ".xff"                        ; ValueType: string; 
> ValueName: ""; ValueData: "Ftxb0004"                     ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0004"                    ; ValueType: string; 
> ValueName: ""; ValueData: "Xbase++ Project"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0004\DefaultIcon"        ; ValueType: string; 
> ValueName: ""; ValueData: "{#XbResouceXff}"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0004\shell\open\command" ; ValueType: string; 
> ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
> Me2006
>
> ;Link .arc file to multi-edit 2006
> Root: HKCR; Subkey: ".arc"                        ; ValueType: string; 
> ValueName: ""; ValueData: "Ftxb0005"                     ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0005"                    ; ValueType: string; 
> ValueName: ""; ValueData: "Xbase++ Resource"             ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0005\DefaultIcon"        ; ValueType: string; 
> ValueName: ""; ValueData: "{#XbResouceArc}"              ; Components: 
> Me2006
> Root: HKCR; Subkey: "Ftxb0005\shell\open\command" ; ValueType: string; 
> ValueName: ""; ValueData: """{pf}\{#Mew2006}"" ""%1"""   ; Components: 
> Me2006
>
>
> [Code]
>
> Function IncludePath(cKey: String;cValue: String): String;
> var cCurrent: string;
> var nPos: integer;
> begin;
>  cKey          := Lowercase(cKey);
>  cValue        := Lowercase(cValue);
>  
>   Read the current setting from the registry
>  
>  if 
> RegQueryStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session 
> Manager\Environment',cKey,cCurrent) then begin ;
>     cCurrent  := Lowercase(cCurrent);
>     nPos      := Pos(cValue,cCurrent);
>     if nPos = 0 then begin ;
>         This path is not known yet, add it to the setting and rewrite 
> the registry
>        cCurrent := cCurrent + ';';
>        cCurrent := cCurrent + cValue;
> 
> RegWriteExpandStringValue(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Control\Session 
> Manager\Environment',cKey,cCurrent);
>     end;
>  end;
> end;
> 
>  Update the global enviroment.
>  If the entry already exists, nothing happens
> 
>
> Function SetAllPath(S: String): Boolean;
> begin;
>  Result        := TRUE;
>  IncludePath('PATH'    ,'c:\Alaska\Xppw32\bin');
>  IncludePath('PATH'    ,'c:\Alaska\Xppw32\lib');
>  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\bin');
>  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\lib');
>  IncludePath('PATH'    ,'c:\Alaska\Dbew32\bin');
>  IncludePath('PATH'    ,'c:\Alaska\Dbew32\lib');
>  IncludePath('PATH'    ,'c:\Alaska\Xbtw32\bin');
>  IncludePath('PATH'    ,'c:\Alaska\Xb2net');
>  IncludePath('PATH'    ,'c:\Alaska\Tools');
>  IncludePath('PATH'    ,'c:\Alaska\Tools\Express\bin19');
>  IncludePath('LIB'     ,'c:\Alaska\Xppw32\lib');
>  IncludePath('LIB'     ,'c:\Alaska\Xbtw32\lib');
>  IncludePath('LIB'     ,'c:\Alaska\Dbew32\lib');
>  IncludePath('LIB'     ,'c:\Alaska\Xb2net');
>  IncludePath('LIB'     ,'c:\Alaska\Tools');
>  IncludePath('LIB'     ,'c:\Alaska\Tools\Express\Lib');
>  IncludePath('INCLUDE' ,'c:\Alaska\Xppw32\Include');
>  IncludePath('INCLUDE' ,'c:\Alaska\Xbtw32\Include');
>  IncludePath('INCLUDE' ,'c:\Alaska\Dbew32\Include');
>  IncludePath('INCLUDE' ,'c:\Alaska\Xb2net');
>  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Express\Include');
>  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Include');
>  IncludePath('INCLUDE' ,'c:\Alaska\Tools\Jds_Bitmaps');
> end;
>
> Procedure CurStepChanged(Curstep: TsetupStep) ;
> begin;
>  if CurStep= ssDone then begin
>    SetAllPath('')
>  end;
> end;
>
Hubert BrandelRe: Xbase 1.9 and Vista 64bit
on Wed, 04 Nov 2009 14:30:32 +0100
Hi,

I did install onto D:\Alaska on my old PC, and I found a XPP.REG file in
that directory. So after installing my Win 7 64 bit, I just put the
2. HD into my computer and started the xpp.reg -> all fine 
A second was in the Xbtools directory.

Bye
Hubert