procedure TForm2.Button1Click(Sender: TObject);
var
  DCDesk: HDC;
  bmp: TBitmap;
begin
  // vamos criar o Bitmap
  bmp := TBitmap.Create;

  // vamos definir o tamanho do bitmap
  bmp.Height := Screen.Height;
  bmp.Width := Screen.Width;

  // aqui nós obtemos um handle para o contexto de dispositivo
  // de exibição do Desktop
  DCDesk := GetWindowDC(GetDesktopWindow);

  // vamos copiar a imagem do desktop para o bitmap criado
  // anteriormente
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
    DCDesk, 0, 0, SRCCOPY);

  // salvamos o bitmap
  bmp.SaveToFile('screenshot.bmp');

  // liberamos o handle do desktop
  ReleaseDC(GetDesktopWindow, DCDesk);

  // e finalmente liberamos o bitmap
  bmp.Free;

  ShowMessage('Screenshot criado com sucesso.');
end;

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

// define a estrutura Livro
struct Livro{
  char *titulo;
  int codigo;
  int paginas;
};

// função que aloca e retorna um ponteiro para uma
// estrutura Livro
struct Livro* obter_livro(char *titulo, int codigo, int paginas){
  // aloca memória para uma estrutura Livro
  struct Livro *temp = (struct Livro*)malloc(sizeof(struct Livro));

  // preeche os membros da estrutura
  temp->titulo = titulo;
  temp->codigo = codigo;
  temp->paginas = paginas;

  return temp;
}

int main(int argc, char *argv[]){
  // obtém uma instância da estrutura Livro
  struct Livro *a = obter_livro("Programando em Java", 345, 120);

  // verifica se a estrutura foi retornada com
  // sucesso
  if(a != NULL){
    printf("Titulo: %s\nCodigo: %d\nPaginas: %d\n",
      a->titulo, a->codigo, a->paginas);
  }

  // obtém uma segunda instância da estrutura Livro
  struct Livro *b = obter_livro("JavaScript - Guia", 540, 800);

  // verifica se a estrutura foi retornada com
  // sucesso
  if(b != NULL){
    printf("Titulo: %s\nCodigo: %d\nPaginas: %d\n",
      b->titulo, b->codigo, b->paginas);
  }

  puts("\n\n");
  system("PAUSE");
  return 0;
}

BOOL EnableWindow(          
  HWND hWnd,
  BOOL bEnable
);

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  // vamos desabilitar o TEdit usando a função EnableWindow()
  // com o valor false
  if(EnableWindow(Edit1->Handle, false)){
	ShowMessage("A caixa de texto foi desabilitada com sucesso.");
  }
}

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  // vamos habilitar o TEdit usando a função EnableWindow()
  // com o valor true
  if(EnableWindow(Edit1->Handle, true)){
	ShowMessage("A caixa de texto foi habilitada com sucesso.");
  }
}

// função principal do programa Rust
fn main() {
  // vamos criar um array com 5 elementos
  let valores = [7, 3, 4, 9, 1];
  
  // agora vamos obter o tamanho do array
  let tamanho = valores.len();
  
  // e mostramos o resultado
  println!("O array possui {} elementos", tamanho);
}