[Artya]

вот пример на вскидку:

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
listbox1.Items.Assign(opendialog1.Files);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
shellexecute(handle,'', PChar(listbox1.Items[0]), '', PChar(listbox1.Items[0]), SW_SHOWNORmAL);
end;
незабудь в USES добавить SHELLAPI

З.Ы.тут правда будет запускатся только первый в списке элемент, но доделать там впринцыпе не сложно...

[UZER]

Подскажите, кто знает, как замутить кнопку в стиле XP
Что-то я не догнал в help'е
Спасибо

[[mzd]]

UZER
Borland Delphi 7 - кидаешь на форму XP manifest. у тебя не только кнопицы будут в стиле ХР - вся прога будет оформлена как в ХР

[JCooper]

UZER или создаешь внешний имяпроги.exe.manifest, есть на сайте oszone, правда кривой

[UZER]

Kuper
Не надо...спасибо

[UZER]

Приведите, пожалуйста, пример использования MessageBeep для вывода звука Exclamation

[s]Исправлено: UZER, 12:02 18-10-2003[/s]

[Partizan]

Делаешь следующее объявление:
function MessageBeep(SoundType: Integer): Boolean; * stdcall; external 'user32.dll';

А далее например так:
procedure TForm1.Button1Click(Sender: TObject);
var s: boolean;
begin
s := MessageBeep(MB_ICONEXCLAMATION);
end;

И напоследок, вместо MB_ICONEXCLAMATION может быть MB_ICONASTERISK, MB_ICONHAND, MB_ICONQUESTION, MB_OK, 0xFFFFFFFF(стандартный beep через системный динамик).

[UZER]

Есть пара вопросов
1. Как сделат форму (наподобе диалога "О программе", которая будет ругаться при нажатии мышой не на неё?
2. Как дать ссылку на mailto:...@...

[Prisoner]

UZER
Не знаю как на счет ругаться (начнем с того, что это не есть культурно ), но сделав окно модальным можно избежать потерю фокуса окном, его можно будет только закрыть.

Второе - тут