Mercurial > cdar

comparison 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
comparison
equal deleted inserted replaced
-1:000000000000 0:ef71164288c1
1 unit modul_Allgemein;
2
3
4
5 interface//#####################################################################
6
7 uses shellapi, sysutils;
8
9 function fktCMD (const Parameternummer : integer =1): string;
10
11
12
13 implementation//################################################################
14
15
16 function fktCMD (const Parameternummer : integer =1): string;
17 begin
18 if parameternummer = 0 then
19 fktcmd := extractfilepath(paramstr(0)) //+ '\'
20 else
21 fktCMD := paramstr(parameternummer);
22 end;
23
24
25 end.//##########################################################################