Pascal

quarta-feira, 8 de junho de 2011

Habilitando e Desabilitando os Destaques de Programas no Windows XP

O Windows XP tem o destaque de programas para facilitar o caminho aos programas que você mais usa.


Isso é bom e é ruim.


Bom, pois economiza o tempo olhando programas que você quase não usa.


Ruim, pois consome recursos do sistema que nem sempre se tem suficiente, ou seja, desabilitar deixa o Windows um pouco mais rápido.


Passo 1 - Botão Direito


Clique com botão direito sobre a barra de tarefas e propriedades


Barra de Tarefas.png


Propriedade da Barra de Tarefas e do Menu Iniciar.png


Passo 2 - Aba Menu Iniciar


Aba Menu Iniciar.png


Personalizar.png


Vá para Aba Avançado



Passo 3 - Realçar Programas recém-instalados


Desmarque a opção.


OK


OK


Pronto. Tudo resolvido

segunda-feira, 14 de junho de 2010

Trojan Downloader Dadobra no Delphi 7 Solução


Esse é um problema que tem acontecido comigo atualmente e creio que alguns de você já deve ter passado ou ainda está passando por esse problema.


Ao compilar e executar um programa em Delphi o antivírus acusa que há um vírus no programa: Trojan Downloader Dadobra.


Entre vários foruns que eu pesquisei que a compilação no Delphi 7 e também C Builder acabam tendo esse problema.


Em testes de compilação pelo prompt de comando a compilação ficou perfeita e sem problemas.


Então vamos a solução.


Passo 1 - Abra o Prompt de Comandos


Iniciar > Executar (ou tecla Windows + R) e digite CMD



Passo 2 - Pasta RTL


Vá até a pasta: C:\Arquivos de programas\Borland\Delphi7\Source\Rtl


com o comando:


cd \Arquivos de programas\Borland\Delphi7\Source\Rtl



Passo 3 - Crie um Subdiretório


digite:


MD Lib



Passo 4 - Make


Digite:


Make


E serão recompiladas as bibliotecas DCU que deverão aparecer no diretório Lib que foi criado anteriormente.



Pode fechar essa janela.


Passo 5 - Faça um backup diretório LIB do Delphi 7


Abra o Windows Explorer e vá até a pasta:


C:\Arquivos de programas\Borland\Delphi7\Lib


Aperte CTRL+C e cole em outra pasta.



Passo 6 - Copie os arquivos


Copie os arquivos criados novos da pasta:


C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\lib


CTRL+C


Para:


C:\Arquivos de programas\Borland\Delphi7\Lib



Sim para todos.


Passo 7 - Abra o Delphi


E faça todos os testes e não há mais problemas.


Qualquer dúvida, crítica ou sugestão entre em contato.


Se necessário

Adicionando o ActiveX Windows Media Player ao Delphi 7

delphi7.jpg


Há vários acessórios no Delphi que podemos utilizar diretamente, mas outros precisam ser adicionados para a sua funcionalidade e eles são acessados através do ActiveX.


Nessa aula vou ensinar como adicionar o Windows Media Player. A versão do Windows Media Player será a mesma instalada no seu Windows.


Passo 1 - Abra o Delphi



Vá ao menu File e feche todos os programas para facilitar a operação.


Passo 2 - Menu Component



Vá ao menu Component e selecione Import ActiveX Control...


Passo 3 - O Componente



Localize na lista Windows Media Player (Version 1.0).


Passo 4 - Instalando


Aperte o botão Install da tela anterior.



Confirme o pacote e aperte OK.



Confirme com Yes.



Ok novamente.



Feche a janela acima.



Confirme para salvar com Yes.


Pronto a instalação está completa.


O componente foi adiciona a aba Activex.



Download do Tutorial em PDF


Escolha um servidor para baixar:











domingo, 23 de maio de 2010

Tabela ASCII


Para quem trabalha com programação e para quem quer colocar uns códigos diferentes na sua página o rede social a tabela ASCII é uma mão na roda.










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DecimalBinárioHexReferência
0
00000000


