[Win2K] Printscreen commando via run.

[bakkiepleur]

Weet iemand het commando om via start \ run \ een printscreen te maken?

Dus niet via Prt Scr knop of Alt Prt scr en Ctrl Prt scr.

Heb gezocht op MS site en via de Search maar kan niks vinden.

Alleen 1 topic maar deze werdt gesloten voor omhoog kicken.


Iemand enige idee zal eeuwig dankbaar zijn

[Mr.Nobody]

ik heb ff een programma voor je geschreven:

http://home.hccnet.nl/j.aeilkema/prtscr.zip

na het openen, copy to clipboard, daarna sluit ie af.

[ Voor 41% gewijzigd door Mr.Nobody op 19-12-2003 22:12 ]

[grimson]

Het werkt ook nog !! .. Mr. Nobody er is iemand jou nu eeuwig dankbaar

[Mr.Nobody]

no problem, is 2 minuten werk

btw: ik heb hem net nog net iets anders gemaakt, je ziet nu niet meer dat schermpje flitsen in het scherm. maar je was zo snel dat je de 1e versie te pakken hebt

[ Voor 75% gewijzigd door Mr.Nobody op 19-12-2003 22:15 ]

[Rolfie]

Netjes man

[grimson]

Euh.. ik was niet degene die erom vroeg hoor !.. ik vond het alleen uiterst behulpzaam van je *stiekem ook even zelf geprobeerd*

[Osiris]

Hmm, zou je wat uitleg kunnen geven hoe en wat enzo? Lijkt me ook wel interessant voor ons Tweakers

[bakkiepleur]

Mr.Nobody schreef op 19 december 2003 @ 22:11:
ik heb ff een programma voor je geschreven:

http://home.hccnet.nl/j.aeilkema/prtscr.zip

na het openen, copy to clipboard, daarna sluit ie af.

Echt super bedankt!!!

[F_J_K]

WOS --> SA. Ik wil deze progjes allemaal in mijn forumpie
(En het past er beter als los programmaatje )

Bekend icon trouwens

[Fish]

Mr.Nobody schreef op 19 december 2003 @ 22:14:
no problem, is 2 minuten werk

btw: ik heb hem net nog net iets anders gemaakt, je ziet nu niet meer dat schermpje flitsen in het scherm. maar je was zo snel dat je de 1e versie te pakken hebt

kuch ,, ehm kun je hem ook een beetje modden dat je hem naar een file kan saven .... zou handig zijn op werk

[Mr.Nobody]

ja hoor, zal er morgen ff aan werken
zal het zo maken dat als er een bestandsnaam achter prtscr.exe staat hij hem daar in saved.

@Osiris: uitleg? is gewoon een delphi programma, die het screen captured en op het clipboard zet.

edit: deze vraag blijft mij eigenlijk wel bezig houden: wat moeten jullie ermee
ik dacht dat het 1 persoon was die het wilde maar nu zijn er al 3

[ Voor 25% gewijzigd door Mr.Nobody op 20-12-2003 00:36 ]

[WhiteDog]

Mr.Nobody schreef op 20 december 2003 @ 00:35:
ja hoor, zal er morgen ff aan werken
zal het zo maken dat als er een bestandsnaam achter prtscr.exe staat hij hem daar in saved.

@Osiris: uitleg? is gewoon een delphi programma, die het screen captured en op het clipboard zet.

edit: deze vraag blijft mij eigenlijk wel bezig houden: wat moeten jullie ermee
ik dacht dat het 1 persoon was die het wilde maar nu zijn er al 3

wild guess:

event in mbm of een ander prog > run .exe

[Mr.Nobody]

zo, nieuwe versie staat online:

alle parameters zijn opties! je hoeft ze niet te gebruiken (zie voorbeelden in leesmij.txt)

prtscr.exe {filepath} {-multi} {-noclip}


{filepath} plek waar je wilt dat de screendump moet worden opgeslagen. .jpg ook toevoegen in je pad
dus c:\testfolder\test.jpg

{-multi} als je deze optie gebruikt krijg je een screendump van alle monitoren als je meerdere hebt, anders alleen een screendump van de primairy

