Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

end;

//добавить документ в меню 'Документы'

// Для данного файла должно быть зарегистрировано средство просмотра

procedureaddFileToDocuments( constfileName: string);

begin

SHAddToRecentDocs(SHARD_PATH, pchar(fileName));

end;

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

functionSmallFonts:Boolean;

varDC:HDC;

begin

DC:=GetDC(0);

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

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

ReleaseDC(0, DC);

end;

functionDriveExists(Drive : Byte) : Boolean;

begin

Result := Boolean(GetLogicalDrives AND(1 SHLDrive))

end;

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

functionCheckDriveType(Drive : Byte) : String;

var

DriveLetter : Char;

DriveType : UInt;

begin

DriveLetter := Char(Drive + $41);

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

CaseDriveType 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

functionGetFileSysName(Drive : Byte) : String;

var

DriveLetter : Char;

NoMatter : DWORD;

FileSysName : Array[0..MAX_PATH] ofChar;

begin

DriveLetter := Char(Drive + $41);

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

Result := FileSysName;

end;

functionGetVolumeName(Drive : Byte) : String;

var

DriveLetter : Char;

NoMatter : DWORD;

VolumeName : Array[0..MAX_PATH] ofChar;

begin

DriveLetter := Char(Drive + $41);

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

Result := VolumeName;

end;

procedureStartFromRegistry(appName,appPath: string);

varreg: 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;

procedureStartServiceFromRegistry(appName,appPath: string);

varreg: 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;

procedureStartFromWinIni(appPath: string);

var

WinIni : TIniFile;

WinIniFileName : array[0..MAX_PATH] ofchar;s : string;

begin

GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));

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

WinIni := TIniFile.Create(WinIniFileName);

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

ifs = '' thens := appPath

elses := s + ';' + appPath;

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

WinIni.Free;

end;

functionIsInstalled(FileExe: String): Boolean;

var

reg : TRegistry;

temp: String;

begin

result:=False;

reg:= Tregistry.Create;

try

reg.RootKey:= HKEY_LOCAL_MACHINE;

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

ifreg.ValueExists('') then begin

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

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

end;

end;

finally

reg.Free;

end;

end;

END.

Nomadicотвечает:

A: Во-первых, вы можете узнать точную версию Delphi, если в окошке Help | About нажмете кнопку Alt и, не отпуская, наберете «VERSION».

Delphi 1 следует апгрейдить до версии 1.02 с помощью патчей.

Delphi 2 следует апгрейдить до версии 2.01. Это полноценный дистрибутив. Эту версию можно, в частности, узнать по странице «Internet» в палитре компонентов. Ее точная версия 2.0.76.0.

Delphi 3 следует взять версии 3.02. Это полноценный дистрибутив 3.01 и патчи до 3.02.

Delphi 4 же должна быть обновлена вторым, а затем третьим Service Pack'ами, которые можно взять на сайте Inprise.