Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c