Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

Progressbar mit FileCopyDir auf WinCE


  • Please log in to reply
33 replies to this topic
Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Hallo alle

 

Ich brauche zu Progressbar auch mal bitte eure Hilfe .

 

Ich hätte gern in mein Backup-Restore Tool auch eine Progressbar weil der Kopiervorgang  meistens mindestens 10 Minuten dauert .

 

Habe das auch schon soweit hinbekommen das eine Progressbar angezeigt wird , ist auch nach der Größe von Ordner My Flash Disk  berechnen , das passt schon mal , zwar noch nicht perfekt aber es kommt hin , bei einem 10 Minuten Backup läuft die Prograssbar 10 Minuten 35 Sekunden  .

 

Aber das eigentliche Problem ist für mich das ich diese  Progressbar in Ausübung eines Kopierbefehl haben möchte ,

 

 FileCopyDir, \My Flash Disk, %Save%,1

 

Dieser FileCopyDir führt den Befehl erst fertig aus ehe am Fortschrittbalken etwas fortgeführt wird .

 

Wie schaffe ich es das dass Script während  FileCopyDir weiter arbeitet und nicht wartet ?

 

Ist eigentlich das gleiche Problem wie von diesem User

http://www.autohotke...8f3226b35e211a0

 

 

Hier ist zwar eine Lösung aber ich glaube nicht für mich da ich ein ganzen Ordner mit Unterordner kopiere , oder ?

http://www.autohotke...ck/#entry136263

 

und da es auf WinCE sein muss geht es bestimmt nicht mit diese dllcall , oder ?

 

 

 

Gruß Manni     

 

 

 

; Backup Restore MFD

#Persistent
#NoEnv
#SingleInstance force
#NoTrayIcon

IfExist \Storage Card\Gopalworld-Skin\My Flash Disk\menu.exe
Save := "\Storage Card\Gopalworld-Skin\My Flash Disk"
Else
Save := "\Storage Card\Backup\My Flash Disk"

Backup := 0
Restore := 0


Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y259 w420 h10



SetBatchLines, -1
Ordnergröße = 0
BeliebigerOrdner := "\My Flash Disk"
Loop, %BeliebigerOrdner%\*.*, , 1
    Ordnergröße += %A_LoopFileSize%
;MsgBox, 0x0,, Der Ordner %BeliebigerOrdner% hat eine Größe von %Ordnergröße% Bytes.



 MsgBox, 0x4,,  Die My Flash Disk auf Storage Card sichern ?
    IfMsgBox Yes
        {
        Backup := 1
        }
        Else
        {
        IfExist %Save%
        {
        Restore := 1
        MsgBox, 0x4,,  Die My Flash Disk Sinerung von Storage Card Restoren  ?
        }
        Else
        {
        MsgBox, 0x0,Timeout, Du hast noch kein Backup angelegt !
        ExitApp
        }
        }
        IfMsgBox No
        ExitApp
        
        

Process, Close,Poiwarner.exe
Process, Close,ST.exe
Process, Close,AudioManager.exe
Process, Close,ssp.exe
Process, Close,ssp_so.exe
Process, Close,Menue.exe
Process, Close,LowBatteryWarning.exe
Process, Close,FirstStartAP.exe
Process, Close,GnsFmTSrvc.exe
Process, Close,PhoneLink.exe
Process, Close,FMTService.exe



If Backup = 1
{
FileCreateDir,  %Save%
FileCopyDir, \My Flash Disk, %Save%,1
    
i=0
Ordnergröße2 := Ordnergröße / 1000 / 1000 * 12
;MsgBox, 0x0,, %Ordnergröße2%
SetTimer,aa,%Ordnergröße2%
return

    aa:
    i++
    GuiControl,, MyProgress, %i%
    if i=100
       {
       Gui, Destroy
       SetTimer,aa,off
       GoTo, ende
       }
    return
    
 Ende:
 
SoundBeep, 750, 500
Sleep, 500
ExitApp
}


MsgBox, 0x4,, Soll vorm Restore die My Flash Disk gelöscht  werden , dann geht das Restoren schneller  ?
IfMsgBox Yes
    {
    FileRemoveDir, \My Flash Disk\MapRegions, 1
    FileRemoveDir, \My Flash Disk\Navigation, 1
    FileRemoveDir, \My Flash Disk\Bluetooth, 1
    FileRemoveDir, \My Flash Disk\settings, 1
    FileRemoveDir, \My Flash Disk\CLM, 1
    FileRemoveDir, \My Flash Disk\dokus, 1
    FileRemoveDir, \My Flash Disk\Programme, 1
    FileRemoveDir, \My Flash Disk\Startmenue, 1
    
    FileDelete,  \My Flash Disk\*.*
    }

