Vraag : Zijn er sommige middelen in vensters hoe dan ook te reserveren server zodat RDC nog in het gebeurtenisnetwerk/cpu uitgeput is zal werken?

Ik stel zeer momenteel sommige netwerk intensieve toepassingen in werking die het potentieel hebben om een beetje van cpu vrij te gebruiken. Nu en dan, raken de toepassingen een *funk* en gaan haywire en sluiten omhoog de machine aan het punt waar ik harde reboot nodig heb om toegang tot de machine via verre desktop.

Is daar hoe dan ook te herwinnen om misschien 10% van middelen specifiek te bewaren zodat ik in de machine kan krijgen en de toepassingen tegenhouden die defect zijn?

op dit ogenblik alle die toepassingen als beheerder in werking worden gesteld, misschien ik hen moet veranderen in een verschillende rekening en de beheerderrekening voor deze soorten noodsituaties bewaren? Ik ben enkel niet duidelijk op al dan niet doend die eigenlijk enkele middelen zou bewaren zodat ik aan login als admin.

Any- suggesties zou kunnen zeer appreciated zou zijn

Antwoord : Zijn er sommige middelen in vensters hoe dan ook te reserveren server zodat RDC nog in het gebeurtenisnetwerk/cpu uitgeput is zal werken?

Ik gebruik deze nutsfuncties:

Var MyVar: Variant;

begin
 MyVar: =… // doet wat initialisering

 ShowMessageFmt ('MyVar is van type %s en het is waarde is „#13#10'% s“,
    [VariantTypeName (MyVar), VariantAsString (MyVar)]);
eind;
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:

functie varVar VariantBasicTypeName (: Variant): Koord;
var
  basicType  : Geheel;
begin
  basicType: = (varVar) VarType en VarTypeMask;
  geval basicType van
    varEmpty     : Resultaat: = „Leeg“;
    varNull      : Resultaat: = „Verklaar“ nietig;
    varSmallInt  : Resultaat: = „SmallInt“;
    varInteger   : Resultaat: = „Geheel“;
    varSingle    : Resultaat: = „Kies“ uit;
    varDouble    : Resultaat: = „Dubbel“;
    varCurrency  : Resultaat: = „Munt“;
    varDate      : Resultaat: = „Datum“;
    varOleStr    : Resultaat: = „OleStr“;
    varDispatch  : Resultaat: = „Bericht“;
    varError     : Resultaat: = „Fout“;
    varBoolean   : Resultaat: = „Van Boole“;
    varVariant   : Resultaat: = „Variant“;
    varUnknown   : Resultaat: = „Onbekend“;
    varByte      : Resultaat: = „Byte“;
{$ifdef VER140}
    varWord      : Resultaat: = „Word“;
    varLongWord  : Resultaat: = „LongWord“;
    varInt64     : Resultaat: = „Int64“;
{$endif}    
    varStrArg    : Resultaat: = „StrArg“;
    het varString    : Resultaat: = „Koord“;
    varAny       : Resultaat: = „Om het even welk“;
    varTypeMask  : Resultaat: = „TypeMask“;
    Anders Resultaat: = Formaat („Douane (%d)“, [basicType]);
  eind;
eind;

functie varVar VariantTypeName (: Variant): Koord;
var
  ExtType, I  : Geheel;
begin
 ExtType: = (varVar) VarType;
 Resultaat: =VariantBasicTypeName (varVar);
 als (ExtType en varArray) >0 toen
  begin
   Resultaat: =Result+'[';
   voor I: =1 aan (varVar) VarArrayDimCount vloeien voort: =Result+Format („%d,“, [varVar VarArrayHighBound (, I) - varVar VarArrayLowBound (, I) +1]);
   Resultaat [Lengte (Resultaat)]: = '] ';
  eind;
 als (ExtType en varByRef) >0 dan voortvloeit: = ' @ ' +Result;
eind;

functie varVar VariantAsString (: Variant): Koord;
Var
// L: TStringList;
 basicType, verduistert I, j: Geheel;
begin
 basicType: = (varVar) VarType en VarTypeMask;
 als (varVar) VarIsArray toen
  begin
   Verduister: =VarArrayDimCount (varVar);
   als Dim>2 toen
    begin
     Resultaat: = ' (varVar) Serie '+VariantTypeName;
     Uitgang;
    eind;
   Resultaat: = ' [';
   als Dim=1
    Dan voor I: =VarArrayLowBound (varVar, 1) aan varVar VarArrayHighBound (, 1) voort vloeien: varVar =Result+VariantAsString ([I]) + ', '
    Anders voor I: =VarArrayLowBound (varVar, 1) aan varVar VarArrayHighBound (, 1) 
     begin
      Resultaat: =Result+#13#10  [';
      voor j: =VarArrayLowBound (varVar, 2) aan varVar VarArrayHighBound (, 2) voort vloeien: varVar =Result+VariantAsString ([I, j]) + ', ';
      Resultaat [Lengte (Resultaat)]: = '] ';
      Resultaat: =Result+, ';
     eind;
   Resultaat [Lengte (Resultaat)]: = '] ';
  eind anders
  begin
   als (varVar) VarIsEmpty Dan Resultaat: = ' (Leeg) 'anders
   als (varVar) VarIsNull Dan Resultaat: = ' (Ongeldig) 'Anders Resultaat: =VarToStr (varVar);
  eind;
eind;
Andere oplossingen  
 
programming4us programming4us