[fofka]

Доброго дня всем.
Подскажите, возможно ли реализовать такую штуку. В MessageBox загружать текст из файла? Примерно как ниже в коде.

t='C:\Prog\1.txt';
MessageBox(handle,PChar('Далее будет'+(t)' '+#13#10), PChar('Заголовок сообщения'), 64);

Заранее благодарю за советы.

[dr. F.I.N.]

Так, пожалуй

Код:

const
  c = 'полное имя файла .TXT';
var
  l: TStringList;
begin
  l := TStringList.Create;
  l.LoadFromFile(c);
  MessageBox(handle,PChar(l.Text), PChar('Заголовок'), 64);
  l.Free;
end;

[M.A.D.M.A.N.]

Ну а почеему нельзя?

Код:

  AssignFile(...);
  Reset(f);
  while not EOF(f) do
  begin
    Readln(f, s);
    text := text + s;
  end;
....
....
  MessageBox(..., PChar(text), ...);

---
Не успел
Можно и через CreateFile или Как описано выше. В общем как угодно.

[fofka]

Благодарю за советы!
Сделал по рекомендации dr. F.I.N.. Работает прекрасно.
То что нужно.