{-noclip} als je deze optie gebruik komt er geen screendump op het klembord te staan

ik hoor wel of het zo goed is, veel plezier ermee

[Mr.Nobody]

tja, ff een kleine kick voor mezelf. is iedereen tevreden met deze laatste versie?

[Osiris]

Nee, ik niet

Ik vraag me namelijk af of het closed-source is ofzo Like I said, ik denk dat er wel Tweakers geïnteresseerd zijn in het hoe en wat enzo en daarbij is het vermelden van Delphi niet echt uitgebreid

Of wil je de source-code niet openbaar?

[F_J_K]

Werkt heel goed

Wat ik nog zou kunnen verzinnen is dat je met een parameter ook alleen het actieve scherm kan pakken, maar dat lijkt me niet echt werken als de focus juist even naar het programma gaat

Overigens zou je nog even een URL of naam in je leesmij.txt kunnen zetten

[Mr.Nobody]

let vooral niet op mijn mooie code, zeer quick & dirty inelkaar gezet.
normaal gebruik ik tags en ruim ik mooi op.
ik heb een deel copy/paste gebruikt en omdat het een heel klein projectje is alles zo gelaten, vandaar de soms wat vage code
ik heb er net ff met de hand een jpg.free bij gezet, die zat er niet in
geen probleem, want de hele application krijgt bijna direct daarna een terminate
ook multimonitor oplossing is van eenzame hoogte

Delphi:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, clipbrd, jpeg;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure ScreenShot (Image : TBitmap);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
multimonitor, noclip: boolean;

procedure TForm1.FormCreate(Sender: TObject);
var
  bm: tbitmap;
  jpg: TJpegImage;
  filenaam: string;
  i:integer;

begin

  for I := 0 to ParamCount do
  begin
  if LowerCase(ParamStr(i)) = '-multi' then multimonitor := true else
  if LowerCase(ParamStr(i)) = '-noclip' then noclip := true else
  begin
  if pos(lowercase('.jpg'), lowercase(paramstr(i))) > 0 then filenaam := 
LowerCase(ParamStr(i));
  end;
  end;


  bm := Tbitmap.Create;
  jpg := TJpegImage.Create;
  try
     ScreenShot(bm);

     if filenaam <> '' then    {if parameterfilename <> '' then save to file }
     begin
     jpg.Assign(bm);
     if directoryexists(extractfilepath(filenaam)) = false then 
createdir(extractfilepath(filenaam));
     jpg.SaveToFile(filenaam);
     end;

     if noclip = false then ClipBoard.Assign(bm);  {putontheclipboard}

  finally
    bm.Free;
    jpg.free;
  end;
  application.Terminate;
end;

procedure tform1.ScreenShot (Image : TBitmap);
var
  DC : HDC;
begin
  DC := GetDC (GetDesktopWindow);
  try
    if multimonitor = false then
    Image.Width  := GetDeviceCaps (DC, HORZRES)
    else image.Width := screen.DesktopWidth;

    if multimonitor = false then
    Image.Height := GetDeviceCaps (DC, VERTRES)
    else image.Height := screen.DesktopHeight;

    BitBlt(Image.Canvas.Handle, 0, 0, Image.Width,
      Image.Height,DC, 0, 0, SRCCOPY);
    finally
    ReleaseDC (GetDesktopWindow, DC);
  end;
end;
end.

als laatste nog ff een linkje naar het leesmij.txt bestand

[ Voor 11% gewijzigd door Mr.Nobody op 23-12-2003 23:39 ]

[Verwijderd]

smartision-screencopy kan dit ook allemaal en kan ook meerdere achterelkaar en van alleen het active venster. en het is ook opensource

[Mr.Nobody]

F_J_K schreef op 23 december 2003 @ 23:21:
Wat ik nog zou kunnen verzinnen is dat je met een parameter ook alleen het actieve scherm kan pakken, maar dat lijkt me niet echt werken als de focus juist even naar het programma gaat

dat hoeft natuurlijk niet, als mijn form nooit de onactivate bereikt, blijft de huidige active
dit alles hoeft ook niet in een form, had er ook een formless application van kunnen maken, maar dat heeft alles met het quick & dirty te maken