как определить название жёсткого диска???

[PAVEL315]

Мне нужно в программе для обновления найти в папке Programm Files папочку, но я не знаю, у кого как жёсткий диск называется. Как мне можно решить эту проблему??? Это нужно для реализации отображения версии программы при обновлении. То есть если в этой папке файл Version.ini есть, считываем версию, если нет, говорим что Программа не установлена... Если не трудно, напишите кодик пожалуйста...

[zetrix]

в смысле название жёсткого? C:\ или D:\ ? или метку тома? так метка тебе тут не поможет. а не проще версию в реестре прописывать?

[PAVEL315]

Именно C:\ или D:\... Установка идет в папку Programm Files... Ну допустим, что это не очень удобно... Как сделать так, что бы он при установленной программе находил её версию, а при не установленной писал что нибудь, типа "Программа не установлена"?

[Alar]

нужно использовать зарезервированные слова, есть такие, как только найду я или кто-то другой скинем.

[X=Vitamin=X]

во первых, если у тебя имеется дорожка куда по идее должна быть установлена программа, то отсеки от нее первых два символа, и это и будет название воего диска....
но зачем маятся такой ерундой, когда можно использовать реестр, что гораздо удобнее и лутше ! ! !

[rpy3uH]

uses ........,shlobj,.....;

function GetSpecialFolder(ID:DWORD):string;
var
  str:array[0..499] of char;
begin
  SHGetSpecialFolderPath(0,@str,ID,False);
  Result:=str;
end;

потом
ProgramFilesDIR:=GetSpecialFolder($ 00000026);

в результате в переменной ProgramFilesDIR путь к програмной папке текущей системы папка порграм файлез может называться и по другому не обязательно Program Files но и по другому....... смотря как утсанавливать систему

[PAVEL315]

Сообщение от rpy3uH

uses ........,shlobj,.....;

function GetSpecialFolder(ID:DWORD):string;
var
  str:array[0..499] of char;
begin
  SHGetSpecialFolderPath(0,@str,ID,False);
  Result:=str;
end;

потом
ProgramFilesDIR:=GetSpecialFolder($ 00000026);

в результате в переменной ProgramFilesDIR путь к програмной папке текущей системы папка порграм файлез может называться и по другому не обязательно Program Files но и по другому....... смотря как утсанавливать систему

А как использовать папку в Programm files? Мне надо допустим Programm Files\Data\1.exe

[rpy3uH]

не понял
yourprogramfilename:=ProgramFilesDI R+'\Data\1.exe';
if fileexists(yourprogramfilename) then //
begin
//твоя программа установлена
end;