Einzelnen Beitrag anzeigen

hyperia

Registriert seit: 27. Mai 2007
10 Beiträge
 
#1

Screen Shot Maker

  Alt 28. Mai 2007, 19:30
Hi


Ich will euch hier mein aller erstes "Programm" vorstellen.
Ich weiß es nichts was keiner schafft aber ich will einmal von euch Pros wissen an welchen Stellen ich bestimmte Sachen eleganter Lösen hätte können^^


Also es handelt sich um einen "Screen Shot Maker"

Ich hab für das komplette Projekt ca. 1 Stunde gebraucht , naja wenn man bedenkt das ich mir vor 2,5 Stunden Delphi 2005 runtergeladen habe gar nicht so schlecht , oder?

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, JPEG, ShellApi, Menus;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    Button5: TButton;
    procedure Button5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure BmpToJpg(const Filename: String; Quality: TJPEGQualityRange=100);
var
 Bmp: TBitmap;
 Jpg: TJpegImage;
begin
Bmp:=TBitmap.Create;
Jpg:=TJpegImage.Create;
try
  Bmp.LoadFromFile(Filename);
  Jpg.CompressionQuality:=Quality;
  Jpg.Assign(Bmp);
  Jpg.SaveToFile(ChangeFileExt(Filename, '.jpg' ));
finally
  Jpg.Free;
  Bmp.Free;
end;
end;

procedure SaveAppScreen(const SaveBmpFileName: string);
var
  Bitmap: TBitmap;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    try
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width := Application.MainForm.Width;
        Bitmap.Height:= Application.MainForm.Height;
        Bitmap.PixelFormat := pfDevice;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Application.MainForm.Width), Pred(
               Application.MainForm.Height), Canvas.Handle,
               Application.MainForm.Left, Application.MainForm.Top,
               Bitmap.Canvas.CopyMode);
        Bitmap.SaveToFile(SaveBmpFileName);
      finally
        FreeAndNil(Bitmap);
      end;
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    FreeAndNil(Canvas);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveAppScreen('C:\Screenie.bmp');
if CheckBox1.Checked then
BmpToJpg('C:\Screenie.bmp');
if CheckBox1.Checked then
deletefile('C:\Screenie.bmp');

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Width := 800;
Form1.Height := 600

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Width := 1024;
Form1.Height := 768
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Width := 1280;
Form1.Height := 1024;
end;



procedure TForm1.FormShow(Sender: TObject);
begin
Form1.ScreenSnap := true;
Form1.SnapBuffer := 30;
end;

procedure TForm1.Button5Click(Sender: TObject);

begin
  if ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\Screenie.bmp'),
                 Nil, Nil, SW_NORMAL) <= 32 then
    ShellExecute(Application.Handle,
                 'open',
                 PChar('C:\Screenie.jpg'),
                 Nil, Nil, SW_NORMAL)


end;


end.

OKAY UND HIER DER DL LINK , AUF RAPIDSHARE



Okay ich wünsche mir ein kleines Feedback von euch.
Wenns geht auch ein paar verbesserungs vorschläge




MFG HyP
  Mit Zitat antworten Zitat