Sleep, 500

    
If Restore = 1
{
FileCopyDir, %Save%, \My Flash Disk ,1

; Hier kommt dann auch noch das was in Backup steht rein .

}

SoundBeep, 750, 500
Sleep, 500
MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
ExitApp


 


lasso
  • Members
  • 111 posts
  • Last active: May 19 2013 04:19 PM
  • Joined: 02 Nov 2012


wink.png

#SingleInstance off
if(%0%){
  Startordner=%1%
  Zielordner =%2%
  FilecopyDir,%Startordner%,%Zielordner%
  ExitApp
}

Startordner := "C:\blah"
Zielordner := "C:\blup"

Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y259 w420 h10

var1 := Ordnergroesse(Startordner)
SetTimer, CheckProgress, 100

Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%"
return

CheckProgress:
Gui,Submit, NoHide
var2 := Ordnergroesse(Zielordner)
GuiControl,,MyProgress,% (var2/var1)*100
if(var2==var1){
  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
}
return

Ordnergroesse(Ordner){
Ordnergröße = 0
Loop, %Ordner%\*.* , , 1
    Ordnergröße += %A_LoopFileSize%
 return Ordnergröße
}

GuiClose:
ExitApp


Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Danke danke lasso

 

Ihr habt es voll drauf .

 

Klappt alles , Backup auch mit Überschreiben und Restore genauso .

 

Einzige ist das es das Tool nicht beendet wenn die Meldung kommt

Der Kopiervorgang ist abgeschlossen !
 , so wie ich das erkenne laufen zwei gleichnamige  Prozesse ?
kann man das noch irgendwie hin bekommen ? 
das #NoTrayIcon brauche ich für WinCE 6 , WinCE 5 kommt ohne dem klar  
Gruß Manni 

 

 

 

; Backup Restore MFD

#SingleInstance off
#NoTrayIcon


if(%0%){
  Startordner=%1%
  Zielordner =%2%
  FilecopyDir,%Startordner%,%Zielordner%, 1
  ExitApp
}

Startordner := "\My Flash Disk"

Backup  := 0
Restore := 0

IfExist \Storage Card\Gopalworld-Skin\My Flash Disk\menu.exe
    Zielordner := "\Storage Card\Gopalworld-Skin\My Flash Disk"
Else
    Zielordner := "\Storage Card\Backup\My Flash Disk"


MsgBox, 0x4,,  Die My Flash Disk auf Storage Card sichern ?
    IfMsgBox Yes
        {
        Backup := 1
        }
        Else
        {
        IfExist %Zielordner%
            {
            Restore := 1
            Backup := 0
            MsgBox, 0x4,,  Die My Flash Disk Sinerung von Storage Card Restoren  ?    
            }
            Else
            {
            MsgBox, 0x0,Timeout, Du hast noch kein Backup angelegt !
            ExitApp
            }
            }
            IfMsgBox No
                ExitApp
        
Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y220 w420 h10
                
Process, Close,Poiwarner.exe
Process, Close,ST.exe
Process, Close,AudioManager.exe
Process, Close,ssp.exe
Process, Close,ssp_so.exe
Process, Close,Menue.exe
Process, Close,LowBatteryWarning.exe
Process, Close,FirstStartAP.exe
Process, Close,GnsFmTSrvc.exe
Process, Close,PhoneLink.exe
Process, Close,FMTService.exe

If Backup = 1
    {
    var1 := Ordnergroesse(Startordner)
    }

If Restore = 1
    {
    var1 := Ordnergroesse(Zielordner)
    }

SetTimer, CheckProgress, 100

If Backup = 1
{
Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%"
}

If Restore = 1
{
MsgBox, 0x4,, Soll vorm Restore die My Flash Disk gelöscht  werden , dann geht das Restoren schneller  ?
IfMsgBox Yes
    {
    FileRemoveDir, \My Flash Disk\MapRegions, 1
    FileRemoveDir, \My Flash Disk\Navigation, 1
    FileRemoveDir, \My Flash Disk\Bluetooth, 1
    FileRemoveDir, \My Flash Disk\settings, 1
    FileRemoveDir, \My Flash Disk\CLM, 1
    FileRemoveDir, \My Flash Disk\dokus, 1
    FileRemoveDir, \My Flash Disk\Programme, 1
    FileRemoveDir, \My Flash Disk\Startmenue, 1
    
    FileDelete,  \My Flash Disk\*.*
    }
    
Run, "%A_ScriptFullPath%" "%Zielordner%" "%Startordner%"

}
return

