[Файловая система] Удаление файлов только ПОСЛЕ закрытия окна (WinWaitClose,FileDelete)

[warezoogle3]

Привет Всем!

Написал вот такой код:

AutoItSetOption("WinTitleMatchMode", 2)
AutoItSetOption("WinDetectHiddenText", 1)

FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\idapi32.cfg", @TempDir & "\idapi32.cfg") ;Копируем файлы в временную папку
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\Install RC.exe", @TempDir & "\Install RC.exe")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\KDW ARM_XP.Theme", @TempDir & "\KDW ARM_XP.Theme")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\KDWR.FON", @TempDir & "\KDWR.FON")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\KDWA.FON", @TempDir & "\KDWA.FON")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\Setup.exe", @TempDir & "\Setup.exe")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\logo.jpg", @TempDir & "\logo.jpg")
FileInstall("C:\Documents and Settings\Administrator\Desktop\New Folder\Win 7 Blue New.themepack", @TempDir & "\Win 7 Blue New.themepack")

Run(@TempDir & "\Install RC.exe") ;Запуск

WinWaitClose("Ginza Installation Suite", "Install Ginza") ;Ждем закрития окна

FileDelete(@TempDir & "\idapi32.cfg") ;Удаляем файлы из временной папки
FileDelete(@TempDir & "\Install RC.exe")
FileDelete(@TempDir & "\KDW ARM_XP.Theme")
FileDelete(@TempDir & "\KDWR.FON")
FileDelete(@TempDir & "\KDWA.FON")
FileDelete(@TempDir & "\Setup.exe")
FileDelete(@TempDir & "\logo.jpg")
FileDelete(@TempDir & "\Win 7 Blue New.themepack")

Компилирую,запускаю,копирует файлы в Temp,запускает exe-шник и ... сразу начинает удалять файлы,не ждет закрития окна,причем удаляет так быстро,что даже логотип не успевает появляться в программе.

Что-то я не правильно делаю. Помогите пожалуйста. :beer: :IL_AutoIt_1:

 

[glax24]

Попробуйте вместо

Run

использовать

RunWait

И

WinWaitClose("Ginza Installation Suite", "Install Ginza") ;Ждем закрития окна

можно убрать

 

[kaster]

или поставить задержку после Run. думается мне, что просто окно не успевает появляться, прежде чем скрипт переходит к поиску окна для закрытия.

 

[CreatoR]

Kaster [?]

или поставить задержку после Run

Лучше через _RunWaitWin:

#include <WinAPIEx.au3>

$hWin = _RunWaitWin(@TempDir & "\Install RC.exe", "", "")
WinWaitClose($hWin)

Func _RunWaitWin($sProgram, $sParams, $sClassName = '')
	Local $iPID, $aProcs, $aWins, $hWin
	
	$iPID = Run($sProgram & ' ' & $sParams)
	ProcessWaitClose($iPID)
	Sleep(200)
	
	$aProcs = ProcessList($sProgram)
	
	For $i = 1 To UBound($aProcs)-1
		$aWins = _WinAPI_EnumProcessWindows($aProcs[$i][1])
		
		For $j = 1 To UBound($aWins)-1
			If $aWins[$j][1] = $sClassName Then
				$hWin = $aWins[$j][0]
			EndIf
		Next
	Next
	
	Return $hWin
EndFunc

 

[warezoogle3]

glax24,Kaster,CreatoR
Спасибо огромное,все отлично работает! :beer: :beer: :beer: :IL_AutoIt_1:

CreatoR,до Вашего мастерства мне еще далеко,как до луны! Буду разбиратся,как все это работает.Жутко интересно стало!