You are here

VB6 version of PAM 1.0.0.8

45 posts / 0 new
Last post
SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
VB6 version of PAM 1.0.0.8

Here's a new menu for you folks to play with.
My Portable Menu
And the source files
Source Files
Have Fun Smile

For those receiving run time errors, please try installing the Microsoft VB6 Common Controls
Systems running Win2000 or newer should already have them, however some uninstallers will incorrectly unregister the dll's (so your system needs to be fixed anyway)

Patrick Patience
Offline
Last seen: 3 years 1 month ago
DeveloperModerator
Joined: 2007-02-20 19:26
Cool.

Cool, if John hasn't already, he should integrate some of the features you've added, they're brilliant. Smile

_____________________________
I felt so different without a signature.

King Tut
Offline
Last seen: 11 years 1 month ago
Joined: 2006-06-15 05:47
Hmm... Be interesting to try

Hmm... Be interesting to try it out.. But I think I'll stick with ASuite for now.

Steve Lamerton
Steve Lamerton's picture
Offline
Last seen: 9 years 4 months ago
Developer
Joined: 2005-12-10 15:22
Hmmm,

seems like everyone is working on a menu these days... Wink

Yours

Steve Lamerton

My Blog

OliverK
OliverK's picture
Offline
Last seen: 1 year 7 months ago
Developer
Joined: 2007-03-27 15:21
Umm,

>small and fearful voice

Too many lonely hearts in the real world
Too many bridges you can burn
Too many tables you can't turn
Don't wanna live my life in the real world

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
Well...

I am waiting for yours... Wink :lol:
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

Steve Lamerton
Steve Lamerton's picture
Offline
Last seen: 9 years 4 months ago
Developer
Joined: 2005-12-10 15:22
Don't

worry, it'll be out in a few weeks!

___

'...and do the other things, not because they are easy, but because they are hard...' JFK

My Blog

LittleUnkn0wn
Offline
Last seen: 1 year 3 weeks ago
Joined: 2006-11-02 11:09
deja vu

didn't john say that about PAM 2 a couple of months ago?

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
update uploaded, added a

update uploaded, added a background image.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Dijaboro
Dijaboro's picture
Offline
Last seen: 2 months 2 weeks ago
Joined: 2007-04-19 02:49
Run-time error '339'

just downloaded and get following error-message after launch:

Run-time error '339':

Component'MSCOMCTL.OCX' ore one of its dependencies not correctly registered: a file is missing or invalid

new installed windows xp sp2 german

Patrick Patience
Offline
Last seen: 3 years 1 month ago
DeveloperModerator
Joined: 2007-02-20 19:26
Missing.

Just read this and downlaod it, shouldn't have a problem afterwards.
_____________________________
I felt so different without a signature.

Dijaboro
Dijaboro's picture
Offline
Last seen: 2 months 2 weeks ago
Joined: 2007-04-19 02:49
problem resolved

hi @ all

i found a standard solution for the problem. if microsoft .net3.0-package is not installed you get the error.

so i was thinking about the issue. if you connect your portable drive to a foreign system where .net3.0-package ist not installed you can't run the app cause you you need administrator rights to install the package. is it right?

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
its not a .net app it should

its not a .net app it should run without any .net installed.
installing 3.0 more than likely just fixed a broken dll that was already on your system. Some poorly written apps unregister dll's when you uninstall them.
I do not have .net 3.0 on my systems and it works fine.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Dijaboro
Dijaboro's picture
Offline
Last seen: 2 months 2 weeks ago
Joined: 2007-04-19 02:49
did you update your system

did you update your system via windows update service ?

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
yes but I didn't install the

yes but I didn't install the 3.0, I always use the "manual" option.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
changed some code, seems the

changed some code, seems the last version I uploaded was misassigning the drive letter to the entire app path.
changed the exe name to mpm.exe and updated the ver # to 1.0.0.1

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
I really

like it.
Some NICE features.
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

RogerL
Offline
Last seen: 3 weeks 5 days ago
Joined: 2007-03-14 09:17
Are you doing this menu just

Are you doing this menu just for fun? To replace ASuite/PStart? Or just to explain to John by example what you would like in PAM2?

It looks like you have the Launch Application Path as absolute minus the drive letter. I would need it relative to where the mpm.exe is.

