Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Вниз

AVI   Найти похожие ветки 

← →
Miwa   (2001-12-19 21:36) [1]

Кажись такой код должен работать:

procedure TfrmMain.btnRunClick(Sender: TObject);
var
path,player:string;
begin
path:="Путь к твоему авишнику";
player:="Путь к медиаплейеру";
shellexecute(frmMain.Handle, nil, pchar(player),
pchar(path),nil,SW_SHOW);
end;

Да, кстати, не забудь о "юзес шеллапи" ;о)))

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c