Ваше мнение..., А нужно ли это? Поделиться Опции

[Vovan_mail]

Сейчас занимаюсь ерундой на делфях и вот не знаю, а нужно-ли это кому из нас Мотофанов.
Пишу прогу которая обьединит, 20 порограмм в одну удобную оболочку. Тобишь указываешь путь к проге и она прявязывается к элементу управления в оболочке. Народ надо-ли эта хрень, чтобы появилась в файловом архиве или нет?

[s_vl]

идея хорошая...
но как это "прявязывается к элементу управления в оболочке"?

[Vovan_mail]

Типа этого. Всё ещё в процессе.....
Здеся есть функции которых нет в обычных делфях.

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
SaveIniString(dsr,'Programm','1',OpenDialog1.FileName);
Edit21.Text:= Copy(ExtractFileName(OpenDialog1.FileName),1,
Length(ExtractFileName(OpenDialog1.FileName))-4);
end;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',StrToPAnsiChar(Edit1.text) , nil, nil, SW_SHOWNORMAL);
end;

[Vovan_mail]

После Upx глюк исправлю ,выложу.

[Vovan_mail]

Вот теперь вроде работает.
Об ошибках просьба сообщить.
За глюк извеняюсь.

[Random]

Типа этого. Всё ещё в процессе.....
Здеся есть функции которых нет в обычных делфях.

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
SaveIniString(dsr,'Programm','1',OpenDialog1.FileName);
Edit21.Text:= Copy(ExtractFileName(OpenDialog1.FileName),1,
Length(ExtractFileName(OpenDialog1.FileName))-4);
end;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',StrToPAnsiChar(Edit1.text) , nil, nil, SW_SHOWNORMAL);
end;

Я че-то не понял, а эта часть кода для кого выложена? :)
А че прога какая большая-то получилась, вроде в архиве...

[Vovan_mail]

Randomx, Графические обьекты+2 вшитых звука. А кусок кода, чел выше спрашивал как это привязать. Слушай ты случаем не знаешь где надыбать типа процедур и функций для моторов, кроме Api.dll. Тобишь для работы в флеш-модэ так-как тело у меня мёртвое, кроме этого режима нет них...