CheckProgress:
Gui,Submit, NoHide

If Backup = 1
    {
    var2 := Ordnergroesse(Zielordner)
    }

If Restore = 1
    {
    var2 := Ordnergroesse(Startordner)
    }

GuiControl,,MyProgress,% (var2/var1)*100
if(var2==var1){

  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
  ExitApp
}
return

Ordnergroesse(Ordner){
Ordnergröße = 0
Loop, %Ordner%\*.* , , 1
    Ordnergröße += %A_LoopFileSize%
 return Ordnergröße
}

GuiClose:
ExitApp

 


Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Ich mach einfach ein Shutdown 2  anstatt ExitApp hinter

MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !

 

Nach solchen Aktionen ist es auf Navi eh besser ein SR zu machen .

 

 

Muss ich eh machen weil alle Prozesse beendet sind .

 

Danke noch mal lasso

 

Gruß Manni



Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Hi lasso

 

Klappt immer noch alles .

 

Nur eine Kleinigkeit , für euch mit Sicherheit .

 

Backup so wie Du es mir gegen hast funktioniert es tadellos ,  Restore funktioniert auch soweit , wenn aber bei Restore der Zielordner , im Restore Fall lautet er My Flash Disk , größer ist als der Startordner dann kommt er nicht an der Meldung

 Der Kopiervorgang ist abgeschlossen !   

also if(var2==var1) wird nicht erfüllt , ich habe schon mit

if(var2>=var1)

Probiert , dann geht es zwar aber nicht mehr wenn Ziel und Startordner gleich sind , wenn Zielordner kleiner als Startordner geht es sowieso .

 

Backup mach überhaupt kein Problem .

 

Gruß Manni

 

 

 

 

 

; Backup Restore MFD

#SingleInstance off
#NoTrayIcon

if(%0%){
  Startordner=%1%
  Zielordner =%2%
  FilecopyDir,%Startordner%,%Zielordner%, 1
  ExitApp
}

Startordner := "\My Flash Disk"

Backup  := 0
Restore := 0

IfExist \Storage Card\Gopalworld-Skin\My Flash Disk\menu.exe
    Zielordner := "\Storage Card\Gopalworld-Skin\My Flash Disk"
Else
    Zielordner := "\Storage Card\Backup\My Flash Disk"


MsgBox, 0x4,,  Die My Flash Disk auf Storage Card sichern ?
    IfMsgBox Yes
        {
        Backup := 1
        }
        Else
        {
        IfExist %Zielordner%
            {
            MsgBox, 0x4,,  Die My Flash Disk Sinerung von Storage Card Restoren  ?    
            IfMsgBox Yes
            Restore := 1
            }
            Else
            {
            SoundBeep, 750, 500
            MsgBox, 0x0,Timeout, Du hast noch kein Backup angelegt !
            ExitApp
            }
            }
            IfMsgBox No
                ExitApp
        
Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y220 w420 h10
                
Process, Close,Poiwarner.exe
Process, Close,ST.exe
Process, Close,AudioManager.exe
Process, Close,ssp.exe
Process, Close,ssp_so.exe
Process, Close,Menue.exe
Process, Close,LowBatteryWarning.exe
Process, Close,FirstStartAP.exe
Process, Close,GnsFmTSrvc.exe
Process, Close,PhoneLink.exe
Process, Close,FMTService.exe

If Backup = 1
    {
    var1 := Ordnergroesse(Startordner)
    }

If Restore = 1
    {
    var1 := Ordnergroesse(Zielordner)
    }

SetTimer, CheckProgress, 100

If Backup = 1
{
Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%"
}

