Slette filer /skrifttyper

Deletefile(\'den_fil_du_vil_slette\');

/ZIRO

Det kræver du kender filnavnet på de tre typer, fordi så er det bare at slette den som alm filer :

Først skal du vide i hvilket biblotek du har dine fonts liggende :

uses
  Registry;
const
  { Registry key where Folder information is kept }
  SFolderKey = \'\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\';

function GetFolderLocation(const FolderType: string): string;
{ Retrieves from registry path to folder indicated in FolderType }
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;
      if not OpenKey(SFolderKey, False) then { open key where shell folder information is kept. }
        raise ERegistryException.CreateFmt(\'Folder key \"%s\" not found\', [SFolderKey]);
      Result := ReadString(FolderType);  { Get path for specified folder }
      if Result = \'\' then
        raise ERegistryException.CreateFmt(\'\"%s\" item not found in registry\',[FolderType]);
      CloseKey;
    finally
      Free;
    end;
end;


kaldes med  GetFolderLocation(\'Fonts\');

Då er det bare at slette de tre filer. Brug etv Deletefile fra sysutils.

Jens B

borrisholt >> ja det er rigtig, men hvorfor skal du være så hurtig??? var lige ved at skrive det... var nået til lige at hente det og skulle lige til at tilføje deletefile... hmmmmm :-)

/ZIRON

www.ZironSkalHaveEnHurtigereInternetForbindelse.dk

:-)

Jens B

borrisholt >> ja vil jeg meget gerne... kan jo ikke gører for at du får dit arbejde til at give dig en 10 mbit forbindelse, eller hvor meget den nu er på???

/ZIRON

ZIRON, det er ikke anden en en 512\'er.

Jens B

Takker for det hurtige svar!

skalerbar >> ja ja bare sig hvis du ikke kan lide mig :-)

/ZIRON

borrisholt >> når okay det er da ikke så vildt som jeg havde troet... jeg gider ikke snakke med dig, du er alt for hurtig til mig :-)

/ZIRON

ZIRON >> ABBA ar dkrevet en sang om det her : \"The Winner Takes It All\" :-)

Jens B