| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вываливается простейшая прога с ошибкой :( [D6, Win2k]
fishca © (2003-01-29 18:18:00)Вываливается простейшая прога с ошибкой :(
program backup1C;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
PrgTitle : PChar;
TitleOld : String;
begin
TitleOld := "Программа архивирования";
CharToOEM(PChar(TitleOld),PrgTitle);
SetConsoleTitle(PrgTitle);
ReadLn;
end.
Запускаю на Win2k, вываливается и все тут!
Может я что-то не так делаю, помогите пожалуйста!
Anatoly Podgoretsky (2003-01-29 19:18:00) [1]Ты можешь обойтись и одной переменной TitleOld
fishca (2003-01-29 19:01:00) [2]Всем спасибо тема закрыта.
Вот решение сам нашел:
program backup1C;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
PrgTitle : String;
TitleOld : String;
begin
TitleOld := "Программа архивирования";
SetLength(PrgTitle,Length(TitleOld));
CharToOEM(PChar(TitleOld),PChar(PrgTitle));
SetConsoleTitle(PChar(PrgTitle));
ReadLn;
end.
Clickmaker (2003-01-29 18:36:00) [3]А память выделить под PrgTitle?
PrgTitle: array[0..255] of char хотя бы
| |
