como hago que solo funcione en Pendriver

[[Al González]]

Puede que te sirva la función GetDriveType, de la API de Windows. Que como dice la ayuda (busca el archivo Win32.hlp):

The GetDriveType function determines whether a disk drive is a removable, fixed, CD-ROM, RAM disk, or network drive.

UINT GetDriveType(
LPCTSTR lpRootPathName // address of root path
);


Parameters

lpRootPathName

Points to a null-terminated string that specifies the root directory of the disk to return information about. If lpRootPathName is NULL, the function uses the root of the current directory.

Return Values

The return value specifies the type of drive. It can be one of the following values:

Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.

Espero te sirva, saludos.

[ecfisa]

Hola.

Como Al, opino que la función GetDriveType te servirá para el propósito.

Por ejemplo podrías hacer:

Código Delphi [-]
program Tu_proyecto;

uses
  Windows, ...
 
begin
  if GetDriveType(PChar(Application.ExeName[1]+':\')) = DRIVE_REMOVABLE then
  begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    //...
    Application.Run;
  end
  else
    MessageBox(Application.Handle,
      'Esta aplicación sólo puede ejecutarse en medios removibles',
      'ERROR', MB_ICONERROR + MB_OK);
end.

Saludos.

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

A parte de las opciones comentadas, te puedo redirigir a la página de las librerías GLibWMI, que incluyen un componente para DiskDriveInfo para acceder a las propiedades de los discos.

En este caso, puedes obtener algunas propiedades que te pueden ayudar:



Si no deseas instalar toda la librería de componentes, otra opción es utilizar WMI (que es lo que utiliza esta librerías al fin y al cabo) para obtener la misma información.
En concreto para este caso se usa la clase Win32_DiskDrive. Si miras esta página podrás ver las propiedades que te devuelve esta clase.

Si buscas ejemplos sobre esta clase podrás encontrar alguno son problemas (por ejemplo, este que acabo de encontrar en el FTP).