Mercurial > cdar

diff modul_allgemein.pas @ 0:ef71164288c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
begin of using hg for cdar
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:54:43 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/modul_allgemein.pas	Sun Dec 03 21:54:43 2006 +0100
@@ -0,0 +1,25 @@
+unit modul_Allgemein;
+
+
+
+interface//#####################################################################
+
+uses shellapi, sysutils;
+
+function fktCMD (const Parameternummer : integer =1): string;
+
+
+
+implementation//################################################################
+
+
+function fktCMD (const Parameternummer : integer =1): string;
+  begin
+    if parameternummer = 0 then
+        fktcmd := extractfilepath(paramstr(0)) //+ '\'
+      else
+        fktCMD := paramstr(parameternummer);
+  end;
+
+
+end.//##########################################################################