If Restore = 1
{
SoundBeep, 750, 500
MsgBox, 0x4,, Soll vorm Restore die My Flash Disk gelöscht  werden , dann geht das Restoren schneller  ?
IfMsgBox Yes
    {
    FileRemoveDir, \My Flash Disk\MapRegions, 1
    FileRemoveDir, \My Flash Disk\Navigation, 1
    FileRemoveDir, \My Flash Disk\Bluetooth, 1
    FileRemoveDir, \My Flash Disk\settings, 1
    FileRemoveDir, \My Flash Disk\CLM, 1
    FileRemoveDir, \My Flash Disk\dokus, 1
    FileRemoveDir, \My Flash Disk\Programme, 1
    FileRemoveDir, \My Flash Disk\Startmenue, 1
    
    FileDelete,  \My Flash Disk\*.*
    }
    
Run, "%A_ScriptFullPath%" "%Zielordner%" "%Startordner%"

}
return

CheckProgress:
Gui,Submit, NoHide

If Backup = 1
    {
    var2 := Ordnergroesse(Zielordner)
    }

If Restore = 1
    {
    var2 := Ordnergroesse(Startordner)
    }


GuiControl,,MyProgress,% (var2/var1)*100
if(var2==var1){
    SoundBeep, 750, 500
     MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
      Shutdown 2
}


return

Ordnergroesse(Ordner){
Groesse = 0
Loop, %Ordner%\*.* , , 1
    Groesse += %A_LoopFileSize%
 return Groesse
}

GuiClose:
ExitApp


 


lasso
  • Members
  • 111 posts
  • Last active: May 19 2013 04:19 PM
  • Joined: 02 Nov 2012

du kannst folgendes versuchen

OnMessage(0x5555, "MsgMonitor")
MsgMonitor(wParam, lParam, msg){
  global
  abgeschlossen := (wParam == A_ScriptHwnd)
}
if(%0%){
  Startordner=%1%
  Zielordner =%2%
  hwnd =%3%
  FilecopyDir,%Startordner%,%Zielordner%, 1
  PostMessage, 0x5555,hwnd,hwnd,% "ahk_id" hwnd
  ExitApp
}

... ...

Run, "%A_ScriptFullPath%" "%Zielordner%" "%Startordner%" %A_ScriptHwnd%


CheckProgress:

... ...

if(abgeschlossen){
  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
  ExitApp
}
return


Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Danke lasso

 

Probiere ich .

 

Gruß Manni



Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Hi lasoo

 

Das Tool macht jetzt alles richtig , Backup  auch mehrmals überschreiben wenn zusätzliche Dateien im Startorder .

 

Restore jetzt mit Fortschrittsbalken der auch ansteigt , auch wenn zusätzliche Dateien im Zielordner im diesem Fall My Flash Disk .

 

Also so wie es sein soll .

 

Nur das Tool beendet nicht wenn Kopieren erledigt ist .

 

Es kommt nicht ins  

  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !

 

 

Sonst ist alles perfekt .

 

Gruß Manni

 

 

 

; Backup Restore MFD

#SingleInstance off
#NoTrayIcon

OnMessage(0x5555, "MsgMonitor")
MsgMonitor(wParam, lParam, msg){
  global
  abgeschlossen := (wParam == A_ScriptHwnd)
}
if(%0%){
  Startordner=%1%
  Zielordner =%2%
  hwnd =%3%
  FilecopyDir,%Startordner%,%Zielordner%, 1
  PostMessage, 0x5555,hwnd,hwnd,% "ahk_id" hwnd
  ExitApp
}


Startordner := "\My Flash Disk"

Backup  := 0
Restore := 0

IfExist \Storage Card\Gopalworld-Skin\My Flash Disk\menu.exe
    Zielordner := "\Storage Card\Gopalworld-Skin\My Flash Disk"
Else
    Zielordner := "\Storage Card\Backup\My Flash Disk"


MsgBox, 0x4,,  Die My Flash Disk auf Storage Card sichern ?
    IfMsgBox Yes
        {
        Backup := 1
        }
        Else
        {
        IfExist %Zielordner%
            {
            MsgBox, 0x4,,  Die My Flash Disk Sinerung von Storage Card Restoren  ?    
            IfMsgBox Yes
            Restore := 1
            }
            Else
            {
            SoundBeep, 750, 500
            MsgBox, 0x0,Timeout, Du hast noch kein Backup angelegt !
            ExitApp
            }
            }
            IfMsgBox No
                ExitApp
        
Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y220 w420 h10
                
