Difference between revisions of "Create Url File/de"

From Free Pascal wiki
Jump to navigationJump to search
m
Line 45: Line 45:
 
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 11:36, 19 August 2013 (CEST)
 
--[[User:Olaf|Olaf]] 11:36, 19 August 2013 (CEST)
[[Category:Code Parts/de]]{{Translate category}}
+
[[Category:Code Parts/de]]{{AutoCategory}}

Revision as of 10:38, 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)