Foros Club Delphi - como nadie me quiere responder lo coloco aqui

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como nadie me quiere responder lo coloco aqui (https://www.clubdelphi.com/foros/showthread.php?t=16796)

como nadie me quiere responder lo coloco aqui

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

Hola,

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

Cita:

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.

Cita:

Empezado por Yoli

É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.

Cita:

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

Código:



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;

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.

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.

Cita:

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

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