Proxymis Multimedia BLOG

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
private
    { Private declarations }
    id1, id2, id3, id4: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin

  if Msg.HotKey = id4 then
    ShowMessage(’Print Screen pressed !’);
end;

 
procedure TForm1.FormCreate(Sender: TObject);
  // Different Constants from Windows.pas
const
  MOD_ALT = 1;
  MOD_CONTROL = 2;
  MOD_SHIFT = 4;
  MOD_WIN = 8;
  VK_A = $41;
  VK_R = $52;
  VK_F4 = $73;
begin

  // Globally trap the Windows system key “PrintScreen”
  id4 := GlobalAddAtom(’Hotkey4′);
  RegisterHotKey(Handle, id4, 0, VK_SNAPSHOT);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin

  UnRegisterHotKey(Handle, id4);
  GlobalDeleteAtom(id4);
end;

end.

Voici la commande pour extraire le nom du fichier sans extension

filename := ChangeFileExt(ExtractFileName(’PathFileNameHere’),”);

ex: c:\windows\system.ini ->system

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,JPEG, StdCtrls,   ExtCtrls, GR32, GR32_Image, GR32_Transforms, GR32_Resamplers, GR32_System;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function RescalePic(aFileName,destinationFile: String;x,y:integer): TBitmap;

  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.RescalePic(aFileName,destinationFile: String;x,y:integer): TBitmap;
Var
  R: TKernelResampler;
  ASrcImage: TBitMap32;
  ADstImage: TBitMap32;
  ABmp: TBitMap;
  AJPeg: TJPegImage;
  AScale: Extended;
  lPageIndex : Integer;
begin
  // Zum Abspeichern als Jpeg
  AJPeg     := TJPEGImage.Create;
  ABmp      := TBitMap.Create;
  // Original
  ASrcImage := TBitmap32.Create;
  // destintaion
  ADstImage := TBitMap32.Create;
  try
    ASrcImage.LoadFromFile(aFileName);
    ADstImage.Width  := x;
    ADstImage.Height := y;
    R := TKernelResampler.Create(ASrcImage);
    R.Kernel := TLanczosKernel.Create;

    ADstImage.Draw(ADstImage.BoundsRect, ASrcImage.BoundsRect, ASrcImage);
    ABmp.Assign(ADstImage);

    result := ABmp;
    AJPeg.Assign(ABmp);
    AJPeg.SaveToFile(destinationFile);

  finally
    AJPeg.Free;
    ADstImage.Free;
    ASrcImage.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
        RescalePic(’c:\swftools\xpage1.jpg’,’c:\swftools\xpage1.jpg2.jpg’,400,300);
end;

end.