Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
procedure _Write(const Value: AnsiString); overload;
var
s: AnsiString;
begin
Writeln(Value); exit;
{
SetLength(s, Length(Value));
AnsiToOem(@Value[1], @s[1]);
Writeln(s);
}
end;
Отключение главной нити приложения от отладчика и уход от перехвата CreateFile()