Create Url File/de
From Free Pascal wiki
Jump to navigationJump to search
│
Deutsch (de) │
Die Prozedur erstellt eine URL-Datei.
Uses
...;
...
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)
AssignFile(txtDatei, 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)Template:Translate category