blickpunkt-energie.de

TrueCryptPfad = C:\Programme\TrueCrypt\TrueCrypt.exe
 
OnMessage(0x219, "notify_change")
DriveGet, dlist, list, REMOVABLE
Return
 
notify_change(wParam, lParam, msg, hwnd)
{
   SetTimer, CheckUSBDrives, -1000
}
 
CheckUSBDrives:
 
count = 0
 
DriveGet, nlist, list, REMOVABLE
Loop Parse, nlist
   IfNotInString, dlist, %a_LoopField%
   {
	  ; es wird unterstellt, dass sich die tc-Files im Root-VZ befinden
	  Loop, %a_LoopField%:\*.tc, 0, 0
		{
		MsgBox, 4, , Soll der Container %A_LoopFileFullPath% gemountet werden?
 
		IfMsgBox, Yes
			{
			GanzerPfad = %A_LoopFileFullPath%
			SplitPath, GanzerPfad, ContainerName
			if count = 0
			{
				RunWait, %TrueCryptPfad%  /q /v %A_LoopFileFullPath% /l I
				Menu, tray, add, Container %ContainerName% von Laufwerk I trennen, DismountMenuI
				TrayTip , TrueCrypt Container, Container %ContainerName% auf Laufwerk I:\ gemountet, 3, 1
			}
			if count = 1
			{
				RunWait, %TrueCryptPfad%  /q /v %A_LoopFileFullPath% /l J
				Menu, tray, add, Container %ContainerName% von Laufwerk J:\ trennen, DismountMenuJ
				TrayTip , TrueCrypt Container, Container %ContainerName% auf Laufwerk J:\ gemountet, 3, 1
			}
			if count = 2
			{
				RunWait, %TrueCryptPfad%  /q /v %A_LoopFileFullPath% /l K
				Menu, tray, add, Container %ContainerName% von Laufwerk K:\ trennen, DismountMenuK
				TrayTip , TrueCrypt Container, Container %ContainerName% auf Laufwerk K:\ gemountet, 3, 1
			}
			count +=1
			;Menu, tray, add, %A_LoopFileFullPath% trennen, DismountMenu
			}
		}
	dlist := nlist
   }
 
   Menu, tray, add, Alle Laufwerke trennen, DismountAllMenu
 
return
 
DismountMenuI:
IfExist, I:\
	RunWait, %TrueCryptPfad%  /q /d I
return
 
DismountMenuJ:
IfExist, J:\
	RunWait, %TrueCryptPfad%  /q /d J
return
 
DismountMenuK:
IfExist, K:\
	RunWait, %TrueCryptPfad%  /q /d K
return
 
DismountAllMenu:
	RunWait, %TrueCryptPfad%  /q /d
	TrayTip , TrueCrypt Container, Alle Container abgemeldet, 3, 1
return