home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 April / Chip_2002-04_cd1.bin / zkuste / delphi / kolekce / d56 / NT.ZIP / NTDelUser.pas < prev    next >
Pascal/Delphi Source File  |  1999-06-20  |  1KB  |  45 lines
  1. unit NTDelUser;
  2.  
  3. interface
  4.  
  5. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  6.  
  7. type
  8.   TNTDelUser = class(TComponent)
  9.   private
  10.     { Private declarations }
  11.     FServerName:String;
  12.     FUserName:String;
  13.   protected
  14.     { Protected declarations }
  15.   public
  16.     { Public declarations }
  17.   published
  18.     { Published declarations }
  19.     property ServerName:String read FServerName write FServerName;
  20.     property UserName:String read FUserName write FUserName;
  21.     function Execute:LongInt;
  22.   end;
  23.  
  24. function NetUserDel(Server:PWideChar;UserName:PWideChar):LongInt; stdcall; external 'netapi32.dll';
  25.  
  26. procedure Register;
  27.  
  28. implementation
  29.  
  30. function TNTDelUser.Execute:LongInt;
  31. var tServer:Array[0..255] Of WideChar;
  32.     tUser:Array[0..255] Of WideChar;
  33. begin
  34.      StringToWideChar(FServerName,@tServer,255);
  35.      StringToWideChar(FUserName,@tUser,255);
  36.      Result:=NetUserDel(@tServer,@tUser);
  37. end;
  38.  
  39. procedure Register;
  40. begin
  41.   RegisterComponents('NT Tools - User Management', [TNTDelUser]);
  42. end;
  43.  
  44. end.
  45.