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

Озеров Валентин

begin

 SHAddToRecentDocs(SHARD_PATH, pchar(fileName));

end;

//Значение функции TRUE если мелкий шрифт

function SmallFonts:Boolean;

var DC:HDC;

begin

 DC:=GetDC(0);

 Result:=(GetDeviceCaps(DC, LOGPIXELSX) = 96);

 {

В случае крупного шрифта будет 120}

 ReleaseDC(0, DC);

end;

function DriveExists(Drive : Byte) : Boolean;

begin

 Result := Boolean(GetLogicalDrives AND (1 SHL Drive))

end;

//'?';'Path does not exists';'Removable';'Fixed';'Remote';'CD-ROM';'RAMDISK'

function CheckDriveType(Drive : Byte) : String;

var

 DriveLetter : Char;

 DriveType : UInt;

begin

 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);