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

[Zeron]

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

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.

[Valio]

Такой вопрос я видел уже раз 5

http://programmersforum.ru/showthrea...002#post803002

[Zeron]

Дело в том, что я вообще ничего не знаю по Delphi, поэтому не могу разобраться.
Напишите пожалуйста как должно быть, кому не в лом.

[Человек_Борща]

ExtractFilePath(ParamStr(0));

[Zeron]

а это куда добавить? я как бы очень, очень новичёк.

[Человек_Борща]

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

а это куда добавить? я как бы очень, очень новичёк.

Ну если совсем новичек то иди читать книги. т.к. ты азов не знаешь. Хотябы того же Фленова (Библия delphi) прочти.

[Zeron]

Ну зачем мне книги читать?! Мне только это нужно, и больше ничего.
Неужели мне из-за пару строк весь язык delphi учить...

Помогите кто-нибудь, тут всего-то чуть чуть надо подправить код.
Вам же всем расплюнуть это сделать, а я мучиться буду.

[Valio]

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

Ну зачем мне книги читать?! Мне только это нужно, и больше ничего.
Неужели мне из-за пару строк весь язык delphi учить...

Помогите кто-нибудь, тут всего-то чуть чуть надо подправить код.
Вам же всем расплюнуть это сделать, а я мучиться буду.

Ключевая фраза "это надо тебе".
За 100 руб тебе всё напишут.

[Zeron]

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

Ключевая фраза "это надо тебе".
За 100 руб тебе всё напишут.

вы что издеваетесь? тут всего 3 строчки исправить!

[Valio]

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

вы что издеваетесь? тут всего 3 строчки исправить!

Если это так просто, то почему ты это не хочешь сделать сам?