Main Area and Open Discussion > General Software Discussion

Shortcut Creator

<< < (14/27) > >>

Contro:
Additionally a few weeks ago I decided to control incidents by means of Goldmine 5.5 manager. I have project for my customers and incidents for the rest. When an incident is external I have observed difficulties to control if I don't apply intensive control. Because some phases don't depend upon me. The codes for the incidents are different and are situated in many places.
But the projects are code in the way 125.10 , where 10 is the year.
All hanging from
Y:\GABINETE\PROYECTOS

So Y:\GABINETE\PROYECTOS\125.10\ is a folder i will need when 125.10 project is concerned.
As I commented you above I have a module on excel 2002 to introduce the project number 125.10 and from inside excel access to all folders and files of that project as from goldmine 5.5 too. Using bat, vbs.

I received information from customers or download from the web or Thunderbird often. I don't control emails from goldmine email center.

So
I think is difficult and tricky apply to the active windows without variables because we can loose focus over that windows for any reason (an alarm, a warning/error window, etc.). But if we control the name and path to that windows we can execute with your script and control really where , when and how send the selected file or folder to create the soft link.

Best Regards

ewemoa:
I don't think I understand yet.

Is it that you want to be able to make shortcuts into all open Windows Explorer windows (except the one with files selected)?  That might be possible.

Contro:
This may help :

GetWindowsExplorerPath(_hWnd)
{
   local pid, hMem, pv, pidl, pidl?, explorerPath

   If (A_OSType = "WIN32_NT")
   {
      pid := DllCall("GetCurrentProcessId")
      SendMessage 0x400 + 12   ; CWM_GETPATH = WM_USER + 12
            , pid, 0, , ahk_id %_hWnd%
      hMem := ErrorLevel
      if (hMem != 0)
      {
         pv := DllCall("Shell32\SHLockShared"
            , "UInt", hMem, "UInt", pid)
         if (pv != 0)
         {
            pidl := DllCall("Shell32\ILClone", "UInt", pv)
            DllCall("Shell32\SHUnlockShared", "UInt", pv)
         }
         DllCall("Shell32\SHFreeShared"
            , "UInt", hMem, "UInt", pid)
      }
   }
   Else   ; Win9x
   {
      SendMessage 0x400 + 12   ; CWM_GETPATH = WM_USER + 12
            , 0, 0, , ahk_id %_hWnd%
      pidl? := ErrorLevel
      if (pidl? != 0)
      {
         pidl := DllCall("Shell32\ILClone", "UInt", pidl?)
         DllCall("Shell32\ILGlobalFree", "UInt", pidl?)
      }
   }
   VarSetCapacity(explorerPath, 512, 0)
   DllCall("Shell32\SHGetPathFromIDList"
      , "UInt", pidl, "Str", explorerPath)
   Return explorerPath
}

;-- Example of use

hWnd := WinExist("A")
WinGetClass wClass, ahk_id %hWnd%
If (wClass != "ExploreWClass" and wClass != "CabinetWClass")
   MsgBox Use this only with a Windows Explorer window!
Else
   MsgBox % GetWindowsExplorerPath(hWnd)



******
I observed I need to use the script from inside each folder.

Contro:
I don't think I understand yet.

Is it that you want to be able to make shortcuts into all open Windows Explorer windows (except the one with files selected)?  That might be possible.
-ewemoa (June 21, 2010, 08:42 AM)
--- End quote ---

Exactly well. That's  :-*

ewemoa:
I haven't tried the code you posted, but perhaps it will come in handy later.

Here's an initial attempt at supporting the creation of shortcuts in Windows Explorer windows:

  http://ewemoa.dcmembers.com/tmp/CreateShortcutsIn.exe

SHA1: 9aafb1c4a8b0d77b83e5c5b991094a96812c698f

Navigation

[0] Message Index

[#] Next page

[*] Previous page