Difference between revisions of "Create Url File/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Create Url File}} <br> <br> Die Prozedur erstellt eine URL-Datei.<br> <br> <syntaxhighlight> Uses ...; ... procedure subErstelleURLShortcut(const conStrShortcutDat...") |
|||
| Line 38: | Line 38: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> | ||
| − | Beispiel für den Aufruf des Unterprogramms unter Linux(Ubuntu): | + | Beispiel für den Aufruf des Unterprogramms unter Linux (Ubuntu): |
<syntaxhighlight> | <syntaxhighlight> | ||
subErstelleURLShortcut('/home/user/Beispiel.url', 'www.google.de'); | subErstelleURLShortcut('/home/user/Beispiel.url', 'www.google.de'); | ||
Revision as of 11:37, 19 August 2013
│
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
