Code: Windows System Explorer

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Systems.ShExplorer
*/ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt
*/ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden!
*/ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert!
*/ Beispiel:
*/ Definieren einer LOKALEN Variablen
LOCAL loShExplorer AS My.Systems.ShExplorer
*/ Setzen der Variablen
loShExplorer = My.Systems.ShExplorer
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loShExplorer.Function1(),Feldname2 WITH loShExplorer.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loShExplorer.Function(Alias.Spalte) + 25
	lvValue = loShExplorer.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Memberliste von ShExplorer

Liste der Methoden von ShExplorer

Hilfeinformation

Variant = My.Systems.ShExplorer.ClientToWindow(pcx as Integer,pcy as Integer)
Variant = My.Systems.ShExplorer.ClientToWindow(pcx,pcy)

Variant = My.Systems.ShExplorer.ExecWB(cmdID as uExtended,cmdexecopt as uExtended,pvaIn as Variant,pvaOut as Variant)
Variant = My.Systems.ShExplorer.ExecWB(cmdID,cmdexecopt,pvaIn,pvaOut)

Variant = My.Systems.ShExplorer.GetProperty(Property as String)
Variant = My.Systems.ShExplorer.GetProperty(Property)

*/ Vorausgesetzt wird, dass My bekannt ist...
LOCAL lnError AS Number
lnError = My.Systems.ShExplorer.GetProperty('nError')

Variant = My.Systems.ShExplorer.GoBack()

Variant = My.Systems.ShExplorer.GoForward()

Variant = My.Systems.ShExplorer.GoHome()

Variant = My.Systems.ShExplorer.GoSearch()

Variant = My.Systems.ShExplorer.Navigate(URL as String,Flags as Variant,TargetFrameName as Variant,PostData as Variant,Headers as Variant)
Variant = My.Systems.ShExplorer.Navigate(URL,Flags,TargetFrameName,PostData,Headers)

Variant = My.Systems.ShExplorer.Navigate2(URL as Variant,Flags as Variant,TargetFrameName as Variant,PostData as Variant,Headers as Variant)
Variant = My.Systems.ShExplorer.Navigate2(URL,Flags,TargetFrameName,PostData,Headers)

Variant = My.Systems.ShExplorer.PutProperty(Property as String,vtValue as Variant)
Variant = My.Systems.ShExplorer.PutProperty(Property,vtValue)

Variant = My.Systems.ShExplorer.QueryStatusWB(cmdID as uExtended)
Variant = My.Systems.ShExplorer.QueryStatusWB(cmdID)

Variant = My.Systems.ShExplorer.Quit()

Variant = My.Systems.ShExplorer.Refresh()

Variant = My.Systems.ShExplorer.Refresh2(Level as Variant)
Variant = My.Systems.ShExplorer.Refresh2(Level)

Variant = My.Systems.ShExplorer.ShowBrowserBar(pvaClsid as Variant,pvarShow as Variant,pvarSize as Variant)
Variant = My.Systems.ShExplorer.ShowBrowserBar(pvaClsid,pvarShow,pvarSize)

Variant = My.Systems.ShExplorer.Stop()

Boolean = My.Systems.ShExplorer.AddressBar

Object = My.Systems.ShExplorer.Application

Boolean = My.Systems.ShExplorer.Busy

Object = My.Systems.ShExplorer.Container

Object = My.Systems.ShExplorer.Document

String = My.Systems.ShExplorer.FullName

Boolean = My.Systems.ShExplorer.FullScreen

Integer = My.Systems.ShExplorer.Height

Integer = My.Systems.ShExplorer.Left

String = My.Systems.ShExplorer.LocationName

String = My.Systems.ShExplorer.LocationURL

Boolean = My.Systems.ShExplorer.MenuBar

String = My.Systems.ShExplorer.Name

Boolean = My.Systems.ShExplorer.Offline

Object = My.Systems.ShExplorer.Parent

String = My.Systems.ShExplorer.Path

Enum#tagREADYSTATE = My.Systems.ShExplorer.ReadyState

Boolean = My.Systems.ShExplorer.RegisterAsBrowser

Boolean = My.Systems.ShExplorer.RegisterAsDropTarget

Boolean = My.Systems.ShExplorer.Resizable

Boolean = My.Systems.ShExplorer.Silent

Boolean = My.Systems.ShExplorer.StatusBar

String = My.Systems.ShExplorer.StatusText

Boolean = My.Systems.ShExplorer.TheaterMode

Integer = My.Systems.ShExplorer.ToolBar

Integer = My.Systems.ShExplorer.Top

Boolean = My.Systems.ShExplorer.TopLevelContainer

String = My.Systems.ShExplorer.Type

Boolean = My.Systems.ShExplorer.Visible

Integer = My.Systems.ShExplorer.Width

Variant = My.Systems.ShExplorer.hWnd