Code: Select all
Procedure SetTime;
var
Name, Value : String;
begin
Name := CharName;
Value := DateTimeToStr(Now);
SetGlobal('stealth', Name, Value);
end;
Exception: Out of memory at 35.116
посоветуйте чтонибудь..
Code: Select all
Procedure SetTime;
var
Name, Value : String;
begin
Name := CharName;
Value := DateTimeToStr(Now);
SetGlobal('stealth', Name, Value);
end;
Code: Select all
program test;
Procedure SetTime;
var
Name, Value : String;
begin
Name := CharName;
Value := DateTimeToStr(Now);
AddToSystemJournal(Name);
AddToSystemJournal(Value);
SetGlobal('stealth', Name, Value);
end;
//-------------------------------------------------------------------------------------
BEGIN
SetTime;
END.
вот оно!....скачал, теперь без ошибок...спасибо)Vizit0r wrote:http://stealth.od.ua/forum/viewtopic.php?p=9137#9137
тут версия новая.