Code: Windows Shell Funktionen

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Systems.WShell
*/ 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 loWShell AS My.Systems.WShell
*/ Setzen der Variablen
loWShell = My.Systems.WShell
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loWShell.Function1(),Feldname2 WITH loWShell.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loWShell.Function(Alias.Spalte) + 25
	lvValue = loWShell.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Memberliste von WShell

Liste der Methoden von WShell

Hilfeinformation

Variant = My.Systems.WShell.AppActivate(App as Variant,Wait as Variant)
Variant = My.Systems.WShell.AppActivate(App,Wait)

Variant = My.Systems.WShell.CreateShortcut(PathLink as String)
Variant = My.Systems.WShell.CreateShortcut(PathLink)

Variant = My.Systems.WShell.Exec(Command as String)
Variant = My.Systems.WShell.Exec(Command)

Variant = My.Systems.WShell.ExpandEnvironmentStrings(Src as String)
Variant = My.Systems.WShell.ExpandEnvironmentStrings(Src)

Variant = My.Systems.WShell.LogEvent(Type as Variant,Message as String,Target as String)
Variant = My.Systems.WShell.LogEvent(Type,Message,Target)

Variant = My.Systems.WShell.Popup(Text as String,SecondsToWait as Variant,Title as Variant,Type as Variant)
Variant = My.Systems.WShell.Popup(Text,SecondsToWait,Title,Type)

Variant = My.Systems.WShell.RegDelete(Name as String)
Variant = My.Systems.WShell.RegDelete(Name)

Variant = My.Systems.WShell.RegRead(Name as String)
Variant = My.Systems.WShell.RegRead(Name)

Variant = My.Systems.WShell.RegWrite(Name as String,Value as Variant,Type as Variant)
Variant = My.Systems.WShell.RegWrite(Name,Value,Type)

Variant = My.Systems.WShell.Run(Command as String,WindowStyle as Variant,WaitOnReturn as Variant)
Variant = My.Systems.WShell.Run(Command,WindowStyle,WaitOnReturn)

Variant = My.Systems.WShell.SendKeys(Keys as String,Wait as Variant)
Variant = My.Systems.WShell.SendKeys(Keys,Wait)

String = My.Systems.WShell.CurrentDirectory

Dispatch#IWshEnviron = My.Systems.WShell.Environment

Dispatch#IWshCollect = My.Systems.WShell.SpecialFolders