cdar

view modul_allgemein.pas @ 0:ef71164288c1

find changesets by author, revision, files, or words in the commit message
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 source
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.//##########################################################################