Rather than always use my USB drive it makes sense to use the backup copy on my laptop's hard drive when I have my laptop with me (to save the wear on the USB drive and for faster operation) but here the drive AND the root folder(s) are different ...hence the need for relativity.

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
All of the above. Just for

All of the above. Just for fun, to replace ASuite, and hoping John will take some ideas from it.
Technically relative paths can be relative to root, or relative to the app. These are relative to root.
I understand what you mean though, I will think about it, but no guarantee's.
I have a backup copy on my laptop as well, I just duplicated the path for the apps on my laptop.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

RogerL
Offline
Last seen: 3 weeks 5 days ago
Joined: 2007-03-14 09:17
I have a backup copy on my

I have a backup copy on my laptop as well, I just duplicated the path for the apps on my laptop.

Do you have a dedicated partition for your USB drive backup? If not I would appreciate you giving an example of your laptop folder structure as I don't understand how it can be done with files in the USB drive's root.

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
PortableApps: C:\PortableApps

PortableApps:
C:\PortableApps\...
U:\PortableApps\...

PortableDocuments:
C:\My Files\...
U:\My Files\...

The only file on the usb drives root is autorun.inf, I simply don't backup this file as it is only a 3 line text file.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

RogerL
Offline
Last seen: 3 weeks 5 days ago
Joined: 2007-03-14 09:17
menu-app-relativity

So I fully understand... your USB drive only has two folders in root and you back these up to two folders on your C drive? This is a very simple setup which allows the use of root-relativity.

I have been using 'portable apps' for many years! long before the term got a 'new' meaning here. I have developed my own tree structure with more folders in root. I want to backup these up to my D: drive (I keep C for the OS) to folder Backups\MyUSBFlashDrive or Backups\MyUSBHDD to keep them contained, and be able to use them on the local drive, hence my need for menu-app-relativity.

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
yes only 2 folders on the

yes only 2 folders on the root of my usb drive.

I will look into the app relative path and see how difficult it would be to change.
Won't be for a while though, closing on a house in 3 weeks not going to have a lot of time to work on it.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.2 Uploaded

Fixed issue with menu not opening as top most window.
Added Options to tray icon menu.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.4 Uploaded

1.0.0.4 Uploaded
Fixed sorting issue
Changed add button on app list to Add/update

1.0.0.3 Uploaded
If no menu.ini file exists (new install) it will scan U:\PortableApps\{AppFolder}\{App.exe} and add them to the menu.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
1.0.0.4

starts but gives me a "Run-time error 91 Object variable or With block variable not set".
I click OK and the menu exits.
Win XP Prof.
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
Is this the first time you

Is this the first time you have used the menu? Or was there an existing ini file?
If there was an ini file, try deleting it.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
It wasnt the first time

but I deleted the old ini file and the old exe.
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
did you get th error with

did you get th error with the old version?
what version were you running before?

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Steve Lamerton
Steve Lamerton's picture
Offline
Last seen: 9 years 4 months ago
Developer
Joined: 2005-12-10 15:22
I get,

the same error, I am running XP Home and this is the first version I have tried, hope you can get it fixed Smile

*Edit* Interestingly the version in the source package work fine, does it have an installer that could be messed up, or it the version in the source old?

___

'...and do the other things, not because they are easy, but because they are hard...' JFK

My Blog

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
No

I didn't get the error with the old version.
I completely deleted the old version and I don't know which one I had.
I had the whole stuff on my Desktop.
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.5 Up code changes only

1.0.0.5 Up
code changes only to try and fix error 91

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Zach Thibeau
Zach Thibeau's picture
Offline
Last seen: 3 months 1 week ago
Developer
Joined: 2006-05-26 12:08
Still

Shows error 91
===============================================================
"I don't fear Computers. I fear the lack of them" Isaac Asimov

your friendly neighbourhood moderator Zach Thibeau

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.2 vs 1.0.0.5

was anyone using 1.0.0.2 and not getting the error, but is now getting the error in 1.0.0.5?

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Zach Thibeau
Zach Thibeau's picture
Offline
Last seen: 3 months 1 week ago
Developer
Joined: 2006-05-26 12:08
Well

I was using the very first one and I had no problems with it what so ever
-----------------------------
"I don't fear Computers. I fear the lack of them" Isaac Asimov

your friendly neighbourhood moderator Zach Thibeau

arqbrulo
arqbrulo's picture
Offline
Last seen: 2 years 11 months ago
Joined: 2006-08-10 16:38
Re: Error 91

I started using 1.0.0.5 without the ini file. It was giving me the same error until I put the menu at x:\Portableapps\mpm\ after that the error stopped.
---------------
"Truth is a river that is always splitting up into arms that reunite. Islanded between the arms, the inhabitants argue for a lifetime as to which is the main river." -- Cyril Connolly

"In three words I can sum up everything I've learned about life: it goes on." -- Robert Frost
"In three words I can sum up everything I've learned about life: baby ain't mine." -- Adam Holguin

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
where did you have it prior

where did you have it prior to that:?

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

arqbrulo
arqbrulo's picture
Offline
Last seen: 2 years 11 months ago
Joined: 2006-08-10 16:38
Root

---------------
"Truth is a river that is always splitting up into arms that reunite. Islanded between the arms, the inhabitants argue for a lifetime as to which is the main river." -- Cyril Connolly

"In three words I can sum up everything I've learned about life: it goes on." -- Robert Frost
"In three words I can sum up everything I've learned about life: baby ain't mine." -- Adam Holguin

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.6 Up

Think I got it this time.
Thanks for all the info on the error etc.

-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Bensawsome
Offline
Last seen: 11 months 1 week ago
Joined: 2006-04-22 19:27
This error

It came up with this error:
http://img368.imageshack.us/img368/7226/mpmerrorry8.jpg

Bensawsome
AKA BJ

"We can mean anything. We three, we the people, or my personal favorite: WEEEEEEEEEE!!!!"

"It's not winning that matters, it's winning in style that matters..."

 iLike Macs, iPwn, However you put it... Apple is better ^_^ 
"Claiming that your operating system is the best in the world because more people use it is like saying McDonalds makes the best food in the world..."

Simeon
Simeon's picture
Offline
Last seen: 8 years 3 months ago
DeveloperTranslator
Joined: 2006-09-25 15:15
Cool

No error.
Fine.
Thanks.
“Science is the belief in the ignorance of the experts” - Richard P. Feynman

"What about Love?" - "Overrated. Biochemically no different than eating large quantities of chocolate." - Al Pacino in The Devils Advocate

David Dixon II
David Dixon II's picture
Offline
Last seen: 11 months 3 weeks ago
Developer
Joined: 2007-06-11 22:54
all black

i have some tips for ya

mine is all black and i dont see the x button or the usage and when ever i click on documents and etc an error comes up

( i downloaaded the source files so dont worry ) Wink

Na na na, come on!

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
1.0.0.8 up

added the drive space bar
fixed the initial app scan not running
-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Bensawsome
Offline
Last seen: 11 months 1 week ago
Joined: 2006-04-22 19:27
Not working for me

It doesn't show up at all on windows 2000 Pro. Only the icon in the tray shows up.

Bensawsome
AKA BJ

My Site: bensawsome.65gb.com
"We can mean anything. We three, we the people, or my personal favorite: WEEEEEEEEEE!!!!"
"It's not winning that matters, it's winning in style that matters"

 iLike Macs, iPwn, However you put it... Apple is better ^_^ 
"Claiming that your operating system is the best in the world because more people use it is like saying McDonalds makes the best food in the world..."

SmithTech
SmithTech's picture
Offline
Last seen: 9 months 3 weeks ago
Developer
Joined: 2006-11-24 18:06
New Delphi Version Comming Soon

Due to the many issues with VB6 and dependencies on windows files, I have decided to re-write the menu completely in Delphi.
Here's a preview of my new menu. SmithTechPortableMenu
The zip file contains the exe, xml settings file, and all source code.
At this point the folder buttons work, the right click works on the tray icon, and settings will save to the xml file, and it is basic theme compatible with PAM. (and thats it)
Its open source so if anyone wants to incorporate my idea's into there work feel free.
-----------------------------------------------------------------------------------------------
Because they stand on a wall and say nothing is going to hurt you tonight. Not on my watch.

"Because they stand on a wall and say, 'Nothing is going to hurt you tonight. Not on my watch.'" (A Few Good Men)
Coincidence is God's way of remaining anonymous.(Albert Einstein)

Log in or register to post comments