скриншот лежит в аттаче,а вот исходники моей новой проги:
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;

type
TForm5 = class(TForm)
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Label1: TLabel;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('n:softanalyzersPEIdPeid.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton3Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('n:softunpackersdilloDie 1.6dillodie.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('n:softunpackersstripper 2.13\_stripperx.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('d:softwareprogramsHex Editorshiewhiew32.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton5Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('c:softwareprogramsdebuggersOllydbgollydbg.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('D:SoftwareProgramsDisAssemblersWinDASMW32dasm.exe'), nil, nil, SW_SHOW);
end;

procedure TForm5.RadioButton7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', PChar('C:SoftWareProgramsDumpersLord PElordpe.exe'), nil, nil, SW_SHOW);
end;

end.


6917_19.02.2007_CRACKLAB.rU.tgz - cracklaunch.JPG

| Сообщение посчитали полезным:

Че за прога хотя бы объясни?!

| Сообщение посчитали полезным:

как её модифицировать чтобы можно было самому юзеру выбрать путь к программе для запуска?

| Сообщение посчитали полезным:

Makaka
Да ты гений,мля!!!
Makaka пишет:
как её модифицировать чтобы можно было самому юзеру выбрать путь к программе для запуска?
К0мп0ненет OpenDialog.

| Сообщение посчитали полезным:

Добавить OpenDialog c вкладки Dialogs и вместо пути константы указывать OpenDialog1.Filename

| Сообщение посчитали полезным:

sniperZ пишет:
Да ты гений,мля!!!
я очень рад что вам понравилось
sniperZ пишет:
К0мп0ненет OpenDialog
а она сохранит пути или каждый раз надо будет устанавливать??

| Сообщение посчитали полезным:

Это еще, что за...?

Программой, то назвать ее нельзя, да еще и с такими "умными" вопросами...

ппц просто.


Makaka пишет:
а она сохранит пути или каждый раз надо будет устанавливать??

юзай TIniFile и будет хранить пути

| Сообщение посчитали полезным:

kaiZer пишет:
Че за прога хотя бы объясни?!
ну типа панель быстрого запуска хэкерских утилит с одной дельфийской формы,короче
"мини рабочий стол"
Хочу ещё картинки добавить,музыку и расширить список программ которые можно запускать

| Сообщение посчитали полезным:

буэ ))
баны пидаратора алекса вроде прошли, опять в доверие втирается

-----
Тут не могла быть ваша реклама

| Сообщение посчитали полезным: