Сохранение txt со временем

[MastaDan]

Всем привет.
Решил в брут встроить сохранение файла со временем(в название тхт будет указана время его сохранения).Но не могу добиться что б он сохранял в папку где лежит сам софт. (чтоб автоматом находил директорию софта и туда сохранял)

Вот наброски кода.


var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime) do
if StrTime[i]=':' then StrTime[i]:='_';
Way:='c:\'+StrTime+'.txt' ; //
Form1.Memo1.Lines.SaveToFile(Way);
ShowMessage('Файл сохранен с именем: '+StrTime);
end;


Чет я затупил уже х_х

[CyberNEŦik]

Всем привет.
Решил в брут встроить сохранение файла со временем(в название тхт будет указана время его сохранения).Но не могу добиться что б он сохранял в папку где лежит сам софт.

Вот наброски кода.


var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime) do
if StrTime[i]=':' then StrTime[i]:='_';
Way:='c:\'+StrTime+'.txt' ; //
Form1.Memo1.Lines.SaveToFile(Way);
ShowMessage('Файл сохранен с именем: '+StrTime);
end;


Чет я затупил уже х_х

Way:='StrTime'+'.txt' ;

[MastaDan]

Не, он сохранил файл с именем StrTime.txt
но в папку с прогой.

Добавлено через 3 минуты
Не, он сохранил файл с именем StrTime.txt
но в папку с прогой.
________________
Все сам додумался.
Конечный код

var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime) do
if StrTime[i]=':' then StrTime[i]:='_';
Way:='Save'+StrTime+'.txt' ; //
Form1.Memo1.Lines.SaveToFile(Way);
ShowMessage('Файл сохранен с именем: '+StrTime);
end;