С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Zeron
0 / 0 / 0
Регистрация: 25.04.2010
Сообщений: 20
1

Нужно изменить путь с папки Temp на другой.

28.05.2011, 17:44. Просмотров 1090. Ответов 1
Метки нет (Все метки)

Всем привет, я как бы новичёк в Delphi. Поэтому прошу вас помочь мне.
Ниже имеется код, который склеивает два файла в одну программу. Запустив эту программу он извлекает из себя файлы в папку Temp, затем запускает их.
Задача такова, что мне нужно, чтобы файлы извлекались в ту папку где находится сама программа, а не в папку Temp.
Только напишите пожалуйста, что конкретно на что менять, а то я не разберусь((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program FLIERJOINER;
uses
Windows,Classes,shellapi;
{$R FJoiner.res}
function TempPath: String;
var
  Buffer: array[0..1023] of Char;
begin
  SetString(Result, Buffer, GetTempPath(Sizeof(Buffer)-1,Buffer));
end;
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
 
procedure extract;
begin
ExtractRes('EXEFILE', 'first',TempPath+ '1.EXE');
ExtractRes('EXEFILE', 'second', TempPath+'2.EXE');
end;
begin
extract;
ShellExecute(0,nil,PCHar(TempPath+ '1.EXE'),nil,nil,SW_HIDE);
ShellExecute(0,nil,PCHar(TempPath+ '2.EXE'),nil,nil,SW_HIDE);
end.
Добавлено через 1 час 9 минут
Спасибо уже не надо)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2011, 17:44
Ответы с готовыми решениями:

Путь к temp в windows
Здравствуйте! подскажите пожалуйста каким образам можно получить путь к папке...

Как найти путь до папки и удалить папку внутри найденной папки
Здравствуйте, есть форма, на ней кнопка1, кнопка2 и едит, нужно сделать так...

Как скопировать *.jpg из определенной папки и скопировать в папку Temp?
Подскажите как правильно переписать данный код чтобы он работал: begin...

Дочерние папки и их путь
Здравствуйте! Подскажите пожалуйста, как сканировать директорию и вывести не...

Получить путь до папки appdata
использую uses SHFolder; function GetSpecialFolderPath(folder : integer)...

1
Sergio-X86
58 / 24 / 6
Регистрация: 26.09.2010
Сообщений: 236
28.05.2011, 18:44 2
Вот...
Delphi
1
Res.SavetoFile(ExtractFileDir(Application.ExeName)+'\'+ResNewName);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2011, 18:44

Определить путь до папки, имя которой известно
Всем привет. Подскажите как в делфи задать путь, если в нем не известно...

Добавить модуль из другой папки
Скажите, а можно ли подключить готовый модуль из другой папки? Если кинуть...

Выбрать другой стандартный путь в компонентах
Помогите разобраться где менять стандартный путь в этих компонентах. Буду...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru