Programa ExtraiIcone

unit EXT_ICO; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Shellapi; type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; Button2: TButton; Image1: TImage; Salva: TSaveDialog; Abre: TOpenDialog; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Timer1: TTimer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Panel1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Var F: File Of Byte; begin Abre.Filter := ´Somente Executáveis (*.exe)|*.EXE´; if abre.Execute = true Then Image1.Picture.Icon.Handle := ExtractIcon(Handle,PChar(abre.FileName),0); If Image1.Picture.Icon.Handle = ExtractIcon(Handle,PChar(abre.FileName),0) then Begin Application.MessageBox(´O Arquivo Selecionado Não Possui Ícones´, ´A T E N Ç Ã O´,MB_ICONASTERISK); End; Label2.Caption := ´ Local: ´ + ExtractFileDir(Abre.FileName); Label3.Caption := ´Nome: ´ + ExtractFileName(Abre.FileName); AssignFile(F, Abre.FileName); {$I-} Reset(F); {$I+} If IOResult = 0 Then Begin Label1.Caption := ´Tam. do Arquivo em Bytes: ´ + IntToStr(FileSize(F)); CloseFile(F); end Else Application.MessageBox(´O Programa Não Pode Acessar o Arquivo Para Extrair Seu Tamanho.´, ´A T E N Ç Ã O´,MB_ICONASTERISK); end; procedure TForm1.Button2Click(Sender: TObject); begin if Salva.Execute then image1.Picture.SaveToFile(Salva.FileName + ´.ico´); Panel2.Caption := ´ÍCONE SALVO COM SUCESSO´; end; procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Timer1.Enabled := False; Panel2.Font.Color := clPurple; Panel2.Caption := ´Clique Aqui Para Abrir Um Arquivo .EXE´; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Timer1.Enabled := True; Panel2.Font.Color := clBlue; end; procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Timer1.Enabled := False; Panel2.Font.Color := clPurple; Panel2.Caption := ´Clique Arqui Para Salvar o Ícone.´; end; procedure TForm1.FormCreate(Sender: TObject); begin Panel2.Caption := ´Data Hoje: ´ + DateToStr(Date) +´ - Hora: ´+ TimeTostr(Time); Panel2.Font.Color := clBlue; Panel2.Font.Size := 10; end; procedure TForm1.Image1Click(Sender: TObject); begin Application.MessageBox(´Criado Por: Djalma Alves de Oliveira.´,´Sobre o Programa de Ícones!!!´, MB_ICONASTERISK + MB_DEFBUTTON2) end; procedure TForm1.Panel1Click(Sender: TObject); begin Application.MessageBox(´Criado Por: Djalma Alves de Oliveira.´,´Sobre o Programa de Ícones!!!´, MB_ICONASTERISK + MB_DEFBUTTON2) end; procedure TForm1.Timer1Timer(Sender: TObject); begin Panel2.Caption := ´Data Hoje: ´ + DateToStr(Date) +´ - Hora: ´+ TimeTostr(Time); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Timer1.Enabled := True; end; end.