Указание точного адреса файла на диске

[Vladya]

Короче у меня такая (смешная) проблемка, вернее их несколько.
1. Мне нужно что бы при нажатии на кнопку выводился ранее заготовленный документ txt я написал вот так:
begin
Memo1.Lines.LoadFromFile('Philips.t xt');
end;
но проблема в том что оно выводит файл в том случае если документ находиться прямо в каталоге рядом с ексешником, а мне нужно что бы выводило из отдельной папки которая находиться в каталоге с программой.
2.Не могу запрограмировать окно About на вывод при нажатии на определённую кнопку или из пункта меню, вроде все делаю как надо а чего то не хватает (насколько я знаю нужно выставить опцию OnClick).
Если можно помогите, Вам это раз плюнуть, а мне приятно.

Вот моя програмка:
Секреты для мобильников.rar

[Alar]

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

1. Мне нужно что бы при нажатии на кнопку выводился ранее заготовленный документ txt я написал вот так:
begin
Memo1.Lines.LoadFromFile('Philips.t xt');
end;
но проблема в том что оно выводит файл в том случае если документ находиться прямо в каталоге рядом с ексешником, а мне нужно что бы выводило из отдельной папки которая находиться в каталоге с программой.

('Philips.txt');, указываете полный адрес ('d:\Philips.txt');
OpenDialog можете использовать, чтобы пользователь мог указать этот файл.

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

2.Не могу запрограмировать окно About на вывод при нажатии на определённую кнопку или из пункта меню, вроде все делаю как надо а чего то не хватает (насколько я знаю нужно выставить опцию OnClick).

Showmessage можете использовать, Showmessage('Программу сделал я');

[Terran]

Что бы можно было открывать файлы из других мест нужно указать к ним путь. Пример:

begin
Memo1.Lines.LoadFromFile('Text\Philips.txt');
end;

Или

begin
Memo1.Lines.LoadFromFile('C:\Секреты для мобильников\Philips.txt');
end;

2.Не могу запрограмировать окно About на вывод при нажатии на определённую кнопку или из пункта меню, вроде все делаю как надо а чего то не хватает (насколько я знаю нужно выставить опцию OnClick).

Создаёте ещё одну форму и пишете на ней вашу инфу (About) и потом можете её вызвать так:

Procedure TForm1.Label5Click(Sender: TObject);
Begin
Form2.ShowModal;
End;

Или не создавать форму, а использовать MessageBox:

Procedure TForm1.Label5Click(Sender: TObject);
Begin
MessageBox(Handle,'About','Автор...',0);
End;

--------------------------------------
Слегка не успел. Alar опередил.

[Vladya]

Спасибо большое!!!
И воспользуюсь моментом, помогите еще такую фишку:
Нужно что бы при нажатии на кнопку начиналась печать документа. Вот то что я написал
PrintDialog1.Execute
А что дальше не знаю, а при таком раскладе только выводиться форма где нужно выбрать принтер а после нажатия на ОК ницево не происходит, просто закрываеться форма и все.

[Alar]

Vladya. в поиск по форуму
http://programmersforum.ru/search.php
читать правила, с которыми вы согласились при регистрации
http://programmersforum.ru/rules.php

Один вопрос одна тема, найдите похожую тему и поднимите, если нужны уточнения.