XProfan

English

Since I To end this year here unfortunately my case pack must, would like I The Time gladly benefit, over again a small Discussion anzuregen. it's about subesquent View source:
Compile Mark Separation

DEf @ExitWindowsEx(2) !USER32,ExitWindowsEx
DEF @FormatMessage(7) !KERNEL32,FormatMessageA
DEf @GetLastError(0) !KERNEL32,GetLastError
DEf @SetLastError(1) !KERNEL32,SetLastError
Declare GETERROR_Buffer#,Fehler&

PROC LastError

    Parameters Rückgabe&
    Declare GETERROR_Buffer$
    DIM GETERROR_Buffer#,32000
    @FormatMessage($1000,0,Rückgabe&,0,GETERROR_Buffer#,32000,0)
    Let GETERROR_Buffer$=@STRING$(GETERROR_Buffer#,0)
    Dispose GETERROR_Buffer#
    Return GETERROR_Buffer$

Endproc

CLS
@SetLastError(0)
LET FEHLER&=@ExitWindowsEx($2,0)
LastError @GetLastError()
@messagebox(@$(0),Rückmeldung ExitWindowsEx: +@STR$(Fehler&),64<

lass=s2>)

who with windows95/98/ME becomes Check, that the computer free from problems herunterfährt. differently but NT/2000/XP => here standing The NT-Sicherheitstechnologie the thing in the lane.
integrally just as see it with the API SetSystemTime from.
If one from the View source but a EXE power and these over PrivAktivate launch, sees the already something differently from (no fear, it comes not the Buhman out and it go too no Systemeinstellungen staid

).
How one sees, are the fundamental functions - nothing exotisches - for me is Security therefore under no circumstance exotic, separate The basis all Programming NT. the to that beginning, must now birthday celebrate...

10/08/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote