Fonts portable

[icadea]

Could not find this in the forum after search...

Am posting what was found on the link below

http://portableapps.com/node/12912

The download link

http://www.mediafire.com/?0itmcsywj5l

The source

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=fonts-portable.ico
#AutoIt3Wrapper_outfile=..\..\FontsPortable.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Description=Fonts Portable
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Process.au3>
#include <Misc.au3>

Opt("TrayMenuMode", 1);
Opt("TrayOnEventMode", 1);
TraySetToolTip("Fonts Portable");

_Singleton("FontsPortable");

Local $files = FileFindFirstFile(@ScriptDir & "\Data\fonts\*.ttf");
If $files == -1 Then
    MsgBox(48, "No Fonts", "No fonts were found in the directory " & @ScriptDir & "\Data\fonts\.");
Else
    While True
        Local $file = FileFindNextFile($files);
        If @error Then ExitLoop;
        ShellExecute($file, "", @ScriptDir & "\Data\fonts\", "open", @SW_HIDE);
    WEnd
EndIf


Dim $openFontsDirItem = TrayCreateItem("&Open Fonts Directory");
Dim $reloadFontsDirItem = TrayCreateItem("&Reload Fonts");
TrayCreateItem("");
Dim $exitItem = TrayCreateItem("&Exit");

TrayItemSetOnEvent($openFontsDirItem, "openFontsDirItem_Click");
TrayItemSetOnEvent($reloadFontsDirItem, "reloadFontsDirItem_Click");
TrayItemSetOnEvent($exitItem, "exitItem_Click");

While True
    Sleep(200);
WEnd

Func openFontsDirItem_Click()
    If FileExists(@ScriptDir & "\..\XenonPortable\XenonPortable.exe") Then
        ShellExecute(@ScriptDir & "\..\XenonPortable\XenonPortable.exe", @ScriptDir & "\Data\fonts");
    Else
        ShellExecute(@ScriptDir & "\Data\fonts");
    EndIf
EndFunc

Func reloadFontsDirItem_Click()
    Dim $windows = WinList();
    Dim $i;
    For $i = 1 To $windows[0][0]
        Dim $process = WinGetProcess($windows[$i][1]);
        If _ProcessGetName($process) = "fontview.exe" And BitAND(WinGetState($windows[$i][1]), 2) <> 2 Then ;; This is a font viewer and is not visible.
            WinClose($windows[$i][1]);
        EndIf
    Next
    
    Local $files = FileFindFirstFile(@ScriptDir & "\Data\fonts\*.ttf");
    If $files == -1 Then
        MsgBox(48, "No Fonts", "No fonts were found in the directory " & @ScriptDir & "\Data\fonts\.");
    Else
        While True
            Local $file = FileFindNextFile($files);
            If @error Then ExitLoop;
            ShellExecute($file, "", @ScriptDir & "\Data\fonts\", "open", @SW_HIDE);
        WEnd
    EndIf
EndFunc

Func exitItem_Click()
    SplashTextOn("Fonts Portable", "Please wait while Fonts Portable closes.", 200, 50);
    Dim $windows = WinList();
    Dim $i;
    For $i = 1 To $windows[0][0]
        Dim $process = WinGetProcess($windows[$i][1]);
        If _ProcessGetName($process) = "fontview.exe" And BitAND(WinGetState($windows[$i][1]), 2) <> 2 Then ;; This is a font viewer and is not visible.
            WinClose($windows[$i][1]);
        EndIf
    Next
    SplashOff();
    
    Exit(0);
EndFunc