Process, Close,Poiwarner.exe
Process, Close,ST.exe
Process, Close,AudioManager.exe
Process, Close,ssp.exe
Process, Close,ssp_so.exe
Process, Close,Menue.exe
Process, Close,LowBatteryWarning.exe
Process, Close,FirstStartAP.exe
Process, Close,GnsFmTSrvc.exe
Process, Close,PhoneLink.exe
Process, Close,FMTService.exe
Process, Close,LaunchAutoSuspend.exe
Process, Close,iPT_Menu.exe
Process, Close,MortScript.exe

If Backup = 1
    {
    var1 := Ordnergroesse(Startordner)
    }

If Restore = 1
    {
    var1 := Ordnergroesse(Zielordner)
    }

SetTimer, CheckProgress, 100

If Backup = 1
{
Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%"%A_ScriptHwnd%
}



If Restore = 1
{
SoundBeep, 750, 500
MsgBox, 0x4,, Soll vorm Restore die My Flash Disk gelöscht  werden , dann geht das Restoren schneller  ?
IfMsgBox Yes
    {
    FileRemoveDir, \My Flash Disk\MapRegions, 1
    FileRemoveDir, \My Flash Disk\Navigation, 1
    FileRemoveDir, \My Flash Disk\Bluetooth, 1
    FileRemoveDir, \My Flash Disk\settings, 1
    FileRemoveDir, \My Flash Disk\CLM, 1
    FileRemoveDir, \My Flash Disk\dokus, 1
    FileRemoveDir, \My Flash Disk\Programme, 1
    FileRemoveDir, \My Flash Disk\Startmenue, 1
    
    FileDelete,  \My Flash Disk\*.*
    }
    
Run, "%A_ScriptFullPath%" "%Zielordner%" "%Startordner%" %A_ScriptHwnd%

}
return



CheckProgress:



Gui,Submit, NoHide
GuiControl,,MyProgress,% (var2/var1)*100

If Backup = 1
    {
    var2 := Ordnergroesse(Zielordner)
    }

If Restore = 1
    {
    var2 := Ordnergroesse(Startordner)
    }


if(abgeschlossen){
    SoundBeep, 750, 500
     MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
     ExitApp
}
return



Ordnergroesse(Ordner){
Groesse = 0
Loop, %Ordner%\*.* , , 1
    Groesse += %A_LoopFileSize%
 return Groesse
}

GuiClose:
ExitApp

 


lasso
  • Members
  • 111 posts
  • Last active: May 19 2013 04:19 PM
  • Joined: 02 Nov 2012

du hast ein space unterschlagen

vor %A_ScriptHwnd%


if(Backup == 1){
  Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%" %A_ScriptHwnd%
}

und timer ausmachen


if(abgeschlossen){
  SetTimer,CheckProgress,Off
  SoundBeep, 750, 500
  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
  ExitApp
}


Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Hi lasso

 

Nein geht trotzdem nicht auf

 if(abgeschlossen)

 

Gruß Manni

; Backup Restore MFD

#SingleInstance off
#NoTrayIcon

OnMessage(0x5555, "MsgMonitor")
MsgMonitor(wParam, lParam, msg){
  global
  abgeschlossen := (wParam == A_ScriptHwnd)
}
if(%0%){
  Startordner=%1%
  Zielordner =%2%
  hwnd =%3%
  FilecopyDir,%Startordner%,%Zielordner%, 1
  PostMessage, 0x5555,hwnd,hwnd,% "ahk_id" hwnd
  ExitApp
}


Startordner := "\My Flash Disk"

Backup  := 0
Restore := 0

IfExist \Storage Card\Gopalworld-Skin\My Flash Disk\menu.exe
    Zielordner := "\Storage Card\Gopalworld-Skin\My Flash Disk"
Else
    Zielordner := "\Storage Card\Backup\My Flash Disk"


MsgBox, 0x4,,  Die My Flash Disk auf Storage Card sichern ?
    IfMsgBox Yes
        {
        Backup := 1
        }
        Else
        {
        IfExist %Zielordner%
            {
            MsgBox, 0x4,,  Die My Flash Disk Sinerung von Storage Card Restoren  ?    
            IfMsgBox Yes
            Restore := 1
            }
            Else
            {
            SoundBeep, 750, 500
            MsgBox, 0x0,Timeout, Du hast noch kein Backup angelegt !
            ExitApp
            }
            }
            IfMsgBox No
                ExitApp
        
Gui, +AlwaysOnTop -SysMenu -Border
Gui, Add, Progress, x0 y0 w420 h10 cBlue vMyProgress Range0-100
Gui, Show, x20 y220 w420 h10
                
