Difference between revisions of "Create Url File/de"

From Free Pascal wiki
Jump to navigationJump to search
m
m (Fixed syntax highlighting; deleted category already in page template)
 
(4 intermediate revisions by 3 users not shown)
Line 1: Line 1:
 
{{Create Url File}}
 
{{Create Url File}}
<br>
+
 
<br>
 
 
Die Prozedur erstellt eine URL-Datei.<br>
 
Die Prozedur erstellt eine URL-Datei.<br>
<br>
+
 
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
Uses
 
Uses
   ...;
+
   FileUtil, ...;
 
    
 
    
 
   ...
 
   ...
Line 15: Line 14:
  
 
begin
 
begin
   {$I+}// sellt sicher, das i/o im Felherfall eine exception wirft
+
   {$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>
<br>
+
 
 
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>
<br>
+
 
 
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>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 11:36, 19 August 2013 (CEST)
 
[[Category:Code Parts/de]]{{AutoCategory}}
 

Latest revision as of 05: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');