Difference between revisions of "Create Url File/de"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting; deleted category already in page template) |
|||
| Line 1: | Line 1: | ||
{{Create Url File}} | {{Create Url File}} | ||
| − | + | ||
| − | |||
Die Prozedur erstellt eine URL-Datei.<br> | Die Prozedur erstellt eine URL-Datei.<br> | ||
| − | + | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
Uses | Uses | ||
FileUtil, ...; | FileUtil, ...; | ||
| Line 15: | Line 14: | ||
begin | begin | ||
| − | {$I+}// stellt sicher, dass I/O im Fehlerfall eine Exception auslöst | + | {$I+} // stellt sicher, dass I/O im Fehlerfall eine Exception auslöst |
// öffnet eine Datei schreibend (eine bereits vorhandene Datei wird überschrieben) | // öffnet eine Datei schreibend (eine bereits vorhandene Datei wird überschrieben) | ||
| Line 34: | Line 33: | ||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
Beispiel für den Aufruf des Unterprogramms unter Windows: | Beispiel für den Aufruf des Unterprogramms unter Windows: | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
subErstelleURLShortcut('E:\Beispiel.url', 'www.google.de'); | subErstelleURLShortcut('E:\Beispiel.url', 'www.google.de'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | ||
Beispiel für den Aufruf des Unterprogramms unter Linux (Ubuntu): | Beispiel für den Aufruf des Unterprogramms unter Linux (Ubuntu): | ||
| − | <syntaxhighlight> | + | |
| + | <syntaxhighlight lang=pascal> | ||
subErstelleURLShortcut('/home/user/Beispiel.url', 'www.google.de'); | subErstelleURLShortcut('/home/user/Beispiel.url', 'www.google.de'); | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 06:50, 12 February 2020
│
Deutsch (de) │
Die Prozedur erstellt eine URL-Datei.
Uses
FileUtil, ...;
...
procedure subErstelleURLShortcut(const conStrShortcutDatei, conStrURL: string);
var
txtDatei: TextFile; // Definition als Textdatei
begin
{$I+} // stellt sicher, dass I/O im Fehlerfall eine Exception auslöst
// öffnet eine Datei schreibend (eine bereits vorhandene Datei wird überschrieben)
// die Funktion UTF8ToSys sorgt dafür, dass
// im Dateinamen z. B. auch Umlaute verwendet werden können
AssignFile(txtDatei, UTF8ToSys(conStrShortcutDatei));
Rewrite(txtDatei);
try
// Schreibt den Dateiinhalt
WriteLn(txtDatei, '[InternetShortcut]');
WriteLn(txtDatei, 'URL=', conStrURL);
finally
// Schliesst die Datei
CloseFile(txtDatei);
end;
end;
Beispiel für den Aufruf des Unterprogramms unter Windows:
subErstelleURLShortcut('E:\Beispiel.url', 'www.google.de');
Beispiel für den Aufruf des Unterprogramms unter Linux (Ubuntu):
subErstelleURLShortcut('/home/user/Beispiel.url', 'www.google.de');
