Drift windows Uhr ausgleichen

[Binärbaum]

Zitat:

Zitat von th_bone

@toms - wer english lesen kann ist klar im vorteil.. :wall:

da ich aber leider den aufruf von GetSytemTimeAdjustment ehrlich gesagt überhaupt nicht verstehe - meine letzte bitte hat jemand ein bsp. für den aufruf dieser funktion ? hab schon gegoogelt hab aber leider kein bsp gefunden und mit api stehe ich noch ein wenig auf kriegsfuß

Danke für die schnelle Hilfe

Ralf

Ein Aufruf könnte so aussehen:

Delphi-Quellcode:

var ta, ti: LongWord;//= DWORD
    tad: Boolean;
...
  GetSystemTimeAdjustment(@ta, @ti, @tad);
{BOOL GetSystemTimeAdjustment(
  PDWORD lpTimeAdjustment,
  PDWORD lpTimeIncrement,
  PBOOL lpTimeAdjustmentDisabled
);
}

MfG
Binärbaum

[th_bone]

Hi,

das bsp geht leider so nicht - fehlermeldung:

"E2033 Die Typen der tatsächlichen und formalen var-Parameter müssen überstimmen"

betrifft @ta, @ti

wenn ich auf die werte gehe steht als typ system.cardinal, da passt wohl longword nicht zu pdword

arrgh keine ahnung was jetzt der richtige typ ist..

[MathiasSimmack]

Gibt´s in D2005 nicht mehr diese ... diese ... na, ihr wisst schon. Wenn man eine Weile nix macht, erscheint die Syntax der Funktion. Vllt. einfach mal abwarten und gucken, was deklariert ist. Ich weiß es von einer API-Funktion (die müsste ich aber erst mal heraussuchen), dass Microsoft einen Parameter als Zeiger deklariert hat, während Borland direkt die Variable drauf setzte.

[Binärbaum]

Zitat:

Zitat von th_bone

Hi,

das bsp geht leider so nicht - fehlermeldung:

"E2033 Die Typen der tatsächlichen und formalen var-Parameter müssen überstimmen"

betrifft @ta, @ti

wenn ich auf die werte gehe steht als typ system.cardinal, da passt wohl longword nicht zu pdword

arrgh keine ahnung was jetzt der richtige typ ist..

Dann nimm halt DWORD als Typ für die beiden. Der müsste aber IMHO auch gleichbedeutend mit LongWord und Cardinal sein. Zumindest ist es bei D7 so, wenn ich mich nicht irre.

MfG
Binärbaum

[th_bone]

@MathiasSimmack

das wars... Delphi will keine Zeiger haben

korrekter aufruf:

Delphi-Quellcode:

 var
 ta, ti: cardinal;//= DWORD
    tad: longBool;
 begin
   GetSystemTimeAdjustment(ta, ti, tad);
 end;

Danke

Ralf