FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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
|
#2
|
||||
|
||||
Hola,
estos foros están subdividos en categorías para que no suceda esto: Cita:
El hilo se traslada al foro "Varios", donde no está fuera de tema. Saludos. |
#3
|
||||
|
||||
Cita:
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
||||
|
||||
Cita:
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; |
#5
|
|||
|
|||
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.
|
#6
|
||||
|
||||
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. Última edición por Héctor Randolph fecha: 21-12-2004 a las 05:59:21. |
#7
|
||||
|
||||
Cita:
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
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
|||
|
|||
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
|
|
|
|