안완엽 wrote:

> 안녕하세요.

>

> 사용자 Login 정보를 얻고 싶어 WnetGetConnection API를 사용하고 싶은데

> 잘 몰라서 질문을 드립니다.

>

> API쪽은 워낙 아는게 없어서 시리..

>

> 아래와 같이 제 멋대로 해보았는데 영 아니죠...

>

> 답변을 부탁드립니다.

>

> 감사합니다.

>

> procedure TForm1.Button2Click(Sender: TObject);

> var

> s1, s2 : string;

> c : dword;

> ret : integer;

> begin

> setlength( s1, 255);

> setlength( s2, 255);

> c := 255;

>

> ret:= WNetGetConnection(pchar(s1), pchar(s2), c);

>

> setlength( s1, strlen(pchar(s1)));

> setlength( s2, strlen(pchar(s1)));

>

> if ret = NO_ERROR then

> begin

> s1 := buf1;

> s2 := buf2;

> showmessage(s1 + s2);

> end;

> end;

>

>





사용자 Login 정보를 받을수 있는 것을 만드는 것은 어떨까 하는 군요~



사용예는 다음과 같습니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, DBLogDlg;

// =====================================================================

// 유닛절에 DBLogDlg를 추가 해야 합니다.

// 그에 따른 해설은 다음과 같군요

// TLoginDialog is a login dialog box that can be used

// to provide login security within an application.

// =====================================================================





type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

dlgLogin: TLoginDialog;

begin

dlgLogin := TLoginDialog.Create(Application);

dlgLogin.Caption := '로그인화면';

dlgLogin.DatabaseName.Caption := '데이타베이스명';

dlgLogin.ShowModal;

if dlgLogin.ModalResult = mrOk then

begin

// OK 클릭시 처리

// 그 대화상자에서 사용자가 친 내용을 가져올수 있습니다.

ShowMessage(dlgLogin.UserName.Text); // 유저명

ShowMessage(dlgLogin.PassWord.Text); // 패스워드

end;

end;



end.





델세상(http://www.freechal.com/delphiworld)의 조규춘이였습니다.