Screenshooter 1.3

Wow! Jag är impad Mirza, det ser ju skitbra ut. Du e ju grym :D:D:D

Sajten bör nog vara på engelska och min email är delight@colacao.es
Jag har ingen ICQ, bara msnm - lundeholm@hotmail.com. Version 1.4 är så gott som klar (bara en liten bugg). Jag har oxå skrivit en liten dokumentation i en textfil som man nog kan slänga upp i nån form på sidan. Annars har jag inget att säga om sidan, den var helt perfekt

Ja nu ska nog 1.4 vara klart då. Testa om ni hittar några buggar eller nått. Lägg märke till den fina ikonen jag satt och gjorde igår

Om ni som har en mirror kunde uppdatera programmet vore det bra.

EDIT: Länk borttagen. Jag googlade lite efter "Screenshooter" och det visade sig att det finns mängder med liknande program som heter samma sak. Det blir nog att hitta på ett nytt namn ( å jag som var så nöjd med det namnet...)

/Filip

alo ice,

jag tog bort länken så jag kunde byta namnet och sen ladda upp filen igen men det blev visst inte så. Jag skiter i att byta namn tror jag så jag slänger upp 1.4 igen.

"Hur gör du för att ta själv screenshoten?". Jag förstår inte frågan riktigt...

http://bestyrd.mine.nu/upload/files/Screenshooter14.zip

inte så mycket "delphi kod" används. I den första releasen använde jag bara en hotkey till PrtSc-knappen och en annan till alt+PrtSc, men sedan hittade jag ett API som skötte det på ett mycket finare sätt.

Med SetClipboardViewer får ett program meddelandet WM_DRAWCLIPBOARD varje gång innehållet i clipboarden ändras och då är det bara kolla om innehållet är en bild och i så fall spara bilden. Denna teknik kan enkelt utvecklas till att kunna spara alla sorters kopierade format (precis som programmet ClipMate).

Shit, hade glömt bort att det finns en ny version jag oxå Fasen va najs!

*lägger in i autostart*

nix

hmm...kanske nån stans. Eventuellt på nån gammal backup DVD på vinden eller nått. Hur så?

edit: kikade lite på en gammal extern hårddisk och hittade minsann koden, fantastiskt...

Vilken del är du intresserad av?

tja, åkte iväg och såg tråden nu. Starta nytt projekt och släng ut en image-komponent och ändra Align till alClient.

I FormCreate:

RegisterHotKey(Self.Handle, 1, 0, VK_SNAPSHOT);

I FormClose:

UnRegisterHotKey(Self.Handle, 1);

Lägg in följande i koden oxå:

procedure TForm1.WMHotKey(var Msg : TWMHotKey);
var
  ScreenCanvas: TCanvas;
  R: TRect;
begin
  ScreenCanvas:= TCanvas.Create;
  ScreenCanvas.handle := CreateDC('DISPLAY', nil, nil, nil );
  R:= Rect( 0, 0, Screen.Width, Screen.Height );
  image1.Canvas.copyrect( R, ScreenCanvas, R );
  ScreenCanvas.Free;
  Msg.Result := 0;
end;

Glöm inte att deklarera ovanstående procedur heller (under private kanske):

  private
    { Private declarations }
    procedure WMHotkey( Var msg: TWMHotkey); message WM_HOTKEY;

Där har du ett färdigt screenshooter!

Har för mig att TImage har en SaveToFile-funktion. Typ Image1.SaveToFile('c:\minfil.bmp');

Lägg den koden efter ScreenCanvas.Free; isåfall

Image.Picture.SaveToFile() var det tydligen om du vill spara i bmp. Vill du spara i andra format ,t.ex. jpeg, är det svårare.