como nadie me quiere responder lo coloco aqui

[Yoli]

Hola a todos, estoy intentando protger una aplicacion (simplemente a manera de curiosidad uno nunca sabe cuando va a necesitarlo), y lo quiero hacer obteniendo el serial del disco duro al momento de ejecurtase el instalador de la aplicacion (INNO SETUP), mas no tengo ni remota idea de que line deba colocar en el script del instalador he buscado por todos lados y no encuentro nada. espero puedan ayudarme esto es solo con fines educativos. Gracias de antemano. Saludos

[kinobi]

Hola,

estos foros están subdividos en categorías para que no suceda esto:

Empezado por Yoli

como nadie me quiere responder lo coloco aqui

Nota: "aquí" se refiere al foro de "Humor".

El hilo se traslada al foro "Varios", donde no está fuera de tema.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por Yoli

Hola a todos, estoy intentando protger una aplicacion (simplemente a manera de curiosidad uno nunca sabe cuando va a necesitarlo), y lo quiero hacer obteniendo el serial del disco duro al momento de ejecurtase el instalador de la aplicacion (INNO SETUP), mas no tengo ni remota idea de que line deba colocar en el script del instalador he buscado por todos lados y no encuentro nada.

Échale un vistazo a ésta página: http://isfd.kaju74.de/
Es una utilidad que te facilita el trabajo de crear nuevos formularios (páginas) en las instalaciones de Inno Setup.
Pruébalo y ya nos dirás qué tal.

Otra opción es que programes el trabajo en un EXE externo y que lo llames desde el Inno Setup,sin tener que programar en Inno todo el trabajo.

[[Héctor Randolph]]

Empezado por Yoli

lo quiero hacer obteniendo el serial del disco duro al momento de ejecurtase el instalador de la aplicacion (INNO SETUP)

Hola YOLI!

Aquí te muestro un script para conocer el serial del disco duro desde Inno Setup, espero que te sea útil.

Tomado de la página

Inno Setup Knowledge Base/How to get drive volumen and serial number

[code]


;
; ISX 3.0.6.2
;

[Setup]
AppName=DriveVolume
AppVerName=DriveVolume
Uninstallable=false
UpdateUninstallLogAppName=false
DisableDirPage=true
DisableProgramGroupPage=true
DefaultDirName={pf}\DriveVolume
DisableStartupPrompt=true

[_ISTool]
EnableISX=true

function GetVolumeInformation(
	lpRootPathName: PChar;
	lpVolumeNameBuffer: PChar;
	nVolumeNameSize: LongInt;
	var lpVolumeSerialNumber: LongInt;
	lpMaximumComponentLength: LongInt;
	lpFileSystemFlags : LongInt;
	lpFileSystemNameBuffer: PChar;
	nFileSystemNameSize: LongInt ) : Integer;
external 'GetVolumeInformationA@kernel32.dll stdcall';

{ // API declaration in C
BOOL GetVolumeInformation(
  LPCTSTR lpRootPathName,           // root directory
  LPTSTR lpVolumeNameBuffer,        // volume name buffer
  DWORD nVolumeNameSize,            // length of name buffer
  LPDWORD lpVolumeSerialNumber,     // volume serial number
  LPDWORD lpMaximumComponentLength, // maximum file name length
  LPDWORD lpFileSystemFlags,        // file system options
  LPTSTR lpFileSystemNameBuffer,    // file system name buffer
  DWORD nFileSystemNameSize         // length of file system name buffer
);
}

function GetLastError( ) : Integer;
external 'GetLastError@kernel32.dll stdcall';

function InitializeSetup(): Boolean;

var srcdisk, volume: String;
    ercode: Integer; sernum: LongInt;
begin
  Result := true;

  srcdisk := AddBackslash( ExtractFileDrive( ExpandConstant('{srcexe}') ) );
  volume := StringOfChar( ' ', 16 );

  if GetVolumeInformation( srcdisk, volume, 15, sernum, 0, 0, '', 0 ) = 0 then
    begin
      ercode := GetLastError();
      MsgBox( SysErrorMessage( ercode ), mbError, MB_OK );
      Result := false;
    end
  else begin
    volume := CastIntegerToString( CastStringToInteger(volume) );
    MsgBox( Format3( 'Volume of %s is (%s) serial is %s', srcdisk, volume, IntToStr(sernum) )
      , mbInformation, MB_OK );
  end;
end;

[Yoli]

Gracias Hector me sirvio de mucho. Ahora aclarame una duda, es verdad que con este codigo solo puedo ver el volumen de formateo del disco duro mas no el serial del fabricante? porque le he preguntado a varios amigos y me dicen que leer el serial del fabricante es imposible. Otra cosa que pasa si el usuario formatea la maquina? deja de funcionar el codigo?. Bueno Hector de nuevo gracias por tu ayuda. Saludos desde Venezuela.

[[Héctor Randolph]]

Hola Yoli!

Lo que te han dicho tus amigos es verdad, el sistema operativo asigna un serial al disco cuando le da formato y es precisamente el que te devuelve la función GetVolumeInformation, por lo tanto, cada vez que el usuario da formato al disco el serial cambia y habrá que hacerle ajustes a tu instalación.

Con respecto al serial del fabricante, no tengo idea de como obtenerlo, pero si encuentro algo en la red, te lo envío con gusto por este medio.

Hasta pronto.

[Neftali [Germán.Estévez]]

Empezado por Yoli

...he preguntado a varios amigos y me dicen que leer el serial del fabricante es imposible. Otra cosa que pasa si el usuario formatea la maquina? deja de funcionar el codigo?

Bueno tus amigos no te han dicho toda la verdad..., vamos que tus amigos te mienten...

Sí se puede saber el Serial del disco, ya que como tu bien dices el Volumen cambia cada vez que el disco se formatea (e incluso sin formatear) y por lo tanto si basas tu código en ese número al formatear dejaría de funcionar.

Existen unas rutinas de Alex Konshin que te permiten extraer el Serial del Disco; Tienen algunas restricciones, pero en la mayoría de los casos funcionan perfectamente.

La página es:
http://home.earthlink.net/~akonshin/delphi_components.htm

(30 Jul 2000, 4K, D3+, Windows 98, Windows NT 4.0 ? Windows 2000)
http://home.earthlink.net/~akonshin/files/IdeSN.zip
(IdeSN2.zip, 22 Oct 2003, 5K, D5+, Windows 98, Windows NT 4.0, Windows 2000 ? Windows XP)
http://home.earthlink.net/~akonshin/files/IdeSN2.zip

[Yoli]

Hola. Gracias por la informacion amigos, la estoy probando creoq ue me va a ser de gran utilidad. Luego les cuento como me fue. Saludos