Create Url File/de

│ 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)