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.
thanks for that stuff - would it be possible to upload the source code (MIT license by the way) to vastgoodies.com?
"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: .
PlatformConstants at: 'ServiceConfigFailureActions' ifAbsentPut: .
Users browsing this forum: No registered users and 1 guest