SBScript: Unterschied zwischen den Versionen

Aus SongBeamer Wiki
Wechseln zu: Navigation, Suche
(Verfügbare Funktionen: 3. Parameter für AddItem)
Zeile 1: Zeile 1:
{{Vorlage:Inhaltsverzeichnis}}[[Bild:Makrofenster.png|framed|none|Offenes Fenster von SongBeamer Script]]
+
{{Vorlage:Inhaltsverzeichnis}}[[Bild:Makrofenster.png|600px|left|Offenes Fenster von SongBeamer Script]]
  
 
'''''SongBeamer''''' Script können Sie dazu benutzten durch Befehlsketten verschiedene Funktionen aufzurufen und auch andere Programme zu starten.  
 
'''''SongBeamer''''' Script können Sie dazu benutzten durch Befehlsketten verschiedene Funktionen aufzurufen und auch andere Programme zu starten.  

Version vom 21:20, 31. Mai 2008

Hilfemenü zum Programm
Info's über das Programm
Grundfunktionen von SB
Hilfe zu den Programmmenüs

(Zur bessern Übersicht werden Sie hier
auch Einträge finden, die Sie in den
Grundfunktionen finden.)
Hilfe innerhalb der Optionen
Hilfe für das Anpassen-Fenster
Plugins und nützliche Tools
Error creating thumbnail: Die Miniaturansicht konnte nicht am vorgesehenen Ort gespeichert werden

SongBeamer Script können Sie dazu benutzten durch Befehlsketten verschiedene Funktionen aufzurufen und auch andere Programme zu starten.

Beispiele

Taschenrechner starten:

CreateProcess(getfolder_system+'calc.exe');

Aktuelle Präsentation je nach Typ mit PowerPoint oder Paint bearbeiten:

var
  Ext: String;
begin
  Ext := AnsiLowerCase(ExtractFileExt(CurrentFileName));
  if Ext = '.bmp' then
    CreateProcess(GetFolder_System+'mspaint.exe', CurrentFileName)
  else if Ext = '.ppt' then
    CreateProcess(GetFolder_ProgramFiles+'Microsoft Office\OFFICE11\POWERPNT.EXE',
      CurrentFileName)
  else
    MessageDlg('Zur Zeit ist kein Bild und keine PPT-Datei geöffnet', mtError, [mbOk], -1);
end.


Verfügbare Funktionen

procedure AddItem(AFileName: String; Caption: String = ''; AColor: TColor = clNone);

Fügt Eintrag zum Ablaufplan hinzu

  • AFileName: Dateiname
  • Caption: Bezeichnung (optional)
  • AColor: Farbe (optional)


procedure Reload;

Aktuelles Objekt (Song, Diashow, ...) neu laden. Das kann sinnvoll sein, wenn man diese mit einem externen Programm verändert hat.


function CreateProcess(const FileName: String; Params: String = ''; Wait: Boolean = False): Boolean;

Startet ein externes Programm.

  • FileName: Dateiname des Programms
  • Params: Parameter für das zu startende Programm
  • Wait: "True" um zu warten, bis das Programm beendet ist

Rückgabewert: True wenn erfolgreich, sonst False Beispiel: CreateProcess(getfolder_system+'calc.exe');


function GetFolder_System: String;

Ermittelt das Windows-Systemverzeichnis (meist C:\Windows\System32\)


function GetFolder_Application: String;

Rückgabewert: Verzeichnis in dem SongBeamer gestartet wurde.


function GetFolder_SBAppData: String);

Rückgabewert: Verzeichnis für SongBeamer Anwendungs- und Konfigurationsdaten (Benutzerabhängig, Verzeichnis "Anwendungsdaten")


function GetFolder_SBLocalAppData: String;

Rückgabewert: Verzeichnis für SongBeamer Anwendungs- und Konfigurationsdaten (Benutzerabhängig, Verzeichnis "Lokale Einstellungen")


function GetFolder_SBProgramData: String;

Rückgabewert: Verzeichnis für SongBeamer Anwendungs- und Konfigurationsdaten (Gemeinsam für alle Benutzer)


function CurrentFileName: String;

Rückgabewert: Dateiname der gerade geöffneten Präsentation


function CurrentPage: Integer;

Rückgabewert: Aktuell angezeigt Seite, oder -1 falls kein Objekt geöffnet ist.


function ExtractFileExt(const FileName: string): string;

Rückgabewert: Dateierweiterung von FileName


function IncludeTrailingPathDelimiter(const S: string): string;

Rückgabewert: Verzeichnis mit abschließendem "\"


function ExcludeTrailingPathDelimiter(const S: string): string;

Rückgabewert: Verzeichnis ohne abschließenden "\"


function AnsiLowerCase(const S: string): string;

Wandelt einen String in Kleinbuchstaben um.


function Fit(AInteger: Integer): string; overload;
function Fit(AString: string): Integer; overload;

Wandelt String in Zahl, bzw. Zahl in String um.


function Now: TDateTime;

Rückgabewert: Aktuelles Datum und Zeit.


function DateToStr(const DateTime: TDateTime): string; 

Rückgabewert: Datum als String


function TimeToStr(const DateTime: TDateTime): string; 

Rückgabewert: Zeit als String


function DateTimeToStr(const DateTime: TDateTime): string; 

Rückgabewert: Datum und Zeit als String


procedure ShowMessage(const Msg: string);

Zeigt einen Message-Dialog mit dem Text "Msg" an. Beispiel: ShowMessage('Hello World');