Free Windows NT service install program

[PhotonDemon]

Hi,

I have finished the rewrite of my InstallService program from Smalltalk MT to VA Smalltalk. It is now a GUI program intended to run after the files required to support your NT service program have been installed. It creates the service and sets some of the more valuable service options. I hope it is of use to others. You can post problems/comments here or email me.

I have included a Zip of the help file with this post. You can download a Zip of the program, its source, help and other files from here: http://www.keystone-software.com/ftp/download/smalltalk/InstallService.Zip.

Lou

[PhotonDemon]

Hi,

Sorry, the Zip file attached to my previous post didn't have all the files needed to view the help information. This one does.

Lou

[marten]

Hello,

thanks for that stuff - would it be possible to upload the source code (MIT license by the way) to vastgoodies.com !?

Marten

Hi,

I have finished the rewrite of my InstallService program from Smalltalk MT to VA Smalltalk. It is now a GUI program intended to run after the files required to support your NT service program have been installed. It creates the service and sets some of the more valuable service options. I hope it is of use to others. You can post problems/comments here or email me.

I have included a Zip of the help file with this post. You can download a Zip of the program, its source, help and other files from here: http://www.keystone-software.com/ftp/download/smalltalk/InstallService.Zip.

Lou

[PhotonDemon]

Hi Marten,

Hello,
thanks for that stuff - would it be possible to upload the source code (MIT license by the way) to vastgoodies.com?

I would like to do that. I didn't do it initially because I wanted the program to be available and usable without having to be packaged by someone who wanted to use it.

I haven't uploaded anything there before. Do I need to make a configuration map? I will look into it.

Lou

[PhotonDemon]

Hi All,

I have managed to upload InstallService to the http://vastgoodies.com/ web site. I think I did everything right.

Before loading it you should run the script below in a workspace. InstallService depends upon some platform functions and constants that are not yet included in VA Smalltalk. I expect Instantiations will add the functions and constants
to a version of VA Smalltalk after V8.0.3.

Lou

Code: Select all

"Initialize PlatformFunctions, run this in a workspace before loading the
InstallServiceApp and its prereqsites.  This may not need to be done if
Instantiations adds the functions and constants."

   PlatformFunctions at: 'SHGetSpecialFolderLocation' ifAbsentPut: [PlatformFunction fromArray: #('C' 'SHGetSpecialFolderLocation' nil 'shell32.dll' #(#uint32 #int32 #pointer) #uint32)].
   PlatformFunctions at: 'SHGetPathFromIDList' ifAbsentPut: [PlatformFunction fromArray: #('C' 'SHGetPathFromIDList' nil 'shell32.dll' #(#pointer #pointer) #boolean)].

   PlatformFunctions at: 'SHBrowseForFolder' ifAbsentPut: [PlatformFunction fromArray: #('C' 'SHBrowseForFolder' nil 'shell32.dll' #(#pointer) #pointer)].

   PlatformFunctions at: 'ChangeServiceConfig2' ifAbsentPut: [PlatformFunction fromArray: #('C' 'ChangeServiceConfig2A' nil 'advapi32.dll' #(#pointer #uint32 #pointer) #bool)].
   PlatformConstants at: 'ServiceConfigDescription' ifAbsentPut: [1].
   PlatformConstants at: 'ServiceConfigFailureActions' ifAbsentPut: [2].


[PhotonDemon]

Hi All,

I have a new version (V1.01) of my InstallService program here: http://www.keystone-software.com/ftp/download/smalltalk/InstallService.Zip and in the http://vastgoodies.com/ web site.

It is built with VA Smalltalk V8.0.3 and I fixed a small bug setting the image and log names.

Lou