Sign in to follow this  
Followers 0
legend

launcher app

3 posts in this topic

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?

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include 
#include 
#include 

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


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

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

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

$oIE = ObjCreate("Shell.Explorer.2")
_Uskin_LoadDLL()
_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)

GUISetState()

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

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

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  
Followers 0