Istenilen font'u programinizda windows'a install etmeden kullanmak
{
Programinizla beraber kullandiginiz font dosyasini
kuracaginiz bilgisayara kopyalamaniz gereklidir.
(C:\programim\fuente.ttf gibi)
}

procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource('c:\programim\FUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RemoveFontResource('c:\programim\FUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Start Button'u gizlemek ve tekrar gözükür hale getirmek
// Gizlemek icin
procedure HideStartButton;
var
taskbarhandle,
buttonhandle : HWND;
begin
taskbarhandle := FindWindow('Shell_TrayWnd', nil);
buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
ShowWindow(buttonhandle, SW_HIDE);
end;

// Tekrar göstermek icin
procedure ShowStartButton;
var
taskbarhandle,
buttonhandle : HWND;
begin
taskbarhandle := FindWindow('Shell_TrayWnd', nil);
buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
ShowWindow(buttonhandle, SW_RESTORE);
end;

// Kullanimi:
{Gizle}
procedure TForm1.Button1Click(Sender: TObject);
begin
   HideStartButton;
end;
{Göster}
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowStartButton;
end;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat