Borrisholt, please help

stoney>> Helt præcis hvad er problemet ? hvordan du skriver dig et nyt framework eller hvordan du extender det allerede eksisterende VCL Framework ?

Jens B

Det er vel egentlig noget helt nyt du vil spørge om, så det var måske nok en idé at oprette et nyt spørgsmål med hvad end det nu er du vil spørge om mht. API og des lige !

Snowball

Jeg ville prøve at lave min egen component med en
wrapper omkring WIN API funktionen eks. NetUserGetInfo.

Det behøves dog ikke være en component/wrapper. Bare et eksempel på hvordan man kalder/bruger funktionen.

Eks. hvis jeg vælger en server og brugernavn får jeg vist fuldt navn etc.

Håber I forstår hvad jeg mener.

Stoney

Hej stoney

Det var dog en grim funktion du havde valgt der ......

prøv det her ...

function NetUserGetInfo(lpServer :LPWSTR;
                        UserName :LPWSTR;
                        Level    :DWORD;
                        lpBuffer :LPDWORD):DWORD;
                        stdcall;external\'netapi32.dll\';


Function GetCurrentUserName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, Size);
Windows.GetUserName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;

procedure TForm1.Button1Click(Sender: TObject);
type
    TUSER_INFO_3 = record
      name            :LPWSTR;
      password        :LPWSTR;
      password_age    :DWORD;
      priv            :DWORD;
      home_dir        :LPWSTR;
      comment          :LPWSTR;
      flags            :DWORD;
      script_path      :LPWSTR;
      auth_flags      :DWORD;
      full_name        :LPWSTR;
      usr_comment      :LPWSTR;
      parms            :LPWSTR;
      workstations    :LPWSTR;
      last_logon      :DWORD;
      last_logoff      :DWORD;
      acct_expires    :DWORD;
      max_storage      :DWORD;
      units_per_week  :DWORD;
      logon_hours      :PBYTE;
      bad_pw_count    :DWORD;
      num_logons      :DWORD;
      logon_server    :LPWSTR;
      country_code    :DWORD;
      code_page        :DWORD;
      user_id          :DWORD;
      primary_group_id :DWORD;
      profile          :LPWSTR;
      home_dir_drive  :LPWSTR;
      password_expired :DWORD;
  end;

var
  ComputerName :PChar;
  UserName    :PChar;
  USERINFO    :TUSER_INFO_3;
  i  : Integer;
begin
  //----------------------------------------------------
  // ????????
  //----------------------------------------------------
  ComputerName := \'\\\\ATOMIC-DK\';
  UserName := \'Jens\';
  i:= NetUserGetInfo(LPWSTR(ComputerName),  LPWSTR(UserName), 3, @USERINFO);
  if i = 0 then
    ShowMessage(string(USERINFO.full_name));
end;

Jens B

Hej Jens

Det ser cool ud. Jeg vender lige tilbage senere.

Stoney

stoney>>

Farther forgive me, though I have sinned .....

Jeg kom altså til at skrive sådan en dims som du gerne ville have .... Den kan give dig alle brugere på en bestemt server ..... Og give dig en masse sjov om dem .....

Send mig en e-mail og skidet er dit .... Du pris sætter der selv ...

Jens B

stoney>> Når nu borrisholt har svaret i http://www.eksperten.dk/spm/51228, kan du så ikke lukke her?