Kopier noget fra mit program til...

mm jeg har lidt kode til sådan en model:
Den virker ved at brugeren skriver noget i memo feltet..
Så skal man trykke på F12 for at paste indholdet ud på en hjemmeside f.eks, den virker upåklagelig:-)
hjælpen fandt jeg her: http://www.eksperten.dk/spm/201736 og på d-tnt.co.uk
here goes:
unit Unit1;
interface
uses  Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,  StdCtrls, ClipBrd;
type
TForm1 = class(TForm)
    Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WndProc(var Message: TMessage); override;
  public
  { Public declarations }
procedure ToClipbrd(StrValue: string);
end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WndProc(var Message: TMessage);
var
TmpStr : String;
begin
TmpStr := Memo1.Text;
  if (Message.Msg = WM_HOTKEY) and (Message.wParam = IDHOT_SNAPWINDOW)
  then
  begin
  if length(TmpStr) > 0 then
  begin
  ToClipbrd(TmpStr);
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(VkKeyScan('v'), 1, 0, 0);
    keybd_event(VK_CONTROL, 0,KEYEVENTF_KEYUP,0);
    keybd_event(VkKeyScan('v'), 1, KEYEVENTF_KEYUP, 0);
    end;
    end;
    inherited WndProc(Message);
    end;
    procedure TForm1.ToClipbrd(StrValue: string);
    var
    A: array[0..255] of char;
    begin
    StrPCopy(A, StrValue);
    Clipboard.SetTextBuf(A);
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      if not (csDesigning in ComponentState) then
      RegisterHotkey(handle, IDHOT_SNAPWINDOW, 0,VK_F12);
end;
      end.
smid en tmemo ind på din form, så sku den virke:-)

og somsagt er f12 triggeren til den

wil/

lige en ting, dobbelt klik lige på formen før du compiler, så tform lige kommer ind i koden

bruger den selv i mit nyeste program www.asio.dk/web.zip

du siger det virker men det gør det altså ikke

laver lige et test projekt, 2 sec

www.asio.dk/test.zip

vær så godt...den der virker, 100 %

nope, den virker ikke

jeg kører WinXP kan det være derfor ?

jepper det kunne muligvis være derfor, har testet den på win98, og 2000 der virker de fint

svar