Sign in to follow this  
Followers 0
jefhal

Adlib does not work in my script

1 post in this topic

#1 ·  Posted (edited)

In order to insure that my font file is fully copied before running a dll on it, I have a message box pop up and then am trying to use an adlib function to close the message box. Seems plausible, but does not work as written. Any ideas?:

#Include <File.au3>
#Include <Array.au3>

AdlibEnable("_CloseFileCopyConfirmationMsgBox",250)
$SourcePath = "\\Parktaz\c\windows\fonts"
$FileList = _FileListToArray($SourcePath)
$TargetPath = @WindowsDir & "\JunkFolder\"
If (Not IsArray($FileList)) Then
     Exit
EndIf
For $i = 1 to $FileList[0]
    $sFileName = $FileList[$i]
    If FileCopy($SourcePath & "\" & $sFileName, $TargetPath ,1) Then
        $sFileName = $TargetPath & StringTrimLeft($sFileName, StringInStr($sFileName, '\', 0, -1))
        DllCall('gdi32', 'long', "AddFontResourceA", 'String', $sFileName)
    EndIf
Next
Exit

Func _CloseFileCopyConfirmationMsgBox()
    If WinActive("New file name is:") Then ControlClick("New file name is:","","Button1")
EndFunc

It was well buried in the forum threads, but I found this previous comment from Valik:

GuiMsg() blocks like MessageBox or InputBox so it's not possible to use hotkeys or AdLib while it's running.

Maybe this should go into the next manual rev? ;) Edited by jefhal

...by the way, it's pronounced: "JIF"... Bob Berry --- inventor of the GIF format

Share this post


Link to post
Share on other sites



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
Sign in to follow this  
Followers 0