![]() |
|
#1
|
|||
|
|||
|
Hi all ...
Does anyonw know if the lmxxx.h files are translated to Delphi ? I'm having serious trouble dealing with the size of the returning buffers ... Example : Type SESSION_INFO_0 = Record Client_Name : Array[0..255] Of lpWStr; End; Function NetSessionEnum(ServerName, ClientName, UserName : lpWStr; Level : DWord; Var Buffer : Pointer; PrefMaxLen : DWord; EntriesRead, TotalEntries, ResumeHandle : lpDWord) : LongInt; StdCall; External 'NETAPI32.DLL'; Var NSE_STRUCT : SESSION_INFO_0; UserName : lpWStr; Buffer : Pointer; Result : LongInt; EntriesRead, TotalEntries, ResumeHandle : DWord; Begin StringToWideChar(PChar('PrefuserNameToEnum'),@User Name,256); Result := NetSeesionEnum(NiL,NiL,UserName,0,Buffer,SizeOf(SE SSION_INFO_0),@EntriesRead,@TotalEntries,@ResumeHa ndle); If Result = 0 Then NSE_STRUCT := SESSION_INFO_0(Buffer^); End; What is wrong ? thx in advance ... /Filip |
|
#2
|
|||
|
|||
|
www.delphi-jedi.org has the Lan Manager headers translated
on their APILibrary page. |
![]() |
| Thread Tools | |
| Display Modes | |
|
|