Jak pobrać folder w którym znajduje się program, ale pod Api czyli bez
extractfilepath(application.exename);
bez plików Forms (application.exename) i bez FileCtr(extractfilepath) (ostatniego nie jestem pewien ).
Jak pobrać folder w którym znajduje się program, ale pod Api czyli bez
extractfilepath(application.exename);
bez plików Forms (application.exename) i bez FileCtr(extractfilepath) (ostatniego nie jestem pewien ).
extractfilepath znajduje się w sysutils , natomiast zamiast application.exename uzyj paramstr(0).
pisałem że (ostatniego nie jestem pewien ).
ale ja chciałem aby program był mały a po dodaniu tego sysutils zajmuje 300kb
dlatego szukam czegoś w zamian
ale za paramstr(0) wielkie thx tego nie wiedziałem
To nie uzywaj sysutils, tylko przenieś z tego mudułu jedną procedurkę :/ Przecież sysutils.pas jest standardowo połączone :/.
Albo napisz swoje :] przecież to nie problem.
s:=paramstr(0);
i:=length(s);
while(s[i]<>'')do dec(i);
s:=copy(s,1,i); // lub s:=copy(s,1,i-1); jesli nie chcesz \ na końcu
// lub setlength(s,i)/setlength(s,i-1) odpowiednio
// sorki wczesniej sie pomyliłem i wyciągałem filename :/