VPF::Путь к Windows - Форум программистов

Kirgston

Дата 25.2.2009, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Всем доброго времени суток! Можно как нибудь программно задать путь к папке с форточкой?
Имею ввиду что-то типа такого GetCurrentDir только чтобы оно возвращало не текущую директорию, а путь к папке Windows. Заранее большое спасибо!

Snowy

Дата 25.2.2009, 21:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Ответ на этот и многие другие удивительные вопросы, можно найти в FAQ или DRKB
Например такой:

Код

function GetWindowsFolder:string;
{©Drkb v.3(2007): www.drkb.ru, 
®Vit (Vitaly Nevzorov) - [email protected]}
var p:PChar;
begin
  GetMem(p, MAX_PATH);
  result:='';
  if GetWindowsDirectory(p, MAX_PATH)>0 then result:=string(p);
  FreeMem(p);
end;

Добавлено через 1 минуту и 53 секунды
Также в догонку, Как узнать путь к стандартным папкам Windows

Kirgston

Дата 25.2.2009, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2

Спасибо большое! Наверно я не умею правильно задавать вопрос... просто ДРКБ 3.0 мне выдал тьму тем где было указано
uses Windows...
СПАСИБО!

Akella

Дата 26.2.2009, 00:00 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Snowy @ 25.2.2009, 21:45

)

Также в догонку,

Но там, к сожалению нет способа узнать путь к временной папке:

И ещё в догонку smile

Код


unit uMain;

interface

uses
  Windows, Messages, SysUtils, .....

type
  TSystemPath=(Desktop, StartMenu, Programs, ProgramFiles, Startup, Personal, winroot, winsys, WinTemp);

  TfmMain = class(TForm)
    sbMain: TStatusBar;
....


implementation

Function TfmMain.GetSystemPath(SystemPath:TSystemPath):string;
 var
 p:pchar;
 Buffer: array[0..1023] of Char;
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('ProgramFiles');
        Startup : Result := ReadString('Startup');
       Personal : Result := ReadString('Personal');
        WinTemp : SetString(Result, Buffer, GetTempPath(Sizeof(Buffer)-1,Buffer));
        Winroot : begin
                   GetMem(p,255);
                   GetWindowsDirectory(p,254);
                   result:=Strpas(p);
                   Freemem(p);
                  end;//winroot
         WinSys : begin
                   GetMem(p,255);
                   GetSystemDirectory(p,254);
                   result:=Strpas(p);
                   Freemem(p);
                  end;//winsys
    ProgramFiles: begin
                  CloseKey;
                  RootKey := HKEY_LOCAL_MACHINE;
                  OpenKey('\Software\Microsoft\Windows\CurrentVersion', FALSE);
                  Result:=ReadString('ProgramFilesDir');
                  if Result = '' then Result:='C:\Program Files\';
                  end;
     end;//case
   finally
     result := IncludeTrailingPathDelimiter(result);
     CloseKey;
     free;
   end;//try-finally

end;

Используем:

Код


  StringList1.SaveToFile(GetSystemPath(WinTemp) + 'file1.tmp');

Yanis

Дата 3.3.2009, 08:56 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Akella @ 26.2.2009, 01:00

)

И ещё в догонку

Не рекомендуется читать эти настройки из реестра, если есть стандартные функции определения местоположения папок.

Добавлено через 4 минуты и 36 секунд
Я про функцию SHGetFolderPath и др.

Это сообщение отредактировал(а) Yanis - 3.3.2009, 08:56

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »