procedure SetPrinterPage(Width, Height : LongInt);
var
   Device : array[0..255] of char;
   Driver : array[0..255] of char;
   Port   : array[0..255] of char;
   hDMode : THandle;
   PDMode : PDEVMODE;
begin
     Printer.GetPrinter(Device, Driver, Port, hDMode);
     If hDMode <> 0 then
     begin
          pDMode := GlobalLock( hDMode );
          If pDMode <> nil then
          begin
               pDMode^.dmPaperSize   := DMPAPER_USER;
               pDMode^.dmPaperWidth  := Width;
               pDMode^.dmPaperLength := Height;
               pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE;
               GlobalUnlock( hDMode );
          end;
     end;
end;

procedure .DrawImage( Canvas : TCanvas; X, Y, Width, Height : Integer; ABitmap : TBitmap);
var
   Header, Bits : Pointer;
   HeaderSize   : Integer;
   BitsSize     : Longint;
begin
     GetDibSizes( ABitmap.Handle, HeaderSize, BitsSize );
     Header := AllocMem( HeaderSize );
     Bits   := AllocMem( BitsSize);

     try
        GetDib( ABitmap.Handle, ABitmap.Palette, Header^, Bits^);
        StretchDIBits( Canvas.Handle, X, Y,
                       Width, Height, 0, 0,
                       ABitmap.Width, ABitmap.Height,
                       Bits, TBitmapInfo(Header^),
                       DIB_RGB_COLORS,SRCCOPY);
     finally
        FreeMem( Header, HeaderSize);
        FreeMem( Bits,   BitsSize  );
     end;
end;

procedure ExecuteProgram(Nome,Parametros:String);
var comando : Array[0..1024] of Char;
    parms   : Array[0..1024] of Char;
begin
      StrPCopy(Comando,Nome);
      StrPCopy(Parms,Parametros);
      ShellExecute(0,nil,Comando,Parms,nil,sw_showmaximized);
end;

function getcomputer : string;
var registro : tregistry;
begin
      registro:=tregistry.create;
      registro.RootKey:=HKEY_LOCAL_MACHINE;

      registro.openkey('System\CurrentControlSet\Services\VXD\VNETSUP',false);
      result:=registro.readstring('ComputerName');
end;

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
    Application.Initialize;
    Application.ShowMainForm := False; <==== aqui.
    Application.CreateForm(TForm1, Form1);
    Showwindow(application.handle,sw_hide); <== Este oculta da TaskBar
    Application.Run;
end.

function GetAliasPath( alias: string ) : string;
var
   Params: TStringList;
begin
   Params := TStringList.Create;
   Session.GetAliasParams( alias, Params);
   result := Params.Values['PATH'];
   Params.Free;
end;

Session.AddStandardAlias('SeuAlias', edtPath.text, 'Paradox');
Session.SaveConfigFile;

var 
  hR : THandle; 
begin 
   {cria uma Região elíptica} 
   hR := CreateEllipticRgn(0,0,100,200); 
   SetWindowRgn(Handle,hR,True); 
end; 

procedure TForm1.WMEndSession(var Msg : TWMEndSession); 
begin 
   if Msg.EndSession = TRUE then 
   ShowMessage('O Windows está finalizando ' + #13 + 'às ' + 
     FormatDateTime('c', Now)); 
   inherited; 
end;

var 
   pt:tpoint; 
begin 
   getcursorpos(pt); 
   pt.x := pt.x + 1; 
   pt.y := pt.y + 1; 
   if pt.x>=screen.width-1 then setcursorpos(0,pt.y); 
   if pt.y>=screen.height-1 then setcursorpos(pt.x,0); 
end;

SndPlaySound('C:\Windows\Media\Som.wav',SND_ASYNC);

var 
  OldValue : LongBool; 
begin 
  {liga a trava} 
  SystemParametersInfo(97, Word(True), @OldValue, 0); 
  //desliga a trava
  //SystemParametersInfo(97, Word(False), @OldValue, 0); 
end;