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
тут версия новая.