Entradas etiquetadas con Obtener

plan_1_c

Obtener el nombre del PC

16 may

Publicado por WindHack en C/C++

3 comentarios

Con éste código obtendremos el nombre del PC. Se emplea la API de Windows® GetComputerName.

En C++:

/* DaW - Labs - http://daw-labs.com */
/* .:WindHack:. */
 
#include <windows.h>
 
int main()
{
	char Buffer[MAX_COMPUTERNAME_LENGTH + 1];
	DWORD nSize = sizeof(Buffer);
	if (GetComputerName(Buffer,&amp;nSize))
		{
			MessageBox(0,Buffer,"Nombre de PC",MB_OK | MB_ICONINFORMATION);
		}
	return 0;
}

En Delphi:

(*
    Autor: .:WindHack:.
    Sitio web: http://daw-labs.com
    Clase: Función
    Descripción: Obtiene el nombre del PC usando la API GetComputerName.
*)
 
function GetPC_Name():String;
var
  Buffer:Array [0..MAX_COMPUTERNAME_LENGTH] of Char;
  BufferSize:DWORD;
begin
  BufferSize := SizeOf(Buffer);
  Result := '';
  if GetComputerName(Buffer,BufferSize) then
    Result := Buffer;
end;
Programming

Serie Fibonacci en Pascal

30 mar

Publicado por WindHack en Delphi/Pascal

No hay comentarios

Uno de los retos o mejor dicho ejercicio que realiza todo programador, es la famosa sucesión Fibonacci. Para los que no saben que es pueden visitar la Wikipedia.

He desarrollado una aplicación en consola que la realiza, espero les sea de utilidad.

program Fibonacci;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
 
var
A,B,C,D,I:Integer;
Salir:Boolean = False;
Opcion: ShortInt;
J:String;
 
begin
     Writeln('Obtener la serie Fibonacci');
     Writeln;
 
     repeat
           I := 3;
           J := '.:WindHack:.';
           Writeln;
           Writeln('Seleccione una opción');
           Writeln;
           Writeln('1. - Calcular Fibonacci');
           Writeln('2. - Salir');
           Writeln;
 
           while 0 = 0 do
                 begin
                      Write('Introduce la opción: ');
                      Readln(Opcion);
                      if (Opcion &gt; 0) and (Opcion &lt;= 2) then
                      Break;
                 end;
 
                 Case Opcion of
                      1:begin
                             Writeln('Ingrese el número hasta donde se calculará...');
                             Readln(A);
                             while A&lt;1 do
                                   begin
                                   Writeln('Ingrese un número mayor a 0...');
                                   Readln(A);
                                   Writeln;
                                   end;
                                   B := 0; C := 1;
                                   D := B+C;
                                   Writeln('Serie Fibonacci con ',A,' términos');
                                   Writeln;
                                   if A=1 then
                                   Write(B);
                                   if A=2 then
                                   Write(B,' ',C);
                                   if A=3 then
                                   Write(B,' ',C,' ',D);
                                   if A&gt;3 then
                                      while I<a></a>

El resultado sería algo como esto:

window_list

Obtener el nombre de la ventana activa

30 mar

Publicado por WindHack en Delphi/Pascal

1 comentario

¿Alguna vez han querido obtener el nombre de la ventana activa?, pues si es así, les servirá ésta función, la cual emplea algunas API’s para obtener el título de la ventana que se está ejecutando.

Primero creemos nuestro proyecto y en él agregamos:

1 TTimer 1 TListBox 1 TLabel

Nos quedará algo como ésto:

Ahora vamos a la parte buena, programar.

Vamos a declarar una función que la llamaremos “GetActiveCaption” y pondremos el siguiente código…

 function GetActiveCaption: string;
var
Handle: THandle;
Len: LongInt;
Title: String;
 
begin
Result := '';
Handle := GetForegroundWindow;
if Handle &lt;&gt; 0 then
begin
Len := GetWindowTextLength(Handle) + 1;
SetLength(Title, Len);
GetWindowText(Handle, PChar(Title), Len);
ActiveCaption := TrimRight(Title);
end;
end;

Con ésta función obtenemos el nombre de la ventana. Para obtener el nombre de la que está activa pues simplemente agregamos en el evento OnTimer del TTimer éste código. 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ListBox1.AddItem(ActiveCaption,nil);
end;

Listo, eso es todo.

Saludos,