Install fonts on windows 2000

[Gyzmok]

Hi all,

I am still a newbie in autoit, but i like it a lot.

In a script i try to install some new fonts into windows 2000 proffesional.

But it does not seem to work properly.

First i logged in as administrator and tried the following :

FileCopy("D:\temp\*.fon",@WindowsDir & "\fonts",1)
FileCopy("D:\temp\*.ttf",@WindowsDir & "\fonts",1)

But when i checked in C:\WINNT\fonts i saw the .TTF files with 0kb size.

Obviously, the fonts did not install properly.

Can someone please help me out ?

[ezzetabi]

$sFileName is just an example...

$sFileName = 'C:\GAGGERS_.TTF';list separed by | (pipes) of .ttf files.
$a = DllCall('gdi32','long',"AddFontResourceA",'String',$sFilename)

$a[0] is the number of installed fonts, in case of errors it will be 0.

A good fonts site

http://www.fontflood.com/

Edit:

This dllcall does not copy the file in the fonts folder. So I guess it is a good idea copying manually and then call it.

Edited December 14, 2004 by ezzetabi

[Jos]

But when i checked in C:\WINNT\fonts i saw the .TTF files with 0kb size.

Obviously, the fonts did not install properly. 

Can someone please help me out ?

<{POST_SNAPBACK}>

Try:

