spyder

Obrigado pela vossa ajuda!! Resolvido!

O codigo fica assim... procedure ScreenShot(activeWindow: bool; destBitmap : TBitmap); var w,h : integer; DC : HDC; hWin : Cardinal; r : TRect; begin if activeWindow then begin hWin := GetForegroundWindow; dc := GetWindowDC(hWin); GetWindowRect(hWin,r); w := r.Right - r.Left; h := r.Bottom - r.Top; end else begin hWin := GetDesktopWindow; dc := GetDC(hWin); w := GetDeviceCaps (DC, HORZRES); h := GetDeviceCaps (DC, VERTRES); end; try destBitmap.Width := w; destBitmap.Height := h; BitBlt(destBitmap.Canvas.Handle, 0, 0, destBitmap.Width, destBitmap.Height, DC, 0, 0, SRCCOPY); finally ReleaseDC(hWin, DC); end; end; procedure TForm1.Button1Click(Sender: TObject); var b:TBitmap; begin b := TBitmap.Create; try ScreenShot(TRUE, B); Image1.Picture.Bitmap.Assign(B); finally b.FreeImage; FreeAndNil(B); end; end; end. Como faço para gravar a imagem em um determinado lugar?? usei jpeg.SaveToFile(ExtractFilePath(Application.ExeName) +'.jpg'); Mas não to coseguindo.. Obrigado...

ola pessoal.. Eu tanho este codigo para capturar imagem de tela do pc.. procedure TForm1.CapturarTela; var bmp : TBitmap; jpeg : TJPEGImage; dia,mes,ano,hora,min,seg, mseg : word; begin bmp := TBitmap.Create; Clipboard.Clear; keybd_event(vk_snapshot,0, 0, 0); Application.ProcessMessages; bmp.LoadFromClipboardFormat(CF_BITMAP,clipboard.GetAsHandle(CF_BITMAP),0); jpeg := TJPEGImage.Create; jpeg.Assign(bmp); DecodeDate(now,ano,mes,dia); DecodeTime(now,hora,min,seg,mseg); jpeg.SaveToFile(ExtractFilePath(Application.ExeName) + inttostr(dia) + '.' + inttostr(mes) + '.' + inttostr(ano) + '.' + inttostr(hora) + '.' + inttostr(min) + '.' + inttostr(seg) + '.jpg'); jpeg.Free; bmp.Free; end; O problema e o seguinte quando meto este codigo num timer dá erro (unsupported clipboard format). Já no button fica tudo bem. alguém sabe o que to fazendo mal?? Obrigado...

Era mesmo isto!!! Mais uma ves obrigado jhonas!!!

Boa noite!! Pessoal eu tanho este codigo para estrair icones de um executavel.. imagem.Picture.Icon.Handle:= ExtractIcon(Handle,PChar('c:\imagem'),0); Mas ele so aparece no formolario e não da para copiar ou guardar!! alguém sabe como posso fazer,para guardar o icone em alguma pasta!?? Obrigado

problema resolvido!! obrigado a todos!!!

voçe poderia me informar como faço um arquivo de recursos?

ola! Sim eu quero colocar um exe dentro de outro.. seria possivel no delphi!??

ola pessoal... é assim pessoal eu to precisando juntar dois arquivos (.exe) alguém sabe como fazer isso no delphi??