Create Url File/de
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
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');
