博客

GetUserLoginID

  • Post author:
  • Post category:其他


Pascal Code
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

unit


GetUserLoginID;



interface



uses



Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;



type



TMainFrm =


class


(TForm)

lbl1: TLabel;

edt1: TEdit;

btn1: TBitBtn;



procedure


btn1Click(Sender: TObject);



private





{ Private declarations }





public





{ Public declarations }





end


;



var



MainFrm: TMainFrm;



implementation



{$R *.dfm}



procedure


TMainFrm.btn1Click(Sender: TObject);



const


cnMaxUserNameLen =


254


;



var



sUserName :


string


;

dwUserNameLen : DWORD;



begin



dwUserNameLen := cnMaxUserNameLen –


1


;

SetLength(sUserName, cnMaxUserNameLen);

GetUserName(


PChar


(sUserName),dwUserNameLen);

SetLength(sUserName, dwUserNameLen);

edt1.


Text


:= sUserName;



end


;



end


.

转载于:https://www.cnblogs.com/kivin/p/4646946.html