00

Null - NUL
10000000101Start of Heading - SOH

2


00000010


02

Start of Text - STX

3


00000011


03

End of Text - ETX

4


00000100


04

End of Transmission - EOT

5


00000101


05

Enquiry - ENQ

6


00000110


06

Acknowledge - ACK

7


00000111


07

Bell, rings terminal bell - BEL

8


00001000


08

BackSpace - BS

9


00001001


09

Horizontal Tab - HT

10


00001010


0A

Line Feed - LF

11


00001011


0B

Vertical Tab - VT

12


00001100


0C

Form Feed - FF

13


00001101


0D

Enter - CR

14


00001110


0E

Shift-Out - SO

15


00001111


0F

Shift-In - SI

16


00010000


10

Data Link Escape - DLE

17


00010001


11

Device Control 1 - D1

18


00010010


12

Device Control 2 - D2

19


00010011


13

Device Control 3 - D3

20


00010100


14

Device Control 4 - D4

21


00010101


15

Negative Acknowledge - NAK

22


00010110


16

Synchronous idle - SYN

23


00010111


17

End Transmission Block - ETB

24


00011000


18

Cancel line - CAN

25


00011001


19

End of Medium - EM

26


00011010


1A

Substitute - SUB
27000110111BEscape - ESC

28


00011100


1C

File Separator - FS

29


00011101


1D

Group Separator - GS

30


00011110


1E

Record Separator - RS

31


00011111


1F

