Auflösung umstellen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von MisterJ, 29. April 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 29. April 2006
    Hi Leute!

    Ich soll für eine Multimediaproduktion ein Prog coden, dass folgende Merkmale hat:

    Code:
    Wenn man es öffnet prüft es, ob es die Auflösung auf 1024*768 umstellen kann
    Wenn nein -> Fehlermeldung
    Andernfalls stellt es die Auflösung um und öffnet eine start.exe
    Wenn start.exe nun wieder beendet wird ->
    die Auflösung wieder zurückstellen und sich selbst beenden
    Kann mir jemand sowas coden? Geht bestimmt nicht in Delphi oder VB, deswegen kann ich das nicht.
    Wenn nein dann vlt. sagen, wo ich das passende Tut finde oder welche Funktionen ich dafür brauche, vlt. geht es ja doch mit Delphi.
     
  2. 29. April 2006
    aja natürlich geht das nicht *achtung ironie*

    das einzige was etwas schwerer ist, ist dass man warten muss bis die start.exe beendet wurde. das kann aber durch ne überprüfung im taskmanager stattfinden oder noch viel einfacher die start.exe sendet n "ich bin fertig" command an die andere exe.

    aber das ist defenetiv nicht unmöglich in delphi oder vb...
     
  3. 29. April 2006
    Mit VB ist das sehr wohl möglich ;(

    schau dir folgendes mal an:
    http://www.activevb.de/tipps/vb6tipps/tipp0072.html
    und
    http://www.activevb.de/tipps/vb6tipps/tipp0251.html

    und zum warten bis die andere anwendung geschlossen ist:
    http://www.activevb.de/tipps/vb6tipps/tipp0148.html

    bitteschön

    edit:
    erkennen ob die graka das kann:
    Hardwareinformationen - ActiveVB
    das is zwar n bissl komplizierter aber egal... geht siche auch anders
     
  4. 29. April 2006
    der ganze spass mit delphi:
    Code:
    function ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
    var
     DeviceMode: TDeviceModeA;
     i: Integer;
    begin
     i := 0;
     Result := False;
     while EnumDisplaySettings(nil, i, DeviceMode) do begin
     with DeviceMode do
     if (dmPelsWidth = sizex) and
     (dmPelsHeight = SizeY) and 
     (dmBitsPerPel = bpp) then begin
     // erst testen, bevor wir umschalten!
     case ChangeDisplaySettings(DeviceMode, CDS_TEST) of
     // es wird klappen!
     DISP_CHANGE_SUCCESSFUL:
     Result := True;
    
     DISP_CHANGE_RESTART:
     Showmessage('Neustart erforderlich');
    
     DISP_CHANGE_BADFLAGS:
     Showmessage('Ungültige Bildschirmeinstellungen');
    
     DISP_CHANGE_FAILED:
     Showmessage('Auflösung konnte nicht geändert werden');
    
     DISP_CHANGE_BADMODE:
     Showmessage('Bildschirm unterstützt diese Auflösung nicht');
    
     // Nur Windows NT
     DISP_CHANGE_NOTUPDATED:
     Showmessage('Registry konnte nicht aktualisiert werden');
    
     else
     Result := True;
     end;
    
     if Result then 
     //jetzt wird umgeschaltet
     ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN)
     end;
     Inc(i);
     end;
    end;
    die funktion rufste dann mit z.b.
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     ChangeResolution(1024, 768, 32);
    end;
    auf, vergess aber nich vorher auflösung usw auszulesen damit du wieder resetten kannst
     
  5. 29. April 2006
    cool, thx, 10er sind raus.

    *~* CLOSED *~*​
     
  6. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.