Отправка файла на e-mail

[SKS]

Всем привет!
Реализовал чтобы программа отправляла файл на почтовый ящик, но не могу решить проблему, надо чтобы программа отправляла файл с ситемного диска, с документов пользователя.

procedure TForm1.Button1Click(Sender: TObject);
var
  IdAttachment1:TIdAttachment;
begin
idsmtp1.Host:='smtp.yandex.ru';
idsmtp1.Port:=587;
idsmtp1.Username:='mypochta';
idsmtp1.Password:='passwordmail';
IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'anketa.txt');
idmessage1.Body.Text:='Íèê:'+ combobox2.Text+#13#10'Òåìà:'+ combobox1.Text+#13#10'Ñîäåðæàíèå:'+ memo1.Text;
idmessage1.From.Text:='mypochta@yandex.ru';
idmessage1.Recipients.EMailAddresses:='mypochta@yandex.ru';
idmessage1.Subject:='Anketa zayavka';

idsmtp1.Connect();
if idsmtp1.Connected=true then
idsmtp1.Send(idmessage1);
idsmtp1.Disconnect;
Application.MessageBox('Âàøå ñîîáùåíèå óñïåøíî îòïðàâëåíî!','Âíèìàíèå',MB_OK);
end;

Эта строка кода отправляет файл:

IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'anketa.txt');

анкету.
Как сделать так чтобы программа отправляла файл с директории: 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;

[SKS]

Сообщение от 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;

Подскажите как в моей программе реализовать?

[doktor255]

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

[SKS]

Ругается тут:
begin
SHGetFolderPath

[Error] Unit1.pas(40): Undeclared identifier: 'SHGetFolderPath'

Где-то прописать еще что-то нужно?

[Аватар]

В uses SHFolder

[SKS]

Идёт дальше и снова также ругается на GetUserApp, что для него прописывать?

пробовал Registry, не помогает, нашел что Registry для GetUserApp.

[doktor255]

На функцию посмотри внимательно. Где ты там увидел GetUserApp? Функция именуется как GetUserAppDataDir. И что значит ругается? На приблизительную проблему, жди такой же приблизительный ответ, или излагай грамотно. Экстрасенсы в отпуске, в честь нового года.

[alextrof94]

Хм. А Дельфи не понимает пути вроде "%appdata%" ?

IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'%appdata%\anketa.txt');

UPD: нет

[doktor255]

Все что в кавычках, это обычный текст, и ни как иначе.