Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

WinDir   Найти похожие ветки 

← →
V0RoN   (2005-10-17 20:03) [0]

Как програмно узнать в какую папку установлена Windows?

---

← →
Igor_thief   (2005-10-17 20:13) [1]

GetWindowsDirectory

---

← →
V0RoN   (2005-10-17 22:39) [2]

Спасибо, что ответили на ламерский вопрос)

---

← →
Юзверъ   (2005-10-17 23:22) [3]

Igor, можешь дать пример использования этой функции

---

← →
Kolan ©   (2005-10-18 00:44) [4]

Вот вам примеры

Как найти системные папки Windows?

Type TSystemPath=(Desktop,StartMenu,Programs,Startup,Personal, winroot, winsys);
...
Function GetSystemPath(SystemPath:TSystemPath):string;
var p:pchar;  

 
begin
with TRegistry.Create do  

 
try  

 
RootKey := HKEY_CURRENT_USER;  

OpenKey("\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", True);  

case SystemPath of  

 
Desktop: Result:=ReadString("Desktop");  

StartMenu:Result:=ReadString("Start Menu");  

Programs:Result:=ReadString("Programs");  

Startup:Result:=ReadString("Startup");  

Personal:Result:=ReadString("Personal");  

Winroot:begin  

 
GetMem(p,255);  

GetWindowsDirectory(p,254);  

result:=Strpas(p);  

Freemem(p);  

 
end;  

 
WinSys:begin  

 
GetMem(p,255);  

GetSystemDirectory(p,254);  

result:=Strpas(p);  

Freemem(p);  

 
end;  

 
end;  

 
finally  

 
CloseKey;  

free;  

 
end;  

 
if (result<>"") and (result[length(result)]<>"\") then result:=result+"\";  

 
end;

Автор Vit
Взято с Vingrad.ru http://forum.vingrad.ru


---

Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c