cdar

view modul_allgemein.pas @ 2:104f349dcfcc

find changesets by author, revision, files, or words in the commit message
Added tag cdar-2.3 for changeset 87b91371db05b8cabe2dc3e2d2dc3ba830ab463b
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:41 +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.//##########################################################################