Inny sposób na...

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 :/