FileCopy("D:\temp\*.fon",@WindowsDir & "\fonts\",1)
FileCopy("D:\temp\*.ttf",@WindowsDir & "\fonts\",1)

[ezzetabi]

Fixed version.

$sFileName = 'C:\GAGGERS_.TTF'
If FileMove($sFileName, @WindowsDir & '\Fonts',1) Then
   $sFileName = @WindowsDir & '\Fonts\' & StringTrimLeft($sFileName, StringInStr($sFileName, '\', 0, -1))
   DllCall('gdi32', 'long', "AddFontResourceA", 'String', $sFileName)
EndIf

Just tested, it works.

Jdeb, just copying the files often gives problems. It is a good idea installing fonts using the dllcall or the standard windows GUI that you can access in the windows\fonts folder File menu.

Edited December 14, 2004 by ezzetabi

[CoffeeKid]

just copying the files often gives problems. It is a good idea installing fonts using the dllcall or the standard windows GUI that you can access in the windows\fonts folder File menu.

Is there a api call to delete an existing font? I've ran into problems installing a ATM font over an existing older one.

[ezzetabi]

Easy as a cake:

$sFileName = @WindowsDir & '\fonts\GAGGERS_.TTF'
$a = DllCall('gdi32','long',"RemoveFontResourceA",'String',$sFilename)
If not @error and $a[0] <> 0 Then
   FileDelete($sFileName)
EndIf

$a[0] will be <> 0 if everything goes allright.

[Jos]

Jdeb, just copying the files often gives problems. It is a good idea installing fonts using the dllcall or the standard windows GUI that you can access in the windows\fonts folder File menu.

<{POST_SNAPBACK}>

just indicated that the backslash was missing at the end of the Target parameter.

You could be right about the install bid.. dunno much about that.

[CoffeeKid]

Nice! Time to get a book on win32 api. Recommend any books?

[ezzetabi]

www.google.com

[Gyzmok]

Thanks for soo much replys !

@Jdeb :

with or without the extra "\" does not seem to make a difference in all my "filecopy" commands ... ? but ok, i will use it in the future ...

@ezzetabi :

thanks a lot, BUT am i still using Auoit v3.0.102 and apparently the DllCall() function is not implemented in that version.

So i will have to move on to the "unstable" version v3.0.103 to use your solution.

Just how "unstable" is this new version ?

Are the .102 scripts still running fine on the .103 version ?

I am using rather "simple" scripts...is it a great risk to plundge into .103 ?

Greetz

[Gyzmok]

I eventualy did it with an "old fashion" dos .BAT file and this .REG file :

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]

"Fixedsys (Set #6)"="vgafix_0.fon"

"Fixedsys for the IBM 8514"="8514fix0.fon"

"Terminal Font for the IBM 8514"="8514oem0.fon"

"System (Set #6)"="8514sys0.fon"

"Fixedsys 144 DPI"="m144fix.fon"

"Fixed (Set #4)"="m192fix.fon"

"3 of 9 Barcode (TrueType)"="3of9.ttf"

What i find very strange is that the autoit command "filecopy" does not do the same than the dos "Copy" command :

FileCopy($instdrv &"D:\progcel\autoit\*.fon", @WindowsDir & "\fonts\", 1)
FileCopy($instdrv &"D:\progcel\autoit\*.ttf", @WindowsDir & "\fonts\", 1)

after this, in C:\WINNT\FONTS the copied font-files all had a 0kb size ! ?

with this DOS .BAT file :

copy d:\progcel\autoit\*.ttf c:\winnt\fonts\
copy d:\progcel\autoit\*.fon c:\winnt\fonts\

The copied fonts-files in C:\WINNT\FONTS had the correct size and after the execution of the .reg (with autoit), the fonts were installed !

Why did "filecopy" not work ?

[CyberSlug]

FileCopy($instdrv &"D:\progcel\autoit\*.fon", @WindowsDir & "\fonts\", 1)
FileCopy($instdrv &"D:\progcel\autoit\*.ttf", @WindowsDir & "\fonts\", 1)

<{POST_SNAPBACK}>

That does not look right: What is $instdrv contain? FileCopy("D:\D:\progcel\autoit\*.ttf" ......

FileCopy("D:\progcel\autoit\*.ttf", @WindowsDir & "\fonts\", 1)

[ezzetabi]

@ezzetabi :

thanks a lot, BUT am i still using Auoit v3.0.102 and apparently the DllCall() function is not implemented in that version. 

So i will have to move on to the "unstable" version v3.0.103 to use your solution.

Just how "unstable" is this new version ?

Are the .102 scripts still running fine on the .103 version ? 

I am using rather "simple" scripts...is it a great risk to plundge into .103 ?

<{POST_SNAPBACK}>

It is TOTALLY RISKLESS. The 'unstable' word apply to GUI commands that MAY change sintax, but they probably don't anymore. DllCall is pretty defined now, and it is very useful.

[Gyzmok]

@CyberSlug : Aargh ... I overlooked that one, sorry my mistake ! (too much copy/paste)

Thanks !

$instdrv is something i use to scan for the correct drive where i start my scripts from. It scans from drive C to Z. This way my scripts are found "dynamically". (if they are on a cd or on a network drive...)

$instdrv = ""
SplashTextOn("", "Looking for install drive...", 500, 22, 312 ,375 ,1 ,"system", "", "")
sleep(1000)
For $i = 67 to 91
    $instdrv = Chr($i)
    If FileExists($instdrv &":\my_scripts\autoit_script.exe") Then
       SplashTextOn("", "install drive found", 500, 22, 312 ,375 ,1 ,"system", "", "")
       sleep(1000)
       ExitLoop
    EndIf
Next
; if drive = chr(91) = "[" then the correct install drive was not found 
if $instdrv == "[" Then
   SplashTextOn("", "ERROR...INSTALL DRIVE NOT FOUND...ABORT", 500, 22, 312 ,375 ,1 ,"system", "", "")
   sleep(3000)
   exit
EndIf

@ezzetabi : Ok, i installed .103 and the newer Scite editor version + update and

all seems to be OK.

i'll try out the DllCall() and GUI tomorrow.

Thanks for all the help.

Edited December 15, 2004 by Gyzmok

[sugi]

$instdrv is something i use to scan for the correct drive where i start my scripts from. It scans from drive C to Z. This way my scripts are found "dynamically". (if they are on a cd or on a network drive...)

Just a quick note... you know the @ScriptDir macro?

[jefhal]

$sFileName = 'C:\GAGGERS_.TTF'

Does this only work if the original font is already on the same machine? That is, can the source and target machines be different ones? I tried the script and it did not work. I've spent most of the day working on this ridiculous problem!

Figured it out. In order to test properly you need to reboot between deleting a test font and re-installing it with this script. And yes, it does work even if the source font is on a different machine. I have to install 300 fonts on 20 machines and doing this manually is just too tedious...

Edited September 17, 2005 by jefhal