Process, Close,Poiwarner.exe
Process, Close,ST.exe
Process, Close,AudioManager.exe
Process, Close,ssp.exe
Process, Close,ssp_so.exe
Process, Close,Menue.exe
Process, Close,LowBatteryWarning.exe
Process, Close,FirstStartAP.exe
Process, Close,GnsFmTSrvc.exe
Process, Close,PhoneLink.exe
Process, Close,FMTService.exe
Process, Close,LaunchAutoSuspend.exe
Process, Close,iPT_Menu.exe
Process, Close,MortScript.exe

If Backup = 1
    {
    var1 := Ordnergroesse(Startordner)
    }

If Restore = 1
    {
    var1 := Ordnergroesse(Zielordner)
    }

SetTimer, CheckProgress, 100

if(Backup == 1){
Run, "%A_ScriptFullPath%" "%Startordner%" "%Zielordner%" %A_ScriptHwnd%
}

If Restore = 1
{
SoundBeep, 750, 500
MsgBox, 0x4,, Soll vorm Restore die My Flash Disk gelöscht  werden , dann geht das Restoren schneller  ?
IfMsgBox Yes
    {
    FileRemoveDir, \My Flash Disk\MapRegions, 1
    FileRemoveDir, \My Flash Disk\Navigation, 1
    FileRemoveDir, \My Flash Disk\Bluetooth, 1
    FileRemoveDir, \My Flash Disk\settings, 1
    FileRemoveDir, \My Flash Disk\CLM, 1
    FileRemoveDir, \My Flash Disk\dokus, 1
    FileRemoveDir, \My Flash Disk\Programme, 1
    FileRemoveDir, \My Flash Disk\Startmenue, 1
    
    FileDelete,  \My Flash Disk\*.*
    }
    
Run, "%A_ScriptFullPath%" "%Zielordner%" "%Startordner%" %A_ScriptHwnd%

}
return

CheckProgress:

Gui,Submit, NoHide
GuiControl,,MyProgress,% (var2/var1)*100

If Backup = 1
    {
    var2 := Ordnergroesse(Zielordner)
    }

If Restore = 1
    {
    var2 := Ordnergroesse(Startordner)
    }

if(abgeschlossen){
  SetTimer,CheckProgress,Off
  SoundBeep, 750, 500
  MsgBox, 0x0,fertig, Der Kopiervorgang ist abgeschlossen !
  ExitApp
}

return

Ordnergroesse(Ordner){
Groesse = 0
Loop, %Ordner%\*.* , , 1
    Groesse += %A_LoopFileSize%
 return Groesse
}

GuiClose:
ExitApp




Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

PostMessage ist schwatz geschrieben  für WinCE ,

 

gibt es dafür eine andere Möglichkeit ?

 

Gruß Manni  



lasso
  • Members
  • 111 posts
  • Last active: May 19 2013 04:19 PM
  • Joined: 02 Nov 2012

was !!!

ich glaubs nicht

dann die registry oder env

oder gar ein logfile

ich bin sicher dir fällt selbst was ein



Manni 123
  • Members
  • 84 posts
  • Last active: Jan 10 2016 12:56 AM
  • Joined: 02 Dec 2012

Doch .

 

AHK WinCE Befehle

https://ahknet.autoh...ngCommands.html

 

habe ich nicht verstanden  , registry oder env ?

 

Gruß Manni



lasso
  • Members
  • 111 posts
  • Last active: May 19 2013 04:19 PM
  • Joined: 02 Nov 2012
ok env geht bei dir wohl nicht
aber
RegWrite |-> RegRead & RegDelete
ist verfügbar
oder eben ein logfile vom zweiten prozess schreiben
und vom ersten prozess lesen und löschen

nnnik
  • Members
  • 1625 posts
  • Last active: Jan 24 2019 02:19 PM
  • Joined: 28 Jul 2012

Du startest zuerst das Kopier skript und dann das Skript, welches die Gui kontrolliert, und schaust ob das Fenster des anderen Prozesses noch existiert dafür muss dem GuiControl Skript die HWND übergeben werden.

DetecthiddenWindows,on nicht vergessen.

 

Wenn du DLLs auf deinem WINCE ausführen kannst empfehle ich dir die AutoHotkey.dll für MultiTasking, da du dann eine bessere Kontrolle über den anderen Task hast.


Visit the new forum ahkscript.org.

http://ahkscript.org