Difference between revisions of "Create Url File/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
Line 19: | Line 19: | ||
// öffnet eine Datei schreibend (eine bereits vorhandene Datei wird überschrieben) | // öffnet eine Datei schreibend (eine bereits vorhandene Datei wird überschrieben) | ||
// die Funktion UTF8ToSys sorgt dafür, dass | // die Funktion UTF8ToSys sorgt dafür, dass | ||
− | // im | + | // im Dateinamen z. B. auch Umlaute verwendet werden können |
AssignFile(txtDatei, UTF8ToSys(conStrShortcutDatei)); | AssignFile(txtDatei, UTF8ToSys(conStrShortcutDatei)); | ||
Rewrite(txtDatei); | Rewrite(txtDatei); |
Revision as of 13:55, 19 August 2013
│
Deutsch (de) │
Die Prozedur erstellt eine URL-Datei.
Uses
FileUtil, ...;
...
procedure subErstelleURLShortcut(const conStrShortcutDatei, conStrURL: string);
var
txtDatei: TextFile; // Definition als Textdatei
begin
{$I+}// sellt sicher, das i/o im Felherfall eine exception wirft
// ö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');
--Olaf 11:36, 19 August 2013 (CEST)