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

 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.

Каким именно релизом Delphi вообще стоит пользоваться для каждой конкретной версии?

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.

Версии Delphi 4.3 и 4.5 являются обманными версиями. В действительности это ранние беты Delphi 4.0.