|
|
|
|
Delphi 1
Каталог вашего приложения III
Два пути:
|
GetDir(0, S);
|
или
|
ExtractFilePath(ExpandFileName('.'));
|
-- Xavier [000746]
|
|
|
|
|
 |
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
Delphi 1
Два пути:
|
GetDir(0, S);
|
или
|
ExtractFilePath(ExpandFileName('.'));
|
-- Xavier [000746]
|
|
|
|
|