BOOL EnableWindow(          
  HWND hWnd,
  BOOL bEnable
);

// Protótipo
{$EXTERNALSYM EnableWindow}
function EnableWindow(hWnd: HWND; bEnable: BOOL): BOOL; stdcall;

// Implementação
function EnableWindow; external user32 name 'EnableWindow';

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos desabilitar o TEdit usando a função EnableWindow()
  // com o valor false
  if EnableWindow(Edit1.Handle, False) = True then
    begin
      ShowMessage('A caixa de texto foi desabilitada com sucesso.');
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos habilitar o TEdit usando a função EnableWindow()
  // com o valor true
  if EnableWindow(Edit1.Handle, True) = True then
    begin 
      ShowMessage('A caixa de texto foi habilitada com sucesso.');
    end;
end;

package estudos;

import java.util.Scanner;

public class Estudos{
  public static void main(String[] args){
    // para efetuar a leitura do usuário
    Scanner entrada = new Scanner(System.in);
    
    // os coeficientes
    double a, b, c;
    // as duas raizes, a imaginaria e o discriminante
    double raiz1, raiz2, imaginaria, discriminante;

    // vamos pedir para o usuário informar os valores dos coeficientes
    System.out.print("Valor do coeficiente a: ");
    a = Double.parseDouble(entrada.nextLine());
    System.out.print("Valor do coeficiente b: ");
    b = Double.parseDouble(entrada.nextLine());
    System.out.print("Valor do coeficiente c: ");
    c = Double.parseDouble(entrada.nextLine());
    
    // vamos calcular o discriminante
    discriminante = (b * b) - (4 * a * c);
    
    // a equação possui duas soluções reais?
    if(discriminante > 0){
      raiz1 = (-b + Math.sqrt(discriminante)) / (2 * a);
      raiz2 = (-b - Math.sqrt(discriminante)) / (2 * a);
      System.out.println("Existem duas raizes: x1 = " + raiz1 
        + " e x2 = " + raiz2);
    }
    // a equação possui uma única solução real?
    else if(discriminante == 0){
      raiz1 = raiz2 = -b / (2 * a);
      System.out.println("Existem duas raizes iguais: x1 = " 
         + raiz1 + " e x2 = " + raiz2);  	
    }
    // a equação não possui solução real?
    else if(discriminante < 0){
      raiz1 = raiz2 = -b / (2 * a);
      imaginaria = Math.sqrt(-discriminante) / (2 * a);
      System.out.println("Existem duas raízes complexas: x1 = " + 
	raiz1 + " + " + imaginaria + " e x2 = " + raiz2 
           + " - " + imaginaria);
    }
  }
}

package arquivodecodigos;

public class Estudos{
  public static void main(String[] args){
    double radianos = 1.5;
    double graus = radianos * (180 / Math.PI);
 
    System.out.println(radianos + " radianos convertidos para " +
      "graus é " + graus);

    System.exit(0);
  }
}

#include <string>
#include <iostream>

using namespace std;

int main(int argc, char *argv[]){
  // variáveis usadas para resolver o problema
  int num;
  
  // vamos ler um número inteiro
  cout << "Informe um valor inteiro: ";
  cin >> num;

  // vamos testar se o número é par
  if(num % 2 == 0){
    cout << "Você informou um número par" << endl;
  }
  // é ímpar
  else{
    cout << "Você informou um número ímpar" << endl;
  }
   
  system("PAUSE"); // pausa o programa
  return EXIT_SUCCESS; 
}

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

// função personalizada que permite verificar
// se duas strings são iguais ou diferentes sem
// considerar maiúsculas e minúsculas
int str_equal(const char *str1, const char *str2){
  while((toupper(*str1) == toupper(*str2)) && (*str1)){
    str1++;
    str2++;
  }

  return((*str1 == 0) && (*str2 == 0));
}

int main(int argc, char *argv[]){
  char palavra1[] = "Java";
  char palavra2[] = "Java";

  if(str_equal(palavra1, palavra2) == 1)
    printf("As palavras sao iguais");
  else
    printf("As palavras sao diferentes");

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