Et nyt vidue i et spil

Dette kode viser meget SIMPELT, hvordan det kan lade sig gøre!
Det er derfor flimret grafik, du vil få at se, men det skulle være nok til at du kan få en ide til at færdig gøre det!
Meningen er selvfølig at du laver en global KeyBoard Hook og bestemmer eventuelt at, hvis man taster F12 så aktiveres dit program, så man kan skrive beskeder til hinanden!
Eksemplet er skrevet direkte i DPR filen, da du jo ikke vil komme til at bruge komponenter (GUI)!!!

BAGDELE: Du kan ikke bruge komponenter så som, TButtons, TEdit osv. Du skal selv bygge det hele op!

program Project1;

//Kun Windows og Grafik uniterne er inkluderet = meget lille program størrelse 60KB
uses
  Windows, Graphics;

  (* VIGTIGT!
   Denne applikation er lavet for at demonstre, hvordan man kan tegne direkte til skærmen!
   Der er ingen TForm indbygget, så for at afslutte må det gøres ved Ctrl+Alt+Delete eller
   hvis du kompiler brug "Program Reset" i Delphi menuen!
   Dette kode er skrevet i selve DPR filen! *)
var
  Stop : Boolean; //Denne Boolean vil bestemmer om MainLoopen skal køre eller ej!
procedure MainLoop;
var
  Canvas : TCanvas;
begin
  //Skaber en Canvas til at tegne grafiken der sendes til skærmen med!
  Canvas := TCanvas.Create;
  //Køre MainLoop indtil "Stop" er sat til True!
  while not Stop do
  with Canvas do
  try
    //Beskidt trick! Finder skærmens DeviceContext for hver gang der skal tegnes til skærmen!
    Canvas.Handle := GetDC(0);
    //Skriver tekst til Canvas - Som derved bliver skrevet på skærmen!
    Canvas.Textout(10,10,'Denne tekst bliver tegnet til skærmen!');
  finally
    //Beskidt trick! Frigiver skærmens DeviceContext!
    ReleaseDC(0,Canvas.Handle);
  end;
  //Tilsidst frigiver vores Canvas!
  Canvas.Free;
end;

//Begynder vores applikation!
begin
  //Refererence til vores MainLoop!
  MainLoop;
//Afslutter vores applikation!
end.

Held og Lykke
Søren Klit Lambæk

NB: Jeg vil meget gerne høre feedback, hvis du vælger at gå videre med koden! Det kunne være spændende at se dit resultat!

Hej jeg kunne meget godt tænke mig at hvide hvordan man kan lave et program der kan lave en transperant vidue skal vi sige en chat til et spil så som Counter-Strike (STEAM) eller BattleField 1942.... Sådan at spillet køre stadig men man kan også se chatten...

Prøv at sætte formstyle til: StayOnTop og så rode ldit med noget AlphaBlend så den blivergennemsigtig.

Nåååå.
Du mener at uden set om der bliver åbnet andre ting. Så vil dit program altid være fremme så man kan se det. Ikke sandt?



I Fight For The FUTUR!!!,
eller sådan noget...

Med mindre det spil du kører er windowed vil det ikke kunne lade sig gøre. Problemet er at når du kører spil har de overtaget hele dit grafikkort. Dette betyder at du ikke har mulighed for selv at overstyre mulighederne med at vise vinduer ovenpå dit spil. Hvis du derimod kører dit program i windowed mode kan du godt gøre det, da windows således håndterer dit grafikkort og dit spil.

(¯`·._.·[Brian Hvarregaard]·._.·´¯)

Nåååå.
Du mener at uden set om der bliver åbnet andre ting. Så vil dit program altid være fremme så man kan se det. Ikke sandt?



I Fight For The FUTUR!!!,
eller sådan noget...

Med mindre det spil du kører er windowed vil det ikke kunne lade sig gøre. Problemet er at når du kører spil har de overtaget hele dit grafikkort. Dette betyder at du ikke har mulighed for selv at overstyre mulighederne med at vise vinduer ovenpå dit spil. Hvis du derimod kører dit program i windowed mode kan du godt gøre det, da windows således håndterer dit grafikkort og dit spil.

(¯`·._.·[Brian Hvarregaard]·._.·´¯)

