Einzelnen Beitrag anzeigen

Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#32

AW: Delphi XE2 - wo 64-Bit-Option?

  Alt 7. Sep 2011, 11:05
So auf den ersten Blick:
Delphi-Quellcode:
MyConvertSidToStringSid:function(Sid:PSID;var StringSid:PChar):LongBool;stdcall=nil;
MyConvertStringSidToSid:function(StringSid:PChar;var Sid:PSID):Boolean;stdcall=nil;

  {@}MyConvertSidToStringSid:=GetProcAddress(lib,'ConvertSidToStringSidA');
  if not assigned(MyConvertSidToStringSid) then result:=false;
  {@}MyConvertStringSidToSid:=GetProcAddress(lib,'ConvertStringSidToSidA');
PChar <-> ConvertSidToStringSidA
...
Vielleicht auch noch an anderer Stelle.

War meine erste Vermutung ja nicht ganz falsch.
Danke, jaenicke! Ich werde mich damit eingehender beschäftigen. Allerdings ist es erstaunlich, daß es mal klappt und mal nicht (falls es überhaupt daran liegen sollte).
  Mit Zitat antworten Zitat