XPSE

English

I work Yes strain on XPSE V0.1.60, this parst too The Headerfiles and supplant Konstanten in the Source very plenty faster as the XProfankompiler, reads The Headerfiles but too one around the Structs To erlernen and the in the program genutzten Structs To to check on.

LÃ ¤ runs on, the ~enPrivileges in the windows.Ph
Compile Mark Separation

AdjustTokenPrivileges(TokenHandle: THandle( = External(~enPrivileges(TokenHandle:,"",;
AdjustTokenPrivileges(TokenHandle: THandle( = External(~enPrivileges(TokenHandle:,"",

undeklariert is. objectively is it neither declared.

both Deklarationen are IMHO wrong Translated and not XProfankompatibel.

Clipboard01.png	12 kB

Hochgeladen:	10/07/06

Downloadcounter:
		Download

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

too:
Compile Mark Separation

OffsetViewportOrgEx(DC: HDC( = External(~gdi32,"OffsetViewportOrgEx",;
OffsetWindowOrgEx(DC: HDC( = External(~gdi32,"OffsetWindowOrgEx",;
OffsetViewportOrgEx(DC: HDC( = External(~gdi32,"OffsetViewportOrgEx",;
OffsetWindowOrgEx(DC: HDC( = External(~gdi32,"OffsetWindowOrgEx"pre>

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:f3529e87d3=iF]LÃ ¤ runs on, the ~enPrivileges in the windows.Ph[/quote:f3529e87d3]
evident has The automatic transmission at Übersetzen of Delphi to *.ph some Besonderheiten unregarded. If I the right see, ought to instead of this two Lines a row stand:
Compile Mark Separation

!AdjustTokenPrivileges( = External(~advapi32,"AdjustTokenPrivileges",;

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:b184e1f39e=iF]too: ...[/quote:b184e1f39e]
there standing too a morsel of To plenty. so ists correctly.:
Compile Mark Separation

!OffsetViewportOrgEx( = External(~gdi32,"OffsetViewportOrgEx",;
OffsetWindowOrgEx( = External(~gdi32,"OffsetWindowOrgEx",;
OffsetViewportOrgEx( = External(~gdi32,"OffsetViewportOrgEx",;
OffsetWindowOrgEx( = External(~gdi32,"OffsetWindowOrgEx"pre>

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:dd1679d36a=iF]I work Yes strain on XPSE V0.1.60, this parst too The Headerfiles and supplant Konstanten in the Source very plenty faster as the XProfankompiler, reads The Headerfiles but too one around the Structs To erlernen and the in the program genutzten Structs To to check on.
.[/quote:dd1679d36a]
you should very hereon eight give, the XPSE there nothing Wrong learn...
Compile Mark Separation

BS_PU<<IKE = $1000;

Compile Mark Separation

SECURITY_ANONYMOUS = (Ord(~SecurityAnonymous) << 16);
SECURITY_IDENTIFICATION = (Ord(~SecurityIdentification) << 16);
SECURITY_IMPERSONATION = (Ord(~SecurityImpersonation) << 16);
SECURITY_DELEGATION = (Ord(~SecurityDelegation) << 16)pre>

Compile Mark Separation

CLIP_LH_ANGLES = (1 << 4);
CLIP_TT_ALWAYS = (2 << 4);
CLIP_EMBEDDED  = (8 << 4)re>

Compile Mark Separation

FF_DONTCARE   = (0 << 4);     { Don"t care or don"t know. }
FF_ROMAN      = (1 << 4);     { Variable stroke width, serifed. }
{ Times Roman, Century Schoolbook, etc. }
FF_SWISS      = (2 << 4);     { Variable stroke width, sans-serifed. }
{ Helvetica, Swiss, etc. }
FF_MODERN     = (3 << 4);     { Constant stroke width, serifed or sans-serifed. }
{ Pica, Elite, Courier, etc. }
FF_SCRIPT     = (4 << 4);     { Cursive, etc. }
FF_DECORATIVE = (5 << 4);     { Old English, etc.

Compile Mark Separation

STAMP_DESIGNVECTOR = $80000000 + Ord("d") + (Ord("v") << 8);
STAMP_AXESLIST = $80000000 + Ord("a") + (Ord("l") << 8);

Perhaps understand I there too only something not?

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

except for the first einzeilige example is everything korrekte XProfan-Syntax. the << is a korrekter Operator.
1 << 4 = 16 (The 1 becomes circa 4 bit to left moved.)

The first row must against in the doing differently lauten: from PU<<IKE should again PUSHLIKE go. the Konvertierungsprogramm has from the Delphi-Operator SHL (ShiftLeft) whom XProfan-Operator << made. within one Wortes was naturally wrong.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

thanks Roland.

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

where are but these things declared???
[quote:96402d7fb6]
~Securityanonymous
~Securityidentification
~Securityimpersonation
~Securitydelegation
[/quote:96402d7fb6]

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Oh, you have right. The are not definiert. in the Original WINDOWS.PAS dealt it itself circa a Aufzählungstypen. so is it correctly.:
Compile Mark Separation

!
SECURITY_ANONYMOUS = (0 << 16);
SECURITY_IDENTIFICATION = (1 << 16);
SECURITY_IMPERSONATION = (2 << 16);
SECURITY_DELEGATION = (3 << 16)/pre>

naturally could instead of (0 << 16) too a adjust 0 there stand, but because of the Optik and Systematik ... ;)

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:41e8eb0c99]you should very hereon eight give, the XPSE there nothing Wrong learn...[/quote:41e8eb0c99]
Well custom I do not really there the learn Yes each time aufs new happens, there it The Headerfiles indeed each time aufs new einliest. i'm thereby one from of my visibility very fast take action been successful what z.B . 6 Headerfiles in (by me) hardly spührbarer Time einliest and whom Source hineinverarbeitet.

the entlastet whom XProfanKompiler terrific, from of my visibility long Wartezeit The the Compiler with Headerfiles needed falls entire lane and the XProfanKompiler get only The Deklarationen also uses go, and the too yet vorgekaut.

10/07/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

MIR is the whole none noticed.

go The korrigierten versions somewhere provided, or must itself the eachone self Change?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

10/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:f82c02c55e=Jacob Liebeck]MIR is the whole none noticed.

go The korrigierten versions somewhere provided, or must itself the eachone self Change?[/quote:f82c02c55e]
self-evident becomes with XProfan 10 The corrected version thereby his!

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/08/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

Jac
de
Lad

cool, thanks!