當使用novel登入win xp後 怎樣在DELPHI能取得novel的登入名稱? 要不要使用什麼DLL檔案? thank you very much^^

引言: 當使用novel登入win xp後 怎樣在DELPHI能取得novel的登入名稱? 要不要使用什麼DLL檔案? thank you very much^^

你可能要用 nwlib 的工具, 不過因為novell已經式微, nwlib 能支援到何版 不知道, 我也沒有用過!

function getwindowsuser():string; var sdir:string; nsize:dword; begin nsize:=254; setlength(sdir,254); if getusername(pchar(sdir),nsize) then begin setlength(sdir,strlen(pchar(sdir))); result:=sdir; end else begin result:=''; end; end;

參考官方資料,年代久遠 http://developer.novell.com/research/devnotes/1996/august/04/ Writing NetWare Applications with Borland Delphi Borland's Delphi allows developers an extremely easy and efficient method to create object-oriented, event-controlled Windows applications with a minimum of coding. Therefore many programmers have switched to Delphi as their primary development platform. Typically Delphi makes Windows programming easier than other visual development platforms, while still allowing full access to all Windows events and direct source code. Delphi's component-based concept relieves the developer from much of the burden of creating a user interface and reacting to Windows events. This article shows how to write NetWare applications with 16- Contents        * Introduction     * Calling External DLLs from Delphi     * Using Generic Windows Network APIs     * Using NetWare DLL Functions     * Sample Code Snippets     * What Will You See Next?     * 3rd-Party Offerings     * Distributing Your Applications     * Where to Find Other Useful Information     * Accessing NetWare DLLs From Other Platforms     * Appendix: Function and Unit Cross Reference (16-bit Delphi)  或

------
星期一,二...無窮迴圈＠＠

如果windoss使用者與novell一同登入 可以用以下 function getwindowsuser():string; var sdir:string; nsize:dword; begin nsize:=254; setlength(sdir,254); if getusername(pchar(sdir),nsize) then begin setlength(sdir,strlen(pchar(sdir))); result:=sdir; end else begin result:=''; end; end;