Как узнать пользовательскую директорию

Posted by Chas under Delphi

Как сделать так чтобы программа отправляла файл с директории: c:\Users\ИМЯ КОМПЬЮТЕРА\AppData\Roaming\anket
в которой и находится файл анкеты с расширением *.txt так как у всех имя компьютера отличается, как сделать так, чтобы программа отправляла файл с такого пути? Что-то типа %username% вместо имени компьютера.

FaTaL
Во первых там не имя копма, а имя пользователя, а чтобы узнать пользовательскую директорию можно использовать например эту функцию

function GetUserAppDataDir : string;

var

  c   : array [0..MAX_PATH] of char;

  dir : string;

begin

  SHGetFolderPath(0, CSIDL_APPDATA, 0, 0, c);

  dir := c;

  result := dir + '\';

end;

нужно в Uses добавить Windows и ShlObj.

doktor255

IdAttachment1:=TIdAttachment.Create (IdMessage1.MessageParts, GetUserAppDataDir + 'AppData\Roaming\anket\anketa.txt') ;

тема на форуме

Похожие статьи

• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Запустить выбранные адреса в checklistbox
• Управление отображением рабочего стола Windows на нескольких экранах
• Вставить TBitMap в RichEdit
• Как получить стандартный браузер в системе