File Owner mittels GetNamedSecurityInfo - Hilfe!

[Olli]

Zitat:

Zitat von Robert_G

Hmpf? :shock:
Was ist an der Zeile anders als in Delphi.Net? :gruebel: (Mal abgesehen davon, dass es in Chrome method statt function/procedure heißt)...

Nene, immer ruhig bleiben! Ich meinte, daß mir diese Syntax unbekannt war. Deshalb habe ich mich beim FragKing entschuldigt, daß ich eine falsche Auskunft erteilt habe. Wer würde denn die Aussage eines Robert_G infrage stellen? :zwinker:

[FragKing]

So, danke für eure mühe Leute :)

Leider ist programmieren glaube ich nix für mich, hab's immernoch nicht so geschafft wie ich das gerne hätte :(
Muss mir glaube ich noch ein bisschen Literatur durch den Kopf gehen lassen. :(

Es ist noch kein Meister vom Himmel gefallen! (leider) :wall: :wall:

Vielleicht mit ein paar Bier nochmals probieren ;)

Gruss

[Robert_G]

Na na na...
Nicht gleich aufgeben. ;)
Wie weit bist du denn? Bzw. wo drückt der Schuh? Es könnte vielleicht auch helfen wenn du die Fähigkeit von D2005 nutzt, mehrere Sprachen in eine IDE zu vereinen.
Du könntest eine Projektgruppe anlegen, die eine C# ClassLib und eine in D.Net enthält. Vielleicht noch eine weitere Mini-Konsolen App um die Funktion zu testen.
Auf die Art kannst du prima erst durch die funktionnierende (siehe mein C# Code oben :zwinker: ) C# Lib debuggen. Jetzt passt du deine Delphi.Net Klasse solange an, bis sie genau das gleiche macht.
Nun brauchst du nur die Referenz auf die C# Lib gegen die D.Net Lib austauschen und färtsch. :)

Die Fast food Lösung wäre wohl duie C# Lib durch den Reflector zu scheuchen und den Code als D.Net rauszukopieren. :mrgreen: (aber das ist ja langweilig ;) )

Edit: da hatte ich doch glatt "Ich gleich aufgeben" getippt. :lol:

[FragKing]

So, man sollte sich immer genug Zeit lassen mit solchen experimenten, den code eine Woche lang nicht anschauen, dann in die Badewanne hüpfen und das ganze innerhalb von 5 Minuten lösen.
:cheers:

Hier noch mein Code, falls es jemanden interessiert:
(hab ihn nicht bereinigt, hat also noch den einen oder anderen schrott drin *g*)

Danke nochmals für die Hilfe!!

Delphi-Quellcode:

unit Unit1;

{$UNSAFECODE ON}
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.Text, System.Runtime.InteropServices;

  type
  SE_OBJECT_TYPE = (
    SE_UNKNOWN_OBJECT_TYPE,
    SE_FILE_OBJECT,
    SE_SERVICE,
    SE_PRINTER,
    SE_REGISTRY_KEY,
    SE_LMSHARE,
    SE_KERNEL_OBJECT,
    SE_WINDOW_OBJECT,
    SE_DS_OBJECT,
    SE_DS_OBJECT_ALL,
    SE_PROVIDER_DEFINED_OBJECT,
    SE_WMIGUID_OBJECT
  );

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

function GetNamedSecurityInfoW(pObjectName: String; ObjectType: SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION; var ppsidOwner: PSID; var ppsidGroup: PSID; var ppDacl: IntPtr; ppSacl: IntPtr; ppSecurityDescriptor: PSecurity_Descriptor): DWord; stdcall;
function ConvertSidToStringSidW(Sid: PSID; var StringSid: String): Bool; stdcall;
function LookupAccountSid(systemName: string; psid: IntPtr; Out accountName: StringBuilder; var cbAccount: Integer; Out domainName: StringBuilder; var cbDomainName: Integer; out use: Integer): Integer; stdcall;

var
  Form1: TForm1;

implementation

const advapi32 = 'advapi32.dll';

function GetNamedSecurityInfoW(pObjectName: String; ObjectType: SE_OBJECT_TYPE; SecurityInfo: SECURITY_INFORMATION; var ppsidOwner: PSID; var ppsidGroup: PSID; var ppDacl: IntPtr; ppSacl: IntPtr; ppSecurityDescriptor: PSecurity_Descriptor): DWord; stdcall;
external advapi32 name 'GetNamedSecurityInfo';

function ConvertSidToStringSidW(Sid: PSID; var StringSid: String): Bool; stdcall;
external advapi32 name 'ConvertSidToStringSid';

function LookupAccountSid(systemName: string; psid: PSID; Out accountName: StringBuilder; var cbAccount: Integer; Out domainName: StringBuilder; var cbDomainName: Integer; out use: Integer): Integer; stdcall;
external advapi32 name 'LookupAccountSid';

{$R *.nfm}

procedure TForm1.FormCreate(Sender: TObject); unsafe;
var ssid: PSID;
    dir, mystringsid: string;
    dirchar: Char;
    charsid: PWideChar;
    sspointer: PSecurity_Descriptor;
    pZero, pSid, psd, nulll : IntPtr;
    accountLength, domainLength, sidNameUse, bufferSize, errorReturn, error, sbuffer: Integer;
    buffer, account, domain, stringsid: StringBuilder;

begin
dir := ('c:\test.txt');
nulll := nil;

error := GetNamedSecurityInfoW(dir, SE_FILE_OBJECT, OWNER_SECURITY_INFORMATION, ssid, nulll, nulll, nulll, sspointer);

if error <> 0 then
begin
  ShowMessage('ERROR');
  ShowMessage(SysErrorMessage(error));
  ShowMessage(SysErrorMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error));
end;
//ShowMessage(ssid.ToString);

//sbuffer := 128;
//stringsid := StringBuilder.Create(sbuffer);

if ConvertSidToStringSidW(ssid, mystringsid) = false then
ShowMessage('Error: ' + SysErrorMessage(error));

//stringsid.Capacity := stringsid.length;
ShowMessage(SysErrorMessage(error));
ShowMessage(SysErrorMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error));
//ShowMessage(stringsid.ToString);
ShowMessage(mystringsid);

(*
  bufferSize    := 64;
  accountLength := bufferSize;
  domainLength  := bufferSize;
  sidNameUse    := 0;

  buffer  := StringBuilder.Create(bufferSize);
  account := StringBuilder.Create(bufferSize);
  domain  := StringBuilder.Create(bufferSize);
    try
  errorReturn := LookupAccountSid(nil, ssid ,account, accountLength, domain, domainLength, sidNameUse);
  except
  on ex: Exception do
  ShowMessage(ex.Message);
  end;
  if (errorReturn = 0) then
  begin
  ShowMessage(SysErrorMessage(errorReturn));
  ShowMessage(SysErrorMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error));

//  buffer.Append(domain);
//  buffer.Append('\');
//  buffer.Append(account);
  ShowMessage(domain.ToString);
  ShowMessage(account.ToString);
  ShowMessage(buffer.ToString);
  end;

  ShowMessage('failure');
  *)

end;

end.