Kamis, 23/10/03 3:26:46, ronny menulis:
r> tapi masalahnya dari atasan mengharuskan user harus diambil dari
r> user yang ada di SERVER, seperti program-program proxy untuk
Bisa digunakan trik spt ini: buat sharing folder yg hanya bisa dibuka
sesuai user/pass, prg delphi mencoba untuk connect ke folder tsb, bila
bisa berarti user/pass benar, tinggal ambil username yg connect.
Contohnya sbb:
procedure TForm1.Button1Click(Sender: TObject);
var
Uk: Cardinal;
Buf: array[0..40] of Char;
begin
Uk := SizeOf(Buf);
if (WNetAddConnection('\\host\share', nil, nil) = 0) and
(WNetGetUser(nil, Buf, Uk) = 0) then ShowMessage(Buf);
end;
Tertanda,
Oguds [36856104]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs from home.
Over 14,500 titles. Free Shipping
& No Late Fees. Try Netflix for FREE!
http://us.click.yahoo.com/mk9osC/hP.FAA/3jkFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
