Jump to content

Recommended Posts

Posted

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

Posted

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

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...