Er der slet ingen måder man kan det på en slags Hook eller sådan har ikke leget med så dan noget men ved da at det har lidt med det at gøre tror jeg ??

MVH The One

Efter min bedste overbevisning kan det ikke lade sig gøre, desværre.

(¯`·._.·[Brian Hvarregaard]·._.·´¯)

Jo, alt kan lade sig gøre med Delphi! Men glem tanken om at bruge en Windowed applikation! Du bliver nødt til at gå udenom og være lidt kreativ! Jeg har selv prøvet mig lidt frem og det ser ud til at virke! Fidusen er at du skal skrive direkte til skærmen! Og det skal foregå i en selvstændig Thread procedure. Så hvis du er nybegynder er det nok et ret stort spring at tage - for der vil komme mange ting undervejs for at bygge denne type for appliktion der vil virke yderst mærkværdigt og skræmmende! he he....

Jo, alt kan lade sig gøre med Delphi! Men glem tanken om at bruge en Windowed applikation! Du bliver nødt til at gå udenom og være lidt kreativ! Jeg har selv prøvet mig lidt frem og det ser ud til at virke! Fidusen er at du skal skrive direkte til skærmen! Og det skal foregå i en selvstændig Thread procedure. Så hvis du er nybegynder er det nok et ret stort spring at tage - for der vil komme mange ting undervejs for at bygge denne type for appliktion der vil virke yderst mærkværdigt og skræmmende! he he....

Okay.. Men det er vel ikke sådan du gider at fikse noget kode sammen til mig så jeg kan studerer det lidt så ville det være rart...

MVH. Th3 0n3

Dette kode viser meget SIMPELT, hvordan det kan lade sig gøre!
Det er derfor flimret grafik, du vil få at se, men det skulle være nok til at du kan få en ide til at færdig gøre det!
Meningen er selvfølig at du laver en global KeyBoard Hook og bestemmer eventuelt at, hvis man taster F12 så aktiveres dit program, så man kan skrive beskeder til hinanden!
Eksemplet er skrevet direkte i DPR filen, da du jo ikke vil komme til at bruge komponenter (GUI)!!!

BAGDELE: Du kan ikke bruge komponenter så som, TButtons, TEdit osv. Du skal selv bygge det hele op!

Kode 

program Project1;

//Kun Windows og Grafik uniterne er inkluderet = meget lille program størrelse 60KB
uses
  Windows, Graphics;

  (* VIGTIGT!
   Denne applikation er lavet for at demonstre, hvordan man kan tegne direkte til skærmen!
   Der er ingen TForm indbygget, så for at afslutte må det gøres ved Ctrl+Alt+Delete eller
   hvis du kompiler brug "Program Reset" i Delphi menuen!
   Dette kode er skrevet i selve DPR filen! *)
var
  Stop : Boolean; //Denne Boolean vil bestemmer om MainLoopen skal køre eller ej!
procedure MainLoop;
var
  Canvas : TCanvas;
begin
  //Skaber en Canvas til at tegne grafiken der sendes til skærmen med!
  Canvas := TCanvas.Create;
  //Køre MainLoop indtil "Stop" er sat til True!
  while not Stop do
  with Canvas do
  try
    //Beskidt trick! Finder skærmens DeviceContext for hver gang der skal tegnes til skærmen!
    Canvas.Handle := GetDC(0);
    //Skriver tekst til Canvas - Som derved bliver skrevet på skærmen!
    Canvas.Textout(10,10,'Denne tekst bliver tegnet til skærmen!');
  finally
    //Beskidt trick! Frigiver skærmens DeviceContext!
    ReleaseDC(0,Canvas.Handle);
  end;
  //Tilsidst frigiver vores Canvas!
  Canvas.Free;
end;

//Begynder vores applikation!
begin
  //Refererence til vores MainLoop!
  MainLoop;
//Afslutter vores applikation!
end.

Held og Lykke
Søren Klit Lambæk

NB: Jeg vil meget gerne høre feedback, hvis du vælger at gå videre med koden! Det kunne være spændende at se dit resultat!

Mange tak Søren... Jeg skal skrive til dig når det er... + du får lige OP´s