Externes Programm im PureBasic Fenster Starten

[Raphi]

Hi Leute,

Ich habe eine Kleine Frage:

Kann man irgendwie ein externes Programm (z.B. ein spiel)

in einem Pure Basic Fenster (OpenScreen, OpenWindow ...) abspielen lassen.

(Wenn man die Desktop auflösung 1024x768 hat, das spiel mit der Auflösung 800x600 auf dem ganzen screen abgebildet; so starten das es auf dem 1024x768 ein extra fenster mit dem spiel(auflösung 800x600) anzeigt?)

[Bisonte]

Ein Programm Shanghaien

Also die meisten Spiele neueren Datums kommen mit einem Fenstermodus daher... Manchmal klappt es einfach in der Verknüpfung ein -window oder -w anzuhängen.

Aber Google ist dein Freund....

[Raphi]

Wo muss man das in der Verknüpfung anhängen?

Beim namen?(wohl kaum oder)

ober bei Eigenschaften:

Bei Ziel?

Bei ausführen in?

Inner halb der " "

Getrennt mit .?

[ts-soft]

Beim namen?(wohl kaum oder)

Genau dort, mit einem Leerzeichen davor.

[Raphi]

Jo Danke Funzt aber leider nicht.

Müste es nicht auch mit:

Code: Alles auswählen

RunProgram("C:\Programme\Programm\Programm.exe","-w","C:\Programme\Programm")

oder

Code: Alles auswählen

RunProgram("C:\Programme\Programm\Programm.exe","-window","C:\Programme\Programm")

Gehen?

[ts-soft]

Erstmal mußte in der Doku zum Programm nachsehen, welche oder ob es Parameter unterstützt.
Bisonte sprach von manchmal!

Wenns solche Parameter gibt, ist es egal ob diese in der Verknüpfung oder bei RunProgram übergeben werden.

Gruß
Thomas

[Raphi]

OK Danke für eure Hilfe.

PS: Haub auch mal gesehen das man das programm minimiert starten kann, und es dann automatisch im Fenstermodus startet. Klappt aber wiederum nicht weil es dann abschlaten

Problembericht an Mircrosoft senden?????

[hjbremer]

wozu das gut sein soll, weiß ich nicht, aber vielleicht hilft dir sowat

Code: Alles auswählen

#Window = 1

RunProgram("Notepad.exe","","",#PB_Program_Hide)
Delay(100)  ;!!!!
hwnd_xyz = FindWindow_(0, "Unbenannt - Editor")

; RunProgram("C:\Programme\Windows NT\Pinball\PINBALL.EXE","","")
; Delay(100)  ;!!!!
; hwnd_xyz = FindWindow_(0, "3D-Pinball für Windows - Space Cadet")

GetWindowRect_(hwnd_xyz, r.rect)
br = r\right - r\left - 6
hh = r\bottom - r\top - 25

OpenWindow(#Window, 60, 90, br, hh, "Test" ) 
 
SetParent_(hwnd_xyz, WindowID(#Window))

;Titelzeile entfernen
 style = GetWindowLong_(hwnd_xyz, #GWL_STYLE)
 style & ~#WS_CAPTION
 SetWindowLong_(hwnd_xyz, #GWL_STYLE, style)  

SetWindowPos_(hwnd_xyz,0,0,0,br,hh,#SWP_SHOWWINDOW)  

SmartWindowRefresh(#Window, 1) 

SetActiveWindow(#Window)


Repeat

  event = WaitWindowEvent(1) 
  
Until event = #PB_Event_CloseWindow 

End 
 

[Bisonte]

Es wäre vielleicht hilfreich mal zu erwähnen, was Du da überhaupt im Fenstermodus starten willst....

[Raphi]

Vielen Dank, das Funktioniert soweit.

außer bei einem Spiel da kommt im Fensternamen TM in klein also so wie ² vor.

Ich habs in word geschrieben und dann kopiert, hat aber nicht funktioniert.

Gibt es dafür villeicht eine Tastencombination?