Hi Leute!
Ich bin ziemlich "frisch" mit Delphi am herumtüfteln und werkeln. Es funktioniert soweit ganz gut, ist wirklich einfach das zeugs...
Nur habe ich jetzt etwas was weder mit Delphi selber noch mit dem .net Framework implementiert ist (Im .net v2.0 wirds dann drin sein hab ich gelesen
Und zwar geht es darum den Owner eines files herauszufinden, und zwar benötige ich eigentlich nur die SID, Domain&Account wären dann noch zusatz-gimmicks.
Das ganze mache ich laut Platform
SDK mittels des
Win32 API calls "GetNamedSecurityInfo" (
MSDN).
Ich habe bereits zahlreiche newsgroups / foren durchkämmt, habe aber entweder nur Delphi für
Win32 solutions gefunden (mit GetMem FreeMem calls etc -> nicht .net kompatibel) oder dann nur für andere Sprachen (z.b.
hier). Ich habe das ganze mal soweit zusammengestiefelt dass ich (zumindest dachte) es sollte funktionieren, tut es aber nicht
Für ein funktionierendes Beispiel wäre ich sehr dankbar, und mit einigen erläuterungen verstehe ich das nachher hoffentlich auch noch
Danke schonmal im voraus!
Hier der Code:
Delphi-Quellcode:
unit Unit1;
{$UNSAFECODE ON}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, System.Text;
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 GetNamedSecurityInfo(
var pObjectName:
String;
const ObjectType: SE_OBJECT_TYPE;
const SecurityInfo: SECURITY_INFORMATION; ppsidOwner: PSID; ppsidGroup: IntPtr; ppDacl: IntPtr; ppSacl: IntPtr; ppSecurityDescriptor: PSecurity_Descriptor): Integer;
cdecl;
unsafe;
var
Form1: TForm1;
implementation
const advapi32 = '
advapi32.dll';
function GetNamedSecurityInfo(
var pObjectName:
String;
const ObjectType: SE_OBJECT_TYPE;
const SecurityInfo: SECURITY_INFORMATION; ppsidOwner: PSID; ppsidGroup: IntPtr; ppDacl: IntPtr; ppSacl: IntPtr; ppSecurityDescriptor: PSecurity_Descriptor): Integer;
cdecl;
unsafe;
external advapi32
name '
GetNamedSecurityInfo';
{$R *.nfm}
procedure TForm1.FormCreate(Sender: TObject);
unsafe;
var ssid: PSID;
user, domainname:
string;
acctype: IntPtr;
blah: DWORD;
dir:
String;
dirchar: Char;
stringsid:
String;
error: Integer;
sspointer: PSecurity_Descriptor;
begin
dir := ('
c:\Test.txt');
error := GetNamedSecurityInfo(dir, SE_FILE_OBJECT, OWNER_SECURITY_INFORMATION, ssid,
nil,
nil,
nil, sspointer);
if error <> 0
then
ShowMessage(SysErrorMessage(error));
ShowMessage(SysErrorMessage(System.Runtime.InteropServices.Marshal.GetLastWin32Error));
ShowMessage(ssid.ToString);
end;
end.