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) |
|||
(5 intermediate revisions by 3 users not shown) | |||
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, ...; |
... | ... | ||
Line 15: | Line 14: | ||
begin | begin | ||
− | {$I+}// | + | {$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) | ||
− | AssignFile(txtDatei, conStrShortcutDatei); | + | // die Funktion UTF8ToSys sorgt dafür, dass |
+ | // im Dateinamen z. B. auch Umlaute verwendet werden können | ||
+ | AssignFile(txtDatei, UTF8ToSys(conStrShortcutDatei)); | ||
Rewrite(txtDatei); | Rewrite(txtDatei); | ||
Line 32: | 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');