Capturar o título da Janela Ativa - Delphi

procedure CapturarTituloJanelaAtiva();
var
h : THandle;
titulo : PChar;
tamanho : Integer;
begin
try
h := GetForegroundWindow;
tamanho := (GetWindowTextLength(h)+1) * SizeOf(Char);
GetMem(titulo,tamanho);
fillchar(titulo^, tamanho,#0);
GetWindowText(h, titulo, tamanho);
Memo1.Lines.Append(string(titulo) + ' - Data/Hora: ' + DateToStr(date) + ' - ' + TimeToStr(Time) );
finally
FreeMem(titulo, tamanho);
end;

end;

Para este método foi utilizado um Componente Memo para exibir os Títulos das janelas

Vetor em C/C++

#include "cstdlib"

#include "iostream"

#include "time.h"

using namespace std;

int main(int argc, char *argv[])

{

//---[Trabalhando com Vetor em C/C++]---*

int i; //contador

int vetor[5] = {1,2,3,4,5};//declaração e inicialização do vetor

//percorre todo o vetor para imprimir seu conteúdo de acordo com o índice nesse caso todos os índices

for(i = 0; i "<" 5; i++){ //se você perceber o for() é igual no Java

// Iprime o resultado

printf("Valor do vetor : %d = %d \n",i,vetor[i]);

}

system("PAUSE");

return EXIT_SUCCESS;

}

Obs: Nos sinais de "<>" foram colocados aspas "" por causa do Blogger! basta retira-los para funcionar normal!

Usando a função RAND() para gerar números aleatórios em C/C++

#include "cstdlib"

#include "iostream"

#include "time.h"

using namespace std;

int main(int argc, char *argv[])

{

//---[Trabalhando com a função rand() em C/C++]---*

int r; //declaração da variável r

//OBS: alguns chamam isso de semente "inicialização de semente"

srand(time(NULL));//inicializando a semente do rand()

/*---

atribuindo a "r" um número aleatório gerado pelo rand() entre 0 e 10

quem determina que será de 0 a 10 é o mode dez "%10" se for %20 será de 0 a 20 e se quiser

gerar de 10 a 20 "%10+10"

---*/

r = rand()%10;

/*---*/

// Iprime o resultado

printf("Um número gerado pelo Rand() entre 0 e 10 : %d\n" ,r);

system("PAUSE");

return EXIT_SUCCESS;

}

Obtendo Propriedades do Sistema Operacional - Java

public void Prop_SO(){

String so;

String soverion;

String soarch;

so = System.getProperty("os.name");

soverion = System.getProperty("os.version");

soarch = System.getProperty("os.arch");

System.out.println("Obtendo Informações do Sistema Operacional:");

System.out.println("Sistema Operacional: " + so);

System.out.println("Versão do SO: " + soverion);

System.out.println("Arquitetura do SO: " + soarch);

}

Leitura e escrita no RegEdit do Windows - Delphi

//evento de do botão!

procedure TForm1.Button1Click(Sender: TObject);

var

reg : TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_CURRENT_USER;

try

if reg.OpenKey('Software\umcastec',true) then

// para deletar o valor

//--reg.DeleteValue('Valor armazenado');

//para escrever no valor

reg.WriteString('Valor armazenado', 'Escrevendo no RegEdit');

//leitura do valor

//--reg.ReadString('Valor armazenado');

finally

reg.CloseKey;

reg.Free;

end;

end;

Atenção: tome cuidado ao trabalhar com o registro do Windows, uma falha pode causar danos ao S.O.

Hello World! em Delphi

begin
ShowMessage('Olá Mundo!');
end.