Installer for GMS

Please I need some macro installation help.
Things like a method to detect if VBA is installed, CorelDRAW & GMS directory, and the rest installer stuff.
Any idea, how to create a coreldraw (v10 & v11) shortcut key or menu entry for my macro, programatically from the installer ?

I'd appreciate any help

Thanks

[Alex]

Originally Posted by ssb

Please I need some macro installation help.
Things like a method to detect if VBA is installed, CorelDRAW & GMS directory, and the rest installer stuff.
Any idea, how to create a coreldraw (v10 & v11) shortcut key or menu entry for my macro, programatically from the installer ?

I'm currently (slowly) working on the installer for GMS modules which will include all of the aforementioned features and then some. The problem is that I don't have that much time to spend on the project at the time so it doesn't move along as fast as I would want. But I will try my best and create the installer sooner than later as I understand that there are a lot of people who would use it now.

I will keep you all posted...

That would be great Alex,
even some technical info about registry settings, workspace customization and sharing and the rest stuf, could help us all.

Thanks

hi there!

yesterday i made a little program that installs my gms-files.

it lists all gms-files in the exe-folder and you can mark all entrys like in windows (ctrl+click, shift+click), then you select 'install' and it should work.. (works for me anyway)

all you need is a button 'install', a listbox 'gmslist' and a 'cancel'-button..
and the windows-scripting-host..

tell me if there are any errors..

Option Explicit
Private instpath As String
    
Private Sub cancel()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim regvba As String
    regvba = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\VBA\Vbe6DllPath")
    If Len(regvba) < 1 Then
        MsgBox "VBA isn´t installed!"
        Unload Me
    End If
    instpath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Corel\Setup\Corel Graphics Suite 11\Destination") & "draw\gms\"
    Call testgms
End Sub

Private Sub testgms()
    Dim name1 As String
    name1 = Dir(App.Path & "\" & "*.gms", vbDirectory)
    Do While name1 <> ""
        If name1 <> "." And name1 <> ".." Then
            If ((GetAttr(App.Path & "\" & name1)) = vbArchive) Then
                gmslist.AddItem name1
            End If
        End If
    name1 = Dir
    Loop
End Sub

Public Function RegRead(Path As String) As String
  Dim ws As Object

  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function

ErrHandler:
  RegRead = ""
End Function


Private Sub Form_Terminate()
    Unload Me
End Sub

Private Sub install_Click()
    If Len(instpath) > 0 Then
        Dim i As Integer
        For i = 0 To gmslist.ListCount - 1
            If gmslist.Selected(i) Then
                FileCopy App.Path & "\" & gmslist.List(i), instpath & gmslist.List(i)
            End If
        Next i
        MsgBox "GMS-files were installed!"
        Unload Me
    Else
        MsgBox "Corel 11 not installed?" & Chr(10) & Chr(10) & "another possibility:" & Chr(10) & "Windows-Scripting-Host not 

installed" & Chr(10) & "(required)"
        Unload Me
    End If
End Sub

happy weekend

Thanks Seelenquell, I'll give it a try, asap

hi there again!

sorry, i forgot to mention that this code is for VB6..

the program in englisch is attached..

happy weekend!

Alex, what about your installer?

[shelbym]

Read this post alex just made:

http://www.oberonplace.com/forum/viewtopic.php?t=874

Shelby

Hi!

Free ware Pascal-base Windows Installer (Inno Setup) is here:

http://www.jrsoftware.org/striprlc.htm

But Inno add 200-300 kBt to macros code.

Good luck.