Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1474393 Mon, 05 Mar 2007 10:34:49 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1474393
      function WinDir: string; // Определение папки Windows
      var
        intLen:integer;
        strBuffer:string;
      begin
        SetLength(strBuffer,1000);
        intLen:=GetWindowsDirectory(PChar(strBuffer),1000);
        WinDir:=Trim(Copy(strBuffer,1,intLen));
      end;
     
      function SysDir: string; // Определение системной папки
      var
        intLen:integer;
        strBuffer:string;
      begin
        SetLength(strBuffer,1000);
        intLen:=GetSystemDirectory(PChar(strBuffer),1000);
        SysDir:=Trim(Copy(strBuffer,1,intLen));
      end;
]]> Meverik Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472721 Sat, 03 Mar 2007 13:58:03 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472721 Цитата Testudo @
Функция GetTempPath, и вообще никаких модулей добавлять не надо (Windows всегда добавлен)

но зато у моей функции больше возможностей :P
не а канешно непротив твоей если там кроме одной етой папки ничево ненадо, сам зото чем меньше тем лудше]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472714 Sat, 03 Mar 2007 13:45:02 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472714 Цитата ViktorXP @
и незабудь повесить два модуля
ActiveX, ShlObj
:D Функция GetTempPath, и вообще никаких модулей добавлять не надо (Windows всегда добавлен) ;)]]> Testudo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472361 Sat, 03 Mar 2007 06:24:08 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472361
    function pathDir(num:integer):string;
    var
      Allocator: IMalloc;
      SpecialDir: PItemIdList;
      FBuf: array[0..MAX_PATH] of Char;
    begin
      if SHGetMalloc(Allocator) = NOERROR then
      begin
        SHGetSpecialFolderLocation(Form1.Handle, num, SpecialDir);
        SHGetPathFromIDList(SpecialDir, @FBuf[0]);
        Allocator.Free(SpecialDir);
        result:=(string(FBuf));
      end;
    end;

а вт константы для ее
Цитата
CSIDL_DESKTOP
CSIDL_INTERNET
CSIDL_PROGRAMS
CSIDL_CONTROLS
CSIDL_PRINTERS
CSIDL_PERSONAL
CSIDL_FAVORITES
CSIDL_STARTUP
CSIDL_RECENT
CSIDL_SENDTO
CSIDL_BITBUCKET
CSIDL_STARTMENU
CSIDL_DESKTOPDIRECTORY
CSIDL_DRIVES
CSIDL_NETWORK
CSIDL_NETHOOD
CSIDL_FONTS
CSIDL_TEMPLATES
CSIDL_COMMON_STARTMENU
CSIDL_COMMON_PROGRAMS
CSIDL_COMMON_STARTUP
CSIDL_COMMON_DESKTOPDIRECTORY
CSIDL_APPDATA
CSIDL_PRINTHOOD
CSIDL_ALTSTARTUP
CSIDL_COMMON_ALTSTARTUP
CSIDL_COMMON_FAVORITES
CSIDL_INTERNET_CACHE
CSIDL_COOKIES
CSIDL_HISTORY


Добавлено
и незабудь повесить два модуля
ActiveX, ShlObj]]> ViktorXP Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472133 Fri, 02 Mar 2007 20:04:34 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1472133 Gonarh Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471912 Fri, 02 Mar 2007 16:34:52 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471912 темп
Цитата

    function c_GetTempPath: String;
    var
    Buffer: array[0..1023] of Char;
    begin
    SetString(Result, Buffer, GetTempPath(Sizeof(Buffer)-1,Buffer));
    end;

этот код так же можно использовать для:
GetCurrentDirectory
GetSystemDirectory
GetWindowsDirectory

http://www.drkb.ru/]]> Albinos_X Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471910 Fri, 02 Mar 2007 16:31:53 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471910 Кэш]]> P.O.D Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471903 Fri, 02 Mar 2007 16:26:45 +0000 Определение системных папок https://forum.sources.ru/index.php?showtopic=173917&view=findpost&p=1471903 Подскажите пожалуйста как мне определить расположение системной папки временых файлов в WinXp текущего пользователя и папку временых файлов Windows!
(с учетом того что винда может стоять не на диске С);
Заранее очень благодарен !))))]]> Error Delphi: Общие вопросы