MMBMisc
Multimedia builder plug-in
By Matthew Woodhams - Squash Productions
Commands
Control
Panel
TaskBar
StartButton
Windows
Console
Keys
Mouse
Screen
System
Files
Inputs
Messages
Dialogs
Internet
Misc.
About
Hello all, well this is something that i had promised a while
back... I have finally found the time to do it,
After some problems I had with MMB plugins in Delphi I have managed to get
rid of most of the common bugs that my other delphi plugins had :)
If you have any ideas of features to add please contact me :)
Very special thanks to Eric for his great Delphi
SDK, it has helped me a lot, and to Mebirok for his excelent mmbmisc demo,
thanks!
Info
Update
16 Feb 01: Small Update, I have added a
few things requested by users, Change file attributes (Hidden, ReadOnly),
DelTree (this will imitate DelTree to delete a whole folder and sub folders...)
and RunHidden, HideFromTaskbar. ohh and i fixed the control panel bugs... Enjoy!
Update 25 Jan 01: Big
Update!! well
I have fixed all of the known bugs (Http, Keyboard settings, Run, StandBy and others...) And i have
added some mayor features (Download, Console, MessageBox, System and
others!)
Update 14 Jan 01: After
Mebirok excelent demo I fixed some
bugs and added some new stuff... thanks
Mebirok!
Update 12 Jan 01: Well
i just can't get enough of MMBMisc :), Added some usful features:
Encrypt/Decrypt and change Screen resolution.
Update 10 Jan 01: Hi,
Just added some stuff that i forgot to add in the first version, Check for
the new hihglights... happy mmb'ing ;)
This plugin allows you to do allows you
do all kind of different functions in MMB (hence the name Misc. LOL!) well
there are quite a few usful features, below are descriptions and commands for
you to get to know the plugin :)
Because this plug-in was done in Delphi it requires no extra
files to run and it should work on all Windows 9.x versions and 2000, Me (not
tested)
Note: Delphi source is availible for anyone, but please share what you have added ;)
As you all know this plugin is free, but i would really appreciate it if you could donate, specially if you use if for a commercial project, It took me a lot of work to do and it would really help if you would donate. Please click here to find out more about donating and thanks! :)...
Check out the mmbmisc demo
by Mebirok here: http://www.sussexvt.k12.de.us/mmb/files/Plugins/MMBMisc/miscdll_demo.zip
Commands
This
plugin has many different command, I will try to explain them all:
ControlPanel: PluginRun("PlugIn", "ControlPanel")
AddRemove: PluginRun("PlugIn", "AddRemove")
AddHardware: PluginRun("PlugIn", "AddHardware")
TimeDateSettings: PluginRun("PlugIn", "TimeDateSettings")
RegionalSettings: PluginRun("PlugIn", "RegionalSettings")
DisplaySettings: PluginRun("PlugIn", "DisplaySettings")
InternetSettings: PluginRun("PlugIn", "InternetSettings")
ModemSettings: PluginRun("PlugIn", "ModemSettings")
MouseSettings: PluginRun("PlugIn", "MouseSettings")
KeyboardSettings: PluginRun("PlugIn", "KeyboardSettings")
SystemSettings: PluginRun("PlugIn", "SystemSettings")
NetworkSettings: PluginRun("PlugIn", "NetworkSettings")
PasswordSettings: PluginRun("PlugIn", "PasswordSettings")
SoundSettings: PluginRun("PlugIn", "SoundSettings")
ShowTaskbar: PluginRun("PlugIn", "ShowTaskbar")
HideTaskbar: PluginRun("PlugIn", "HideTaskbar")
ShowSystray: PluginRun("PlugIn", "ShowSystray")
HideSystray: PluginRun("PlugIn", "HideSystray")
ShowStart: PluginRun("PlugIn", "ShowStart")
HideStart: PluginRun("PlugIn", "HideStart")
EnableStart: PluginRun("PlugIn", "EnableStart")
DisableStart: PluginRun("PlugIn", "DisableStart")
ClickStart: PluginRun("PlugIn", "ClickStart")
ShutDown: PluginRun("PlugIn", "ShutDown")
Restart: PluginRun("PlugIn", "Restart")
LogOff: PluginRun("PlugIn", "LogOff")
Console: PluginRun("PlugIn", "Console")
This must be
run for the Write and Read commands to work.
Write: This allows you to print text to the console window
Write$ = 'Hello
MMB Dev World!'
PluginSet("PlugIn","Write$")
PluginRun("PlugIn","Write")
Read: This will enable the user to type in the console window, and it will send you the result as a string.
Write$ = 'Hi,
What is your name?'
PluginSet("PlugIn","Write$")
PluginRun("PlugIn","Write")
**This
is the write command.
PluginRun("PlugIn","Read")
PluginGet("PlugIn","Read$")
Message("hello","Read$")
**This is the Read
command.
**Remember, Console must be run so that Read and Write can work. BTW when you close the console, your project will close.
The following will enable/disable the Ctrl+Alt+Del keys:
EnableDel: PluginRun("PlugIn", "EnableDel")
DisableDel: PluginRun("PlugIn", "DisableDel")
The following will enable/disable all system keys:
EnableSysKeys: PluginRun("PlugIn", "EnableSysKeys")
DisableSysKeys: PluginRun("PlugIn", "DisableSysKeys")
SwapMouse: PluginRun("PlugIn", "SwapMouse")
NormalMouse: PluginRun("PlugIn", "NormalMouse")
ShowMouse: PluginRun("PlugIn", "ShowMouse")
HideMouse: PluginRun("PlugIn", "HideMouse")
RightClick: PluginRun("PlugIn", "RightClick")
LeftClick: PluginRun("PlugIn", "LeftClick")
MiddleClick: PluginRun("PlugIn", "MiddleClick")
StandBy: PluginRun("PlugIn", "StandBy")
MonitorOn: PluginRun("PlugIn", "MonitorOn")
ScreenSaver: PluginRun("PlugIn", "ScreenSaver")
ChangeRes: Change the resolution of your
screen!
Example:
Uses to other commands (ResX and ResY)
XRes$ = '800'
XResInt = VAL(XRes$)
**
Change X value to Integer
PluginSet("PlugIn","XResInt")
PluginRun("PlugIn","ResX")
YRes$ = '600'
YResInt = VAL(YRes$)
**
Change Y value to Integer
PluginSet("PlugIn","YResInt")
PluginRun("PlugIn","ResY")
PluginRun("PlugIn","ChangeRes")
**Must
be a valid Screen Resolution
Serial: This get the drives serial number...
Drive$ = 'C:\\'
PluginSet("PlugIn","Drive$")
PluginRun("PlugIn","Serial")
PluginGet("PlugIn","data$")
Message("Your
hard drive serial number is: ","data$")
TotalSpace: This get the total space in your computer... in bytes
Drive$ = 'C:\\'
PluginSet("PlugIn","Drive$")
PluginRun("PlugIn","TotalSpace")
PluginGet("PlugIn","data$")
Message("The
total space in your computer is: ","data$")
FreeSpace: This get the free space in your computer... in bytes
Drive$ = 'C:\\'
PluginSet("PlugIn","Drive$")
PluginRun("PlugIn","FreeSpace")
PluginGet("PlugIn","data$")
Message("The
free space in your computer is: ","data$")
FileDelete: This will
delete a file from the computer
Example:
Filename$ = 'C:\Hello.txt'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","DelFile")
FileMove: This will move a file in the computer tip: Move
file can also rename a directory...
Example:
Filename$ = 'C:\hello.txt'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","Filename")
**Directory
must exist
Moved$ = 'C:\Windows\Desktop\World.txt'
PluginSet("PlugIn","Moved$")
PluginRun("PlugIn","FileMove")
FileRename: This will rename a file in the computer
Example:
Filename$ = 'C:\Hello.txt'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","Filename")
Renamed$ = 'C:\World.txt'
PluginSet("PlugIn","Renamed$")
PluginRun("PlugIn","FileRename")
FileExist: Example:
filename$ = 'C:\hello.txt'
PluginSet("PlugIn","filename$")
PluginRun("PlugIn","FileExist")
PluginGet("PlugIn","Result$")
If
(Result$ = 'True')
Message("Yup,
hello.txt does exist","")
end
If (Result$ = 'False')
Message("Naaa
I can't find it...","")
end
DirDelete: James: here ya go ;)
Example:
Filename$ = 'C:\Test\'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","DirDelete")
DirCreate: Creates a folder
Example:
Filename$ = 'C:\Test\'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","DirCreate")
DelTree: This will imitate the DelTree (delete a whole dir and sub
folders...)
<------------- NEW
Example:
Filename$ = 'C:\Test\'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","DelTree")
HideFile This will change the attributes of the file to hidden
<------------- NEW
Example:
Filename$ = 'C:\Test\test.html'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","HideFile")
ReadOnlyFile: This will change the attributes of the file to read only
<------------- NEW
Example:
Filename$ = 'C:\Test\test.html'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","ReadOnlyFile")
InputBox: Show a little input box...
Caption$ = 'What is your name?'
PluginSet("PlugIn","Caption$")
PluginRun("PlugIn","InputBox")
PluginGet("PlugIn","Name$")
Message("Nice
to meet you ","Name$")
SelectDir: Show the browse folder box
Caption$ = 'Please choose a
folder'
PluginSet("PlugIn","Caption$")
PluginRun("PlugIn","SelectDir")
PluginGet("PlugIn","FolderName$")
Message("You
choose ","FolderName$")
MessageBox: this uses 2 other commands (Button and Icon) these are used to set the icons and buttons....
Example1:
**Set the icon
Icon$ = 'CONFIRM'
PluginSet("PlugIn","Icon$")
PluginRun("PlugIn","Icon")
**Set the buttons
Button$ = 'YES/NO'
PluginSet("PlugIn","Button$")
PluginRun("PlugIn","Button")
**Set the message and run
Msg$ = 'Do you
like MMBMisc?'
PluginSet("PlugIn","Msg$")
PluginRun("PlugIn","MessageBox")
**Get the result (True/False)
PluginGet("PlugIn","Result$")
if
(Result$ = 'True') then
Message("Thanks
man! Enjoy the plugin","")
end
if
(Result$ = 'False') then
Message("Ohh
well, thats too bad :)","")
end
Example2:
**Set the icon
Icon$ = 'NONE'
PluginSet("PlugIn","Icon$")
PluginRun("PlugIn","Icon")
**Set the buttons
Button$ = 'OK'
PluginSet("PlugIn","Button$")
PluginRun("PlugIn","Button")
**Set the message and run
Msg$ = 'Hello
MMB Dev world!'
PluginSet("PlugIn","Msg$")
PluginRun("PlugIn","MessageBox")
Getting Result: Well if you have 2 buttons (YES/NO or OK/CANCEL) then mmbmisc will return 'True' of OK or YES was pressed or it will return 'FALSE' if CANCEL or NO was pressed (Example1 uses 2 buttons...)
Icon: This will define the icon, it can be any of the following icons:
- NONE
- INFO
- WARNING
- ERROR
- CONFIRM
Button: This will define the button, it can be any of the following buttons:
- NONE
- OK
- OK/CANCEL
- YES/NO
Note: Both Button and Icon must be set in uppercase...
ColorDialog: Example:
PluginRun("PlugIn","ColorDialog")
PluginGet("PlugIn","Color$")
Message("You
choose the color: ","Color$")
**Returns
the color as an RGB string.
OpenDialog: Example:
Filter$ = 'Text File
(*.txt)|*.txt'
PluginSet("PlugIn","Filter$")
PluginRun("PlugIn","OpenDialog")
PluginGet("PlugIn","Filename$")
Message("You
Choose: ","Filename$")
SaveDialog: Example:
Filter$ = 'Text
File (*.txt)|*.txt'
PluginSet("PlugIn","Filter$")
PluginRun("PlugIn","SaveDialog")
PluginGet("PlugIn","Filename$")
Message("You
Choose: ","Filename$")
OpenPictureDialog: Example:
Filter$ = 'All (*.dib;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.dib;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf'
PluginSet("PlugIn","Filter$")
PluginRun("PlugIn","OpenPictureDialog")
PluginGet("PlugIn","Filename$")
Message("You
Choose: ","Filename$")
SavePictureDialog: Example:
Filter$ = 'All (*.dib;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.dib;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf'
PluginSet("PlugIn","Filter$")
PluginRun("PlugIn","SavePictureDialog")
PluginGet("PlugIn","Filename$")
Message("You
Choose: ","Filename$")
Connect: PluginRun("PlugIn", "Connect")
Disconnect: PluginRun("PlugIn", "Disconnect")
Connection: Example:
PluginRun("PlugIn","Connected")
PluginGet("PlugIn","Result$")
If
(Result$ = 'True')
Message("Yeah,
your connected","")
end
If (Result$ = 'False')
Message("Sorry,
your not connected...","")
end
ConnectionKind: Example:
PluginRun("PlugIn","ConnectionKind")
PluginGet("PlugIn","Result$")
Message("Your
connection type is: ","Result$")
Http: This is used to view the text of an html file. Example:
URL$ = 'http://www.mediachance.com/index.html'
** URL$ is the html file you
want to view as text
PluginSet("PlugIn","URL$")
PluginRun("PlugIn","Http")
PluginGet("PlugIn","Result$")
Message("Http
text: ","Result$")
Download: Well i finally added a download feature :) I hesitated in adding
this because Jay has a download plugin. I emailed Jay,
But i could not get a reply, so Jay, if you see this Please contact me if you
have any probs with this...
URL$
= 'Http://www.MediaChance.com/index.html'
PluginSet("PlugIn","URL$")
PluginRun("PlugIn","URL")
**Set's
the URL
**-------
Dest$
= 'C:\Example.htm'
PluginSet("PlugIn","Dest$")
PluginRun("PlugIn","Download")
**Set's
the destination and Download file
**--------
PluginRun("PlugIn","Result")
PluginGet("PlugIn","Result$")
Message("Download
result: ","Result$")
**Gets
the download result.
CheckURL: This will check to see if an URL existes or not...
URL$
= 'http://www.SquashProductions.com'
PluginSet("PlugIn","URL$")
PluginRun("PlugIn","CheckURL")
**Check
if url existes....
**-------
PluginGet("PlugIn","Result$")
If
(Result$ = 'True')
Message("Yup, the site
existes!","")
end
If (Result$ = 'False')
Message("Sorry, the
site does not existe.","")
end
**Gets
the result (True, False)
**-------
GetIP: This will get your current IP
PluginRun("PlugIn","GetIP")
PluginGet("PlugIn","MyIP$")
Message("My
IP is: ","MyIP$")
GetHost: This will get your current hostname
PluginRun("PlugIn","GetHost")
PluginGet("PlugIn","MyIP$")
Message("My
IP is: ","MyIP$")
EmptyRecycle: PluginRun("PlugIn", "EmptyRecycle")
DisableClose: This will disable to close button of your program.
Example:
Title$ = 'Welcome!'
** Title$ is the title of
your project
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","DisableClose")
DisableMin: This will disable to minimize button of your program.
Example:
Title$ = 'Welcome!'
** Title$ is the title of
your project
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","DisableMin")
MinimizeAll: PluginRun("PlugIn", "MinimizeAll")
Explorer: PluginRun("PlugIn", "Explorer")
This will run the Explorer
FindFiles: PluginRun("PlugIn", "FindFiles")
This will run the Search program
Run: Run a file
with parameters... BUG FIXED!
Example:
param$
= 'C:\Test.txt')
PluginSet("PlugIn","param$")
PluginRun("PlugIn","Parameters")
Filename$
= 'C:\Windows\Notepad.exe'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","Run")
RunHidden: This
will run a file (with parameters if you want) hidden <------------- NEW
Example:
param$
= 'C:\Test.exe')
PluginSet("PlugIn","param$")
PluginRun("PlugIn","Parameters")
Filename$
= 'ExampleParameter'
PluginSet("PlugIn","Filename$")
PluginRun("PlugIn","Run")
GetTime: This
will get the current time on the PC
Example:
PluginRun("PlugIn","GetTime")
PluginGet("PlugIn","Time$")
Message("The
time is: ","Time$")
GetDate: This
will get the current date on the PC
Example:
PluginRun("PlugIn","GetDate")
PluginGet("PlugIn","Date$")
Message("The
time is: ","Date$")
Encrypt: This
will encrypt a string variable in MMB
Example: Uses CryptKey (Integer, any number)
**CryptKey
is used to set a key to encrypt and decrypt
Key$='1'
value
= VAL(Key$)
PluginSet("PlugIn","value")
PluginRun("PlugIn","CryptKey")
Hi$
= 'Hello MMB'
PluginSet("PlugIn","Hi$")
PluginRun("PlugIn","Encrypt")
PluginGet("PlugIn","Test$")
Message("the
encryption is: ","Test$")
**This
shows the encyrpted data
Decrypt: This
will encrypt a string variable in MMB
Example: Uses CryptKey (Integer, any number)
**CryptKey
is used to set a key to encrypt and decrypt
Key$='1'
value
= VAL(Key$)
PluginSet("PlugIn","value")
PluginRun("PlugIn","CryptKey")
Hi$
= 'Hello MMB'
PluginSet("PlugIn","Hi$")
PluginRun("PlugIn","Decrypt")
PluginGet("PlugIn","Test$")
Message("the
decryption is: ","Test$")
**This
shows the decyrpted data
Caption: Change
the caption of your project on runtime!
NewName$
= 'Cool huh?'
**
NewName$ is the title you want it to be changed to...
PluginSet("PlugIn","NewName$")
PluginRun("PlugIn","Filename")
Title$
= 'Welcome!'
**
Title$ is the title of your project
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","Caption")
Flash: This
will flash your project's caption (once)
Title$
= 'Welcome!'
**
Title$ is the title of your project
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","Caption")
HideFromTaskbar: This
will hide your program from the taskbar <------------- NEW
Title$
= 'Welcome!'
**
Title$ is the title of your project
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","HideFromTaskbar")
Terminate: This
can terminate any program, just need to know its caption...
Title$
= 'Welcome!'
**
Title$ is the title of the program you want to close
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","Terminate")
Minimize: This
will minimize any program, just need to put its caption
Title$
= 'Welcome!'
**
Title$ is the title of your project or any other program...
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","Minimize")
BringToTop: This
will bring any program to the top of the screen, just put its caption
Title$
= 'Welcome!'
**
Title$ is the title of your project or any other
PluginSet("PlugIn","Title$")
PluginRun("PlugIn","BringToTop")
**Note: Remember that MMB is case sensitive that that my commands do have
caps in the middle... :)
mmbmisc supports
<Embedded>, <Windows> and <SrcDir> **
Bugs
I
fixed all of the known bugs! But with so many features there has go to be a few bugs ;)
so if anyone finds some bugs, please tell me.
If you have any questions, comments, sugestions or if you have found a bug, please contact us at Squash@cv.cl or visit our website.
Donate
Please
help us help you.
You can use all our freeware plugins
(MMBMisc, MMBPad, MMMessage, MMBCalendar, MMBRegister, MMBPlaylist and others) without paying a penny (or a dime
hehe) But if you use our plugin frecuently or really like them :) please donate so we can make even better plugins to enhace
MMB!
If you would like to donate please visit:
http://www.SquashPlugins.f2s.com/donate.htm
Thanks a lot, your donation will not go unseen
Note: By no means are you obligated to donate :)
MMBMisc v.1.0 Beta
By Matthew Woodhams
Squash Productions
Squash@cv.cl
http://www.squashplugins.com