Jump to content
Sign in to follow this  

launcher app

Recommended Posts

Hi, I made this little launcher, so I don't get a cluttered desktop. The thing is, I don't know how to make the guicreate follow it, when you resize it, and also I added support for drag & drop, but that will of course only allow 1 file to be dragged and dropped, maybe someone know how to make it able to move more dropped files?

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

HotKeySet("{F9}", "notontop")
HotKeySet("{F10}", "ontop")

If UBound(ProcessList(@ScriptName)) > 2 Then Exit

if not fileexists(@appdatadir & "\launcher\") then
dircreate(@appdatadir & "\launcher\")

If $CmdLine[0] <> 0 then FileMove($CmdLine[1], @appdatadir & "\launcher")

$oIE = ObjCreate("Shell.Explorer.2")
_USkin_Init(@ScriptDir & "\includes\Skin.msstyles")
$title = GUICreate("Launcher", 600, 400, 6, 590, BitOR($GUI_SS_DEFAULT_GUI,$WS_SIZEBOX,$WS_THICKFRAME))
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 600, 400)

Opt("WinTitleMatchMode", 2)
WinSetTrans($title, "", 220)


$oIE.navigate(@appdatadir & "\launcher\")

While 1
$msg = GUIGetMsg()
Switch $msg

func notontop()
WinSetOnTop($title, "", 0)
TrayTip("", "F9 - Changed to NOT on top", 5)

func ontop()
WinSetOnTop($title, "", 1)
TrayTip("", "F10 - Changed to ON on top", 5)

Posted Image

Share this post

Link to post
Share on other sites

Hi Mat, works nicely :) you can drag and drop a file over to the compiled exe file, but only 1 file will be moved to the folder, you can mark multiple file, and drag them over, well you can,

but only one is being moved

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...