Создание папки

[Devolarium]

такая вот строка:

CreateDir('Demo');

насколько я понимаю, то должна создаваться папка в том же месте где расположен файл самой проги, и оно работает если просто запускать из делфи, но как только я засунул его в Setup он начал создавать ее вот тут:

D:\Users\IGentlich\AppData\Local\Vi rtualStore\Program Files (x86)\Heilpraktiker\Demo

не понимаю каким ветром ее заносит туда

P.S Setup сделан через InnoSetup

[bakanaev]

ForceDirectories(ExtractFilePath(ParamStr(0))+'\твоя_папка');

[Yurk@]

http://programmersforum.ru/showthread.php?t=228989

[Devolarium]

спс за инфу, вопрос с файлами как поступить?

   AssignFile(TF[4],'HP/Demo/4.ini');
 Rewrite(TF[4]);
 WriteLn(TF[4], Form1.Frame531.Label14.Caption);
 CloseFile(TF[4]);

[FaTaL]

Так же как и с папкой. Сначала определяешь где лежит твоя прога, а потом пляшешь от этого пути.

[3D Hunter]

да чтож вас прет на относительные пути то? нельзя так использовать пут к объектам фс, абсолютные пути задавать надо явно. функция extractfilepath(paramstr(0)) помогает всегда.

[Devolarium]

Не знаю, может я что-то не понял, но такой код не срабатывает

 
ForceDirectories(ExtractFilePath(ParamStr(0))+'\HP\Demo');
AssignFile(TF[1], ExtractFilePath(ParamStr(0))+'\HP\Demo\1.ini');
 Rewrite(TF[1]);
 WriteLn(TF[1], Form1.Frame531.Label11.Caption);
 CloseFile(TF[1]);

[bakanaev]

Сообщение от Devolarium

Не знаю, может я что-то не понял, но такой код не срабатывает

 
ForceDirectories(ExtractFilePath(ParamStr(0))+'\HP\Demo');
AssignFile(TF[1], ExtractFilePath(ParamStr(0))+'\HP\Demo\1.ini');
 Rewrite(TF[1]);
 WriteLn(TF[1], Form1.Frame531.Label11.Caption);
 CloseFile(TF[1]);

А что пишет то?
Не уверен, но попобуй добавить

ForceDirectories(ExtractFilePath(ParamStr(0))+'\HP\Demo\');

[Sciv]

А такой код?

ForceDirectories(ExtractFilePath(ParamStr(0))+'HP\Demo');
AssignFile(TF[1], ExtractFilePath(ParamStr(0))+'HP\Demo\1.ini');

ExtractFilePath выводит полный путь, включая последний знак \. У Вас получается задвоение. Научились бы пользоваться трассировкой и точками останова - увидели бы это сами.

[Devolarium]

Ничего не пишет, и даже при запуске из делфи создает и папки и файлы внутри. Но если сунуть прогу в Setup и установить, то при запуске через пуск не работает