Текущий архив: 2003.03.24;
Скачать: CL | DM;
Вниз
Вываливается простейшая прога с ошибкой :( Найти похожие ветки
← →
fishca © (2003-01-29 18:18) [0]Вываливается простейшая прога с ошибкой :(
program backup1C;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var
PrgTitle : PChar;
TitleOld : String;
begin
TitleOld := "Программа архивирования";
CharToOEM(PChar(TitleOld),PrgTitle);
SetConsoleTitle(PrgTitle);
ReadLn;
end.
Запускаю на Win2k, вываливается и все тут!
Может я что-то не так делаю, помогите пожалуйста!
← →
Clickmaker © (2003-01-29 18:36) [1]А память выделить под PrgTitle?
PrgTitle: array[0..255] of char хотя бы
← →
fishca © (2003-01-29 19:01) [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.
← →
Anatoly Podgoretsky © (2003-01-29 19:18) [3]Ты можешь обойтись и одной переменной TitleOld
Страницы: 1 вся ветка
Текущий архив: 2003.03.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
