There may be an easier way but you could extract the drive letter out of
the Appliaction.ExeName and then use:

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

and check to see if it is one of the following:

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.

For example:
DrivePath := ExtractFileDrive(Appliaction.ExeName);
Result := GetDriveType(DrivePath);
----------