#include "FiveWin.ch"
function Main()
local cEntries := StrTran( GetProfString( "Devices" ), Chr( 0 ), CRLF )
local n
for n = 1 to MlCount( cEntries )
MsgInfo( GetProfString( "Devices", MemoLine( cEntries,, n ) ),;
MemoLine( cEntries,, n ) )
next
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 104 guests