DVD mit DSPack abspielen

[lbccaleb]

Du könntest es mit ner Globalen Variable machen, zb:

Delphi-Quellcode:

var
IsSearching: Boolean;

begin;
if FilterGraph1.Active then
  begin
    if not IsSearching then
    begin;
      If Succeeded(FilterGraph1.QueryInterface(IID_IDVDControl2, DVDControl2)) then
      begin
        DvdControl2.PlayForwards(8.0, DVD_CMD_FLAG_None, DvdCmd);
        DVDControl2 := Nil;
      end;
    end
    else
    begin;
      If Succeeded(FilterGraph1.QueryInterface(IID_IDVDControl2, DVDControl2)) then
      begin
        DvdControl2.PlayForwards(1.0, DVD_CMD_FLAG_None, DvdCmd);
        DVDControl2 := Nil;
      end;
    end; 
  end;

end;