Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c