[Delphi] Mostrar as fontes instaladas no windows

[- NOOB 1]

Ola turma do delphi , Vamos ver essa função meio inutil , mas um diavocê irá usar :p

 

( acabei adicionando mais duas coisinhas sem querer -q )

 

 

- Mostrar as fontes Instaladas no Windows

 

Usaremos :

• 1 ListBox
• 1 Button
  

 

Agora no evento OnClick do button , adicionaremos isto :

 

ListBox1.Items := Screen.Fonts;

 

simples não?

essa função pode parecer inutil mas um dia vocês podem usar ela.

 

- Escondendo/Mostrando o botão Iniciar

 

Usaremos :

• Evento OnActivate
  

essa função é bem legal para quando for criar um virus , com ela as pessoas ja podem até se desesperar ,rs

 

Iremos criar um procedimento primeiramente :

 

procedure EscondeIniciar(Visible:Boolean);

Var taskbarhandle,

buttonhandle : HWND;

begin

taskbarhandle := FindWindow('Shell_TrayWnd', nil);

buttonhandle := GetWindow(taskbarhandle, GW_CHILD);

If Visible=True Then Begin

ShowWindow(buttonhandle, SW_RESTORE); {mostra o botão}

End Else Begin

ShowWindow(buttonhandle, SW_HIDE); {esconde o botão}

end;

end;

 

logo depois iremos chamar ele no Evento OnActivate do form

 

EscondeIniciar(false);

 

ai ele ira sumir e você virá perguntar , e agora como eu arrumo isso?

Simples :

troque de false para true ficando assim :

 

EscondeIniciar(true);

 

 

- Fazendo Calculos de Horas

 

Usaremos :

• 2 Edit's
• 1 Label
• 1 Button
  

esse é um programinha bem util e com esse codigo você pode ter bastante imaginação...

 

Iremos declarar 3 variaveis do tipo TDateTime

assim :

h1: TDateTime;

h2: TDateTime;

resultado: TDateTime;

 

e no evento OnClick do button iremos colocar :

 

h1 := StrToTime(Edit1.Text);

h2 := StrToTime(Edit2.Text);

resultado := Hora2 - Hora1;

Label1.Caption := FormatDateTime('hh:nn:ss',total);

 

 

 

é isso ae pessoal , deem uma olhada , mesmo sendo as vezes meio inutil , um dia você pode precisar e é sempre bom saber :]

Abraços!

 

[guimartino 0]

legal.. eh util mesmo

ashhuass

obrigado!

[vctrop123 1]

inútil até que é mas... quem sabe um dia eu precise.

Add nos favoritos. Obrigado pela inútil postagem kkk

[- NOOB 1]

é bem fraquinha , mas quem sabe um dia você precise né? :P

a ultima de calcular hora é a mais util dai e é bem legal até haha

Abraços!

[soureidosnoob 0]

ahhhh...

 

mano a gente nunca vai precisar disso rsrs , mais obrigado por compartilhar , e bom pra quem gosta de obter mais conhecimento!!

 

levou meu thanks