13. November 2009 12:25
IF ISCLEAR(WshShell) THEN
  CREATE(WshShell);
IF CONFIRM('SendKeys-Befehle (WshShell) ausführen?') THEN BEGIN
  WshShell.SendKeys('{HOME}');
  WshShell.SendKeys('{DOWN}');
END;13. November 2009 12:56
IF CONFIRM('SendKeys-Befehle (WshShell) ausführen?') THEN BEGIN
  IF ISCLEAR(WshShell) THEN
    CREATE(WshShell);
  WshShell.SendKeys('{HOME}');
  WshShell.SendKeys('{DOWN}');
END;13. November 2009 15:40