Create Url File/de

From Free Pascal wiki

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');



--Olaf 11:36, 19 August 2013 (CEST)