Unit Separator - US
320010000020Space - SPC
330010000121!
340010001022"
350010001123#
360010010024$
370010010125%
380010011026&
390010011127'
400010100028(
410010100129)
42001010102A*
43001010112B+
44001011002C,
45001011012D-
46001011102E.
47001011112F/
4800110000300
4900110001311
5000110010322
5100110011333
5200110100344
5300110101355
5400110110366
5500110111377
5600111000388
5700111001399
58001110103A:
59001110113B;
60001111003C<
61001111013D=
62001111103E>
63001111113F?
640100000040@
650100000141A
660100001042B
670100001143C
680100010044D
690100010145E
700100011046F
710100011147G
720100100048H
730100100149I
74010010104AJ
75010010114BK
76010011004CL
77010011014DM
78010011104EN
79010011114FO
800101000050P
810101000151Q
820101001052R
830101001153S
840101010054T
850101010155U
860101011056V
870101011157W
880101100058X
890101100159Y
90010110105AZ
91010110115B[
92010111005C\
93010111015D]
94010111105E^
95010111115F_
960110000060`
970110000161a
980110001062b
990110001163c
1000110010064d
1010110010165e
1020110011066f
1030110011167g
1040110100068h
1050110100169i
106011010106Aj
107011010116Bk
108011011006Cl
109011011016Dm
110011011106En
111011011116Fo
1120111000070p
1130111000171q
1140111001072r
1150111001173s
1160111010074t
1170111010175u
1180111011076v
1190111011177w
1200111100078x
1210111100179y
122011110107Az
123011110117B{
124011111007C|
125011111017D}
126011111107E~
127011111117FDelete
1281000000080Ç
1291000000181ü
1301000001082é
1311000001183â
1321000010084ä
1331000010185à
1341000011086å
1351000011187ç
1361000100088ê
1371000100189ë
138100010108Aè
139100010118Bï
140100011008Cî
141100011018Dì
142100011108EÄ
143100011118FÅ
1441001000090É
1451001000191æ
1461001001092Æ
1471001001193ô
1481001010094ö
1491001010195ò
1501001011096û
1511001011197ù
1521001100098ÿ
1531001100199Ö
154100110109AÜ
155100110119Bø
156100111009C£
157100111019DØ
158100111109E×
159100111119Fƒ
16010100000A0á
16110100001A1ù
16210100010A2ó
16310100011A3ú
16410100100A4ñ
16510100101A5Ñ
16610100110A6ª
16710100111A7º
16810101000A8¿
16910101001A9®
17010101010AA¬
17110101011AB½
17210101100AC¼
17310101101AD¡
17410101110AE«
17510101111AF»
17610110000B0
17710110001B1
17810110010B2
17910110011B3
18010110100B4
18110110101B5Á
18210110110B6Â
18310110111B7À
18410111000B8©
18510111001B9
18610111010BA
18710111011BB
18810111100BC
18910111101BD¢
19010111110BE¥
19110111111BF
19211000000C0
19311000001C1
19411000010C2
19511000011C3
19611000100C4
19711000101C5
19811000110C6ã
19911000111C7Ã
20011001000C8
20111001001C9
20211001010CA
20311001011CB
20411001100CC
20511001101CD
20611001110CE
20711001111CF¤
20811010000D0ð
20911010001D1Ð
21011010010D2Ê
21111010011D3Ë
21211010100D4È
21311010101D5ı
21411010110D6Í
21511010111D7Î
21611011000D8Ï
21711011001D9
21811011010DA
21911011011DB
22011011100DC
22111011101DD¦
22211011110DEÌ
22311011111DF
22411100000E0Ó
22511100001E1ß
22611100010E2Ô
22711100011E3Ò
22811100100E4õ
22911100101E5Õ
23011100110E6µ
23111100111E7þ
23211101000E8Þ
23311101001E9Ú
23411101010EAÛ
23511101011EBÙ
23611101100ECý
23711101101EDÝ
23811101110EE¯
23911101111EF´
24011110000F0­­
24111110001F1±
24211110010F2
24311110011F3¾
24411110100F4
24511110101F5§
24611110110F6÷
24711110111F7¸
24811111000F8°
24911111001F9¨
25011111010FA·
25111111011FB¹
25211111100FC³
25311111101FD²
25411111110FE
25511111111FF

terça-feira, 18 de maio de 2010

Fazer um Programa em Pascal onde Entra 3 Números e Determina o Menor com While

De acordo com o pedido do nosso leitor Cristofer:


Fazer um programa em Pascal onde você deverá entrar com 3 números e deverá mostrar qual deles é o menor utilizando o comando while.


Ai vai a resposta. Qualquer dúvida entre em contato.



Program Menor_Numero_While;


Uses Crt;


var


i : Array [1..3] of Integer;


j : Integer;


menor : Integer;


Begin


ClrScr;


for j := 1 to 3 do


Begin


Write ('Entre com ',j,'o numero:');


ReadLn(i[j]);


End;


// Determinando o menor com while


menor := i[1];


j := 2;


while j <=3 do


begin


if i[j] < menor then menor := i[j];


j := j + 1;


end;


WriteLn( 'O menor numero eh: ', menor);


ReadLn;


End.

terça-feira, 13 de abril de 2010

A Microsoft Abriu o Formato do Arquivo PST

office.png


Até que enfim!


Não é de hoje que o programas de quebrar senha descobrem a senha dos arquivos PST com muita facilidade.


Há pouco tempo a Microsoft já vinha pensando em abrir o estrutura do arquivo PST e realmente o fez.


O formato PST inclui diversas informações pessoais do usuário, como contas de e-mails, calendário, contatos, além de permitir a importação e exportação dessa informação.


Com esta "abertura pública" torna-se possível serviços de correio eletrônico e redes sociais melhorarem os seus serviços e suporte para que seja uma realidade a importação dos dados provenientes do produto da Microsoft.


Link: http://msdn.microsoft.com/pt-br/library/ff385210%28en-us%29.aspx


Download: http://download.microsoft.com/download/2/4/8/24862317-78F0-4C4B-B355-C7B2C1D997DB/OfficeFileFormatsProtocols.zip


Que é a estrutura do arquivo.

terça-feira, 6 de abril de 2010

Apostila Game Maker para Iniciantes

Game Maker.gif


Trago a vós um conjunto de apostilas muito bem feita para quem quer dar os primeiros passos no Game Maker que é um programa excelente para criar os seus próprios jogos.


Todos os créditos para: http://gmbr.forumeiros.com


Download do Tutorial em ZIP - Só descompactar


Escolha um servidor para baixar: