Советы по Delphi. Версия 1.4.3 от 1.1.2001

 DriveLetter := Char(Drive + $41);

 DriveType   := GetDriveType(PChar(DriveLetter + ':\'));

 Case DriveType of

 0               : Result := '?';

 1               : Result := 'Path does not exists';

 DRIVE_REMOVABLE : Result := 'Removable';

 DRIVE_FIXED     : Result := 'Fixed';

 DRIVE_REMOTE    : Result := 'Remote';

 DRIVE_CDROM     : Result := 'CD-ROM';

 DRIVE_RAMDISK   : Result := 'RAMDISK'

 Else  Result := 'Unknown';

 end;

end;

//GetVolumeInformation

function GetFileSysName(Drive : Byte) : String;

var

 DriveLetter : Char;

 NoMatter    : DWORD;

 FileSysName : Array[0..MAX_PATH] of Char;

begin

 DriveLetter  := Char(Drive + $41);

 GetVolumeInformation(PChar(DriveLetter + ':\'), Nil, 0, nil, NoMatter, NoMatter, FileSysName, SizeOf(FileSysName));

 Result := FileSysName;

end;

function GetVolumeName(Drive : Byte) : String;

var

 DriveLetter : Char;

 NoMatter    : DWORD;

 VolumeName  : Array[0..MAX_PATH] of Char;

begin

 DriveLetter  := Char(Drive + $41);

 GetVolumeInformation(PChar(DriveLetter + ':\'), VolumeName, SizeOf(VolumeName), nil, NoMatter, NoMatter, Nil, 0);

 Result := VolumeName;

end;

procedure StartFromRegistry(appName,appPath:string);

var reg: TRegistry;

begin

 reg := TRegistry.Create;

 reg.RootKey := HKEY_LOCAL_MACHINE;

 reg.LazyWrite := false;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true{canCreate});

 reg.WriteString(appname, appPath);

 reg.CloseKey;

 reg.free;

end;

procedure StartServiceFromRegistry(appName,appPath:string);

var reg: TRegistry;

begin

 reg := TRegistry.Create;

 reg.RootKey := HKEY_LOCAL_MACHINE;

 reg.LazyWrite := false;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServices', true{canCreate});

 reg.WriteString(appname, appPath);

 reg.CloseKey;

 reg.free;

end;

procedure StartFromWinIni(appPath:string);

var

 WinIni : TIniFile;

 WinIniFileName : array[0..MAX_PATH] of char;s : string;

begin

 GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));

 StrCat(WinIniFileName, '\win.ini');

 WinIni := TIniFile.Create(WinIniFileName);

 s := WinIni.ReadString('windows', 'run', '');

 if s = '' then s := appPath

 else s := s + ';' + appPath;

 WinIni.WriteString('windows', 'run', s);

 WinIni.Free;

end;

function IsInstalled(FileExe: String): Boolean;

var

reg : TRegistry;

 temp: String;

begin

 result:=False;

 reg:= Tregistry.Create;

 try

  reg.RootKey:= HKEY_LOCAL_MACHINE;

  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\App Paths\'+FileExe, false) then begin

   if reg.ValueExists('') then begin

    temp := reg.readString('Path');

    result := FileExists(temp+'\'+FileExe);

   end;

  end;

 finally

  reg.Free;

 end;

end;

END.