[delphi] Jak na API funkce?

[Smitka]

Nevíte někdo, jak můžu v delfíčkách používat api funkce. Konkrétně jde o BSPlayer: má ve složce .pas soubor s konstantama funkcí programu a zajímalo by mě jak to využít. Třeba externě ovládat BSplayer.

[XOR]

Co takhle :

• uses bsp;
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  bsp_hand : THandle;
  cds:TCOPYDATASTRUCT;
  begin
  bsp_hand := FindWindow('BSPlayer',nil);
  
  cds.dwData:=BSP_OpenFile;
  cds.lpData:=Pchar('c:\film.avi');
  cds.cbData:=strlen(cds.lpData)+1;
  SendMessage(bsp_hand,WM_COPYDATA,0,lParam(@cds));
  SendMessage(bsp_hand,WM_BSP_CMD,BSP_Play,0);
  end;

[Smitka]

Díky moc, to funguje.
V delfíčkách sem lama a tak bych ještě potřeboval poradit jak se dá spustit nějakej program. Nebo jak načtu ActiveX WScript.

[XOR]

Na spouštění znám dvě možnosti, takto:

• uses Shellapi;
  
  procedure TForm1.test;
  var
  spust : string;
  begin
  Spust := 'c:\pokus.exe';
  ShellExecute(GetDesktopWindow(), 'open', PChar(Spust), nil, nil, SW_SHOWNORMAL);
  end;

a takto :

• procedure TForm1.test;
  var
  spust : string;
  begin
  Spust := 'c:\pokus.exe';
  WinExec(PChar(Spust),0);
  end;