//         1   .
//     (    ,   ).
//   
// 16.12.2008 13:51
// dnp()2008, mailto:codebaserror@yandex.ru icq:41867867

//  --       :
//		1)        :
//			    ,
//			      Windows    1 (  ),
//			     1 (  ),
//			       "Console",
//			PID   1,
//			  SQL (SPID)    
//		2)    "  [ ]"

//   -    .


 , ;
 ;
//           -    ,   .
 , , , , , ;
 ; //    ()  .

//***************************
//          
 (  )
	//     "14.10.2008,18:31:29"
	 = (,12);
	 = (((,10)),"");
     ((,1,2)) * 3600
			+ ((,4,2)) * 60
			+ ((,7,2))
			+ () * 86400;
	//

//*******************************************
 (  ) 
	 ( 1=1 ) 
		 = ( (), , "" );
		 = (,"{{""","");
		 = (,"""}}",);
		 = (,""",""",);
		 = (,"""},{""",);
		//( "----------------
		//|" +  + "" );
	
		 = ( (), , "" );
		 = (,""",""",);
		 = (,"{{""","");
		 = (,"""},{""",);
		 = (,"""}}","");
		//( "" +  );
	;
	 ;
	//

//*******************************************
 ( , , , ,  )
	 = 
	"{
	|{""Name"",""" +  + """},
	|{""Run mode"",""" +  + """},
	|{""IsMono"",""" +  + """},
	|{""Date&Time"",""" +  + """},
	|{""ComputerName"",""" +  + """}
	|}
	|{
	|{"""","" ""}
	|}
	|";
	 ;
	//

//*******************************************
//  = 0     
//   1024*(-1)
 ( , =0, =0 ) 
	 ;
	
	 (  <> 0 ) 
		.( 1024*(-1), 0 );
	;
	.( , 1024 );
	 (  <> 0 ) 
		 ;
	;
	//( "" + () );
	 ();
	// 

//*******************************************
//  = 1...
//      +2000000
 ( ,  ) 
	 = +2000000;
	 = 1;
	 = .( ,  );
	 (  = 1 ) 
		.( ,  );
	;
	 1-;
	// 


//*******************************************
//         ,   ()        1
//                    
// (       ,    ).
 () 
	//    () (    )
	 = ( "" );
	.( "",	"" );
	.( "",	"" );
	.( "",		"" );
	.( "",	"" );
	.( "",	"" );
	.( "",		"" );
	.( "",	"" );
	//      
	 ( .(  ) = 1 ) 
		 = ( "BinaryData" );
		 ( .( , 1, 1 ) = 1 ) 
			 = "";
			 = .() / 1024;
			 =1   
				 = (  );
				 = ( ,  );
				 (  = 1 ) 
					.();
					.	= ;
					.		= ( , 2 );
					.		= ( , 6 ); //"Y/N"
					.		= ( , 4 ); //"C,E,M,D"
						= ( , 8 );
					.	= ;
					.			= ( , 10);
					.	= ();
					//////( ""
					//////	+ " " + .
					//////	+ " " + .
					//////	+ " " + .
					//////	+ " " + .
					//////	+ "	" + .
					//////	+ "	" + .
					//////	+ "	" + .
					//////	, ?(=1,"i","!")
					//////	);
				;
			;
		;
	;
	//     
	 = 0;
	 = 0;
	.( ",-" );
	.( (), , "" );
	 = ?(()=0,"N","Y");
	 = "E";
	 (  <> 0 ) 
		 (  <= .() ) 
			.(  );
			 ( . <> () ) 
				;
			;
			 
			( . =  )
			 ( . =  )
			 ( . <=  ) 
				//      
						= .;
					= .;
						= .;
					= .;
				 	= .;
						= .;
				;
			;
			 =  + 1;
		;
	
		//////( " """ + () + """    ..." );
	;
	 (  = 0 ) 
		 0;
	;
	//      .    -  ,    :
	 = "";
	 = "";
	 = ( "Win" );

	//  ,   
	.( "HKEY_CURRENT_USER", "Volatile Environment", "KEY_QUERY_VALUE" );
	 ( .( "CLIENTNAME",  ) <> 0 ) 
		 =  //+ "="
			+  + "" + ;
	;
	//  ,   
	.( "HKEY_CURRENT_USER", "Software\Microsoft\Windows\CurrentVersion\Explorer", "KEY_QUERY_VALUE" );
	 ( .( "Logon User Name",  ) <> 0 ) 
		 =  //+ "="
			+  + "" + ;
	;
	//  ,    1 (  )
	.( "HKEY_LOCAL_MACHINE", "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "KEY_QUERY_VALUE" );
	 ( .( "ComputerName",  ) <> 0 ) 
		 =  //+ "="
			+  + "" + ;
	;
	//    (  )  "Console"
	.( "HKEY_CURRENT_USER", "Volatile Environment", "KEY_QUERY_VALUE" );
	 ( .( "SESSIONNAME",  ) <> 0 ) 
		 =  //+ "="
			+  + "" + ;
	;
	//-------------------------------------------
	//   : http://infostart.ru/projects/2145/  ( MrDen)
	//  PID   1:
	
	  	 = CreateObject("DynamicWrapperX");
		.Register("USER32.DLL", "GetForegroundWindow", "r=l");
		.Register("USER32.DLL", "GetWindowThreadProcessId", "i=hp", "r=l"); // HWND hWnd, //   LPDWORD lpdwProcessId //     
		 = .Space(256);
		 = .StrPtr();
		 = .GetForegroundWindow();
		.GetWindowThreadProcessId(,);
		 = .NumGet( , 0, "u" );
		 =  
			+ "pid="
			+  + ;
	
	;
	//--------------------------------------------
	//    Valet : http://www.1cpp.ru/forum/YaBB.pl?num=1227252001/4#4
	//          SQL.
	 = ( "MetaInfoClasses" );
	 ( .SQL_() = 1 ) 
		RS = ("ODBCRecordSet");
		spid = RS.("SELECT @@spid");
		 =  
			+ "spid="
			+ spid + ;
		// = ((spid)+"      ",7) + ;
	;
	//-------------------------------------------
	//   " "
	 = ( (), , "," );
	// .
	 ;
 //() 

//*******************************************
//
 ( ="", ="", ="" ) 
	//   
	 = 0;
	.( , , "" );
	 (  <> 0 ) 
		.(  );
		 ( .(  ) = 1 ) 
			 = ( "BinaryData" );
			 ( .( , 1, 0 ) = 1 ) 
				 = ( 
					 + , 
					,
					,
					 + ,
					 + 
				);
				 = ( , "200" );
				.( 1024*(-1), 0 );
				.(  );
			;
		;
	;
	// .
	 ;
	//

//*******************************************
 ()
	 = ( "" + ((),"") + "," + () );
	 = 0;
     = () + "syslog\links.tmp";
	//();
	//();
	//




//************************************
////   :

////    :
// ;//:

// ()
//	 = ("MetaInfoClasses");
//	 ( .( "" ) = 1 ) 
//		 = ("");
//		.();
//		.();
//	;
//	...
//

// ()
//	//          -     
//	 ( () = 100 ) 
//		 = ("");
//		 = (.()/1000);
//		 (  < 60 ) 
//			 = "";
//		
//			 = ( /3600 );
//			 =  % 3600;
//			 = ( /60 );
//			 =  % 60;
//			 = " [" + (,"(0)2") + ":" + (,"(0)2") //+ ":" + (,"(0)2")
//					+ "]";
//		;
//		.(,,);
//	;
//	// 



//*

