Alguien sabe como puedo descargar toda la documentacion sin necesidad de tener instalado visual studio, para poder consultar fuera de linea ??
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitar"La sabiduría y la disciplina son lo que han despreciado los que simplemente son tontos" – Salomón.
http://www.mediafire.com/?272d5c5nbvwmrua
http://www.mediafire.com/?781pi95yef3um9n
http://www.mediafire.com/?a9ggykv182eztvb
http://www.mediafire.com/download.php?4gf1ku4xy2oxz49
program GetPCInfo;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows, Registry, ShellApi;
Type
//Directorios y nombres
WinSysTemp = (WindowsDir, SystemDir, TempDir);
ComputerUser = (GComputerName, GUserName);
Const
//Nombres, tonterias pero util, LOL XD
U = 'User name: ';
C = 'Computer name: ';
W = 'Windows: ';
S = 'System: ';
T = 'Temp folder: ';
P = 'Program files: ';
DT = 'System date time: ';
SYSLANG = 'System language: ';
TEXT = 'elhacker.net by Dominicano. (-_-) XD';
LINE = '-----------------------------------------';
//Windows, system y carpeta temporal (Temp)
function GetDirectory(DirWST: WinSysTemp): String;
var
Path: Array[0..MAX_PATH] of Char;
SizePath: Cardinal;
begin
SizePath := sizeof(Path);
Case DirWST of
WindowsDir: GetWindowsDirectory(Path, SizePath);
SystemDir: GetSystemDirectory(Path, SizePath);
TempDir: GetTempPath(MAX_PATH, Path);
end;
Result := (Path);
end;
//Archivos de programa
//Si queremos obtener Archivos comunes, Usar CommonFilesDir
function GetProgramFilesDir: String;
var
Regedit: TRegistry;
begin
Regedit := TRegistry.Create;
try
RootKey := HKEY_LOCAL_MACHINE;
Regedit.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', false);
Result := Regedit.ReadString('ProgramFilesDir');
Regedit.CloseKey;
finally
Regedit.Free;
end;
end;
//Idioma del systema
function GetUserLanguage: String;
var
Language: Array[0..150] of Char;
ID: LangID;
LangSize: Cardinal;
begin
LangSize := SizeOf(Language);
ID := GetUserDefaultLangID;
VerLanguageName(ID, Language, LangSize);
Result := (Language);
end;
//Computadora y usuario
function GetComputerUserName(CUN: ComputerUser): String;
var
csName: Array[0..230] of Char;
csSize: Cardinal;
begin
csSize := Sizeof(csName);
Case CUN of
GUserName: GetUserName(csName, csSize);
GComputerName: GetComputerName(csName, csSize);
end;
Result := (csName);
end;
//Fecha y hora del sistema
function SystemDateTime: String;
var
SysDateTime: TSystemTime;
begin
GetLocalTime(SysDateTime);
Result := DateTimeToStr(SystemTimeToDateTime(SysDateTime));
end;
//Mostramos resultados en pantalla
begin
Writeln(LINE + #10 + TEXT + #10 + LINE + #10);
Writeln(U + GetComputerUserName(GUserName));
Writeln(C + GetComputerUserName(GComputerName )+ #10);
Writeln(W + GetDirectory(WindowsDir));
Writeln(S + GetDirectory(SystemDir));
Writeln(T + GetDirectory(TempDir));
Writeln(P + GetProgramFilesDir + #10);
Writeln(DT+SystemDateTime);
Writeln(SYSLANG+GetUserLanguage);
Readln;
end.