如何获取Windows复制、粘贴文件的消息?(300分)

zzutrain · 2003-03-21

如何获取Windows复制、粘贴文件的消息?

淡淡的笑 · 2003-03-21

delphi5开发人员指南中好象有介绍。 我自己的程序中写过一段剪贴板的,你参考看看,判断剪贴板的格式是否为文件应该就可以了，可是判断 剪贴板中的数据格式如果为e:/xxx.zip这样的行，就一行一行进行判断是否存在这个文件以进行确认 是否为copy文件的信息。。   //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口   SendMessage(NextClipHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);   //查询剪贴板中特定格式的数据内容   if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then   begin     //处理剪贴板中内容     tmpStr:=Clipboard.asText;   end;   if(NextClipHwnd<>0) then   begin     //从观察链中删除本观察窗口     ChangeClipboardChain(Handle,NextClipHwnd);     //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口     SendMessage(NextClipHwnd,WM_CHANGECBCHAIN,Handle,NextClipHwnd);     NextClipHwnd:=0;   end;   //获得观察链中下一个窗口句柄   if(NextClipHwnd=0) then   begin     NextClipHwnd:=SetClipBoardViewer(Handle);   end; 以上为我的理解，仅供参考。

tianjh007 · 2003-03-21

WM_COPY   WM_CUT   WM_PASTE   可以这么做 procedure ClipCopy(var M:TMessage); Message WM_COPY; //自己处理 begin end;

zzutrain · 2003-03-22

再说明一下，当用户复制了一个文件，当他点击粘贴时，Windows不执行该复制文件的操作． 用自己的程序来实现Windows的操作．或者更确切的说，是拦截粘贴文件的消息

baidie · 2003-03-22

早说吗？害得楼上两位大哥都误解了！这个问题要根据不同的编辑框来定 也就是要取得编辑框的句柄后才可以操作，用sendmessage就可以直接屏蔽 windows的消息

abc_xp · 2003-03-22

DELPHI有一个剪贴板的类地 好像是叫 忘了，你查一下帮助 很简单地，我在书上看到过地

独帅 · 2003-03-22

Delphi的例子： X:/Program Files/Borland/Delphi6/Demos/ActiveX/ShellExt/copyhook.dpr

zzutrain · 2003-03-22

惭愧惭愧，一直用Delphi5开做开发，刚用Delphi6没有多久，连例子也没有来得及看，回去一定 好好看看，若可以实现，回头给分．

hfghfghfg · 2003-03-22

{*******************************************************} {                                                       } {       Borland Delphi Visual Component Library         } {                                                       } {  Copyright (c) 1995-2001 Borland Software Corporation } {                                                       } {*******************************************************} unit Clipbrd; {$R-,T-,H+,X+} interface uses Windows, Messages, Classes, Graphics; var   CF_PICTURE: Word;   CF_COMPONENT: Word; { TClipboard } { The clipboard object encapsulates the Windows clipboard.   Assign - Assigns the given object to the clipboard.  If the object is     a TPicture or TGraphic desendent it will be placed on the clipboard     in the corresponding format (e.g. TBitmap will be placed on the     clipboard as a CF_BITMAP). Picture.Assign(Clipboard) and     Bitmap.Assign(Clipboard) are also supported to retrieve the contents     of the clipboard.   Clear - Clears the contents of the clipboard.  This is done automatically     when the clipboard object adds data to the clipboard.   Close - Closes the clipboard if it is open.  Open and close maintain a     count of the number of times the clipboard has been opened.  It will     not actually close the clipboard until it has been closed the same     number of times it has been opened.   Open - Open the clipboard and prevents all other applications from changeing     the clipboard.  This is call is not necessary if you are adding just one     item to the clipboard.  If you need to add more than one format to     the clipboard, call Open.  After all the formats have been added. Call     close.   HasFormat - Returns true if the given format is available on the clipboard.   GetAsHandle - Returns the data from the clipboard in a raw Windows handled     for the specified format.  The handle is not owned by the application and     the data should be copied.   SetAsHandle - Places the handle on the clipboard in the given format.  Once     a handle has been given to the clipboard it should *not* be deleted.  It     will be deleted by the clipboard.   GetTextBuf - Retrieves   AsText - Allows placing and retrieving text from the clipboard.  This property     is valid to retrieve if the CF_TEXT format is available.   FormatCount - The number of formats in the Formats array.   Formats - A list of all the formats available on the clipboard. } type   TClipboard = class(TPersistent)   private     FOpenRefCount: Integer;     FClipboardWindow: HWND;     FAllocated: Boolean;     FEmptied: Boolean;     procedure Adding;     procedure AssignGraphic(Source: TGraphic);     procedure AssignPicture(Source: TPicture);     procedure AssignToBitmap(Dest: TBitmap);     procedure AssignToMetafile(Dest: TMetafile);     procedure AssignToPicture(Dest: TPicture);     function GetAsText: string;     function GetClipboardWindow: HWND;     function GetFormatCount: Integer;     function GetFormats(Index: Integer): Word;     procedure SetAsText(const Value: string);   protected     procedure AssignTo(Dest: TPersistent); override;     procedure SetBuffer(Format: Word; var Buffer; Size: Integer);     procedure WndProc(var Message: TMessage); virtual;     procedure MainWndProc(var Message: TMessage);     property Handle: HWND read GetClipboardWindow;     property OpenRefCount: Integer read FOpenRefCount;   public     procedure Assign(Source: TPersistent); override;     procedure Clear; virtual;     procedure Close; virtual;     function GetComponent(Owner, Parent: TComponent): TComponent;     function GetAsHandle(Format: Word): THandle;     function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;     function HasFormat(Format: Word): Boolean;     procedure Open; virtual;     procedure SetComponent(Component: TComponent);     procedure SetAsHandle(Format: Word; Value: THandle);     procedure SetTextBuf(Buffer: PChar);     property AsText: string read GetAsText write SetAsText;     property FormatCount: Integer read GetFormatCount;     property Formats[Index: Integer]: Word read GetFormats;   end; function Clipboard: TClipboard; function SetClipboard(NewClipboard: TClipboard): TClipboard; implementation uses SysUtils, Forms, Consts; procedure TClipboard.Clear; begin   Open;   try     EmptyClipboard;   finally     Close;   end; end; procedure TClipboard.Adding; begin   if (FOpenRefCount <> 0) and not FEmptied then   begin     Clear;     FEmptied := True;   end; end; procedure TClipboard.Close; begin   if FOpenRefCount = 0 then Exit;   Dec(FOpenRefCount);   if FOpenRefCount = 0 then   begin     CloseClipboard;     if FAllocated then       Classes.DeallocateHWnd(FClipboardWindow);     FClipboardWindow := 0;   end; end; procedure TClipboard.Open; begin   if FOpenRefCount = 0 then   begin     FClipboardWindow := Application.Handle;     if FClipboardWindow = 0 then     begin       FClipboardWindow := Classes.AllocateHWnd(MainWndProc);       FAllocated := True;     end;     if not OpenClipboard(FClipboardWindow) then       raise Exception.CreateRes(@SCannotOpenClipboard);     FEmptied := False;   end;   Inc(FOpenRefCount); end; procedure TClipboard.WndProc(var Message: TMessage); begin   with Message do     Result := DefWindowProc(FClipboardWindow, Msg, wParam, lParam); end; function TClipboard.GetComponent(Owner, Parent: TComponent): TComponent; var   Data: THandle;   DataPtr: Pointer;   MemStream: TMemoryStream;   Reader: TReader; begin   Result := nil;   Open;   try     Data := GetClipboardData(CF_COMPONENT);     if Data = 0 then Exit;     DataPtr := GlobalLock(Data);     if DataPtr = nil then Exit;     try       MemStream := TMemoryStream.Create;       try         MemStream.WriteBuffer(DataPtr^, GlobalSize(Data));         MemStream.Position := 0;         Reader := TReader.Create(MemStream, 256);         try           Reader.Parent := Parent;           Result := Reader.ReadRootComponent(nil);           try             if Owner <> nil then               Owner.InsertComponent(Result);           except             Result.Free;             raise;           end;         finally           Reader.Free;         end;       finally         MemStream.Free;       end;     finally       GlobalUnlock(Data);     end;   finally     Close;   end; end; procedure TClipboard.SetBuffer(Format: Word; var Buffer; Size: Integer); var   Data: THandle;   DataPtr: Pointer; begin   Open;   try     Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);     try       DataPtr := GlobalLock(Data);       try         Move(Buffer, DataPtr^, Size);         Adding;         SetClipboardData(Format, Data);       finally         GlobalUnlock(Data);       end;     except       GlobalFree(Data);       raise;     end;   finally     Close;   end; end; procedure TClipboard.SetComponent(Component: TComponent); var   MemStream: TMemoryStream; begin   MemStream := TMemoryStream.Create;   try     MemStream.WriteComponent(Component);     SetBuffer(CF_COMPONENT, MemStream.Memory^, MemStream.Size);   finally     MemStream.Free;   end; end; function TClipboard.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; var   Data: THandle; begin   Open;   Data := GetClipboardData(CF_TEXT);   if Data = 0 then Result := 0 else   begin     Result := StrLen(StrLCopy(Buffer, GlobalLock(Data), BufSize - 1));     GlobalUnlock(Data);   end;   Close; end; procedure TClipboard.SetTextBuf(Buffer: PChar); begin   SetBuffer(CF_TEXT, Buffer^, StrLen(Buffer) + 1); end; function TClipboard.GetAsText: string; var   Data: THandle; begin   Open;   Data := GetClipboardData(CF_TEXT);   try     if Data <> 0 then       Result := PChar(GlobalLock(Data))     else       Result := '';   finally     if Data <> 0 then GlobalUnlock(Data);     Close;   end; end; function TClipboard.GetClipboardWindow: HWND; begin   if FClipboardWindow = 0 then     Open;   Result := FClipboardWindow; end; procedure TClipboard.SetAsText(const Value: string); begin   SetBuffer(CF_TEXT, PChar(Value)^, Length(Value) + 1); end; procedure TClipboard.AssignToPicture(Dest: TPicture); var   Data: THandle;   Format: Word;   Palette: HPALETTE; begin   Open;   try     Format := EnumClipboardFormats(0);     while Format <> 0 do     begin       if TPicture.SupportsClipboardFormat(Format) then       begin         Data := GetClipboardData(Format);         Palette := GetClipboardData(CF_PALETTE);         Dest.LoadFromClipboardFormat(Format, Data, Palette);         Exit;       end;       Format := EnumClipboardFormats(Format);     end;     raise Exception.CreateRes(@SInvalidClipFmt);   finally     Close;   end; end; procedure TClipboard.AssignToBitmap(Dest: TBitmap); var   Data: THandle;   Palette: HPALETTE; begin   Open;   try     Data := GetClipboardData(CF_BITMAP);     Palette := GetClipboardData(CF_PALETTE);     Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);   finally     Close;   end; end; procedure TClipboard.AssignToMetafile(Dest: TMetafile); var   Data: THandle;   Palette: HPALETTE; begin   Open;   try     Data := GetClipboardData(CF_METAFILEPICT);     Palette := GetClipboardData(CF_PALETTE);     Dest.LoadFromClipboardFormat(CF_METAFILEPICT, Data, Palette);   finally     Close;   end; end; procedure TClipboard.AssignTo(Dest: TPersistent); begin   if Dest is TPicture then     AssignToPicture(TPicture(Dest))   else if Dest is TBitmap then     AssignToBitmap(TBitmap(Dest))   else if Dest is TMetafile then     AssignToMetafile(TMetafile(Dest))   else inherited AssignTo(Dest); end; procedure TClipboard.AssignPicture(Source: TPicture); var   Data: THandle;   Format: Word;   Palette: HPALETTE; begin   Open;   try     Adding;     Palette := 0;     Source.SaveToClipboardFormat(Format, Data, Palette);     SetClipboardData(Format, Data);     if Palette <> 0 then SetClipboardData(CF_PALETTE, Palette);   finally     Close;   end; end; procedure TClipboard.AssignGraphic(Source: TGraphic); var   Data: THandle;   Format: Word;   Palette: HPALETTE; begin   Open;   try     Adding;     Palette := 0;     Source.SaveToClipboardFormat(Format, Data, Palette);     SetClipboardData(Format, Data);     if Palette <> 0 then SetClipboardData(CF_PALETTE, Palette);   finally     Close;   end; end; procedure TClipboard.Assign(Source: TPersistent); begin   if Source is TPicture then     AssignPicture(TPicture(Source))   else if Source is TGraphic then     AssignGraphic(TGraphic(Source))   else inherited Assign(Source); end; function TClipboard.GetAsHandle(Format: Word): THandle; begin   Open;   try     Result := GetClipboardData(Format);   finally     Close;   end; end; procedure TClipboard.SetAsHandle(Format: Word; Value: THandle); begin   Open;   try     Adding;     SetClipboardData(Format, Value);   finally     Close;   end; end; function TClipboard.GetFormatCount: Integer; begin   Result := CountClipboardFormats; end; function TClipboard.GetFormats(Index: Integer): Word; begin   Open;   try     Result := EnumClipboardFormats(0);     while Index > 0 do     begin       Dec(Index);       Result := EnumClipboardFormats(Result);     end;   finally     Close;   end; end; function TClipboard.HasFormat(Format: Word): Boolean;   function HasAPicture: Boolean;   var     Format: Word;   begin     Open;     try       Result := False;       Format := EnumClipboardFormats(0);       while Format <> 0 do         if TPicture.SupportsClipboardFormat(Format) then         begin           Result := True;           Break;         end         else Format := EnumClipboardFormats(Format);     finally       Close;     end;   end; begin   Result := IsClipboardFormatAvailable(Format) or ((Format = CF_PICTURE) and     HasAPicture); end; var   FClipboard: TClipboard; function Clipboard: TClipboard; begin   if FClipboard = nil then     FClipboard := TClipboard.Create;   Result := FClipboard; end; function SetClipboard(NewClipboard: TClipboard): TClipboard; begin   Result := FClipboard;   FClipboard := NewClipboard; end; procedure TClipboard.MainWndProc(var Message: TMessage); begin   try     WndProc(Message);   except     if Assigned(ApplicationHandleException) then       ApplicationHandleException(Self)     else       raise;   end; end; initialization   { The following strings should not be localized }   CF_PICTURE := RegisterClipboardFormat('Delphi Picture');   CF_COMPONENT := RegisterClipboardFormat('Delphi Component');   FClipboard := nil; finalization   FClipboard.Free; end.

独帅 · 2003-03-22

to zzutrain: //惭愧惭愧，一直用Delphi5开做开发，刚用Delphi6没有多久，连例子也没有来得及看，回去一定 //好好看看，若可以实现，回头给分． 对不起，可我想告诉你，这个例子Delphi5里面就有了，和Delphi6里面的一模一样

zzutrain · 2003-03-24

楼上的大哥好象搞错了．我要的文件操作，不是文件夹的，而且更重要是拦截创建文件的 消息．copyhook是对文件夹操作的。真不好意思，但是还是要谢谢你。

zzutrain · 2003-03-26

没有人可以告诉我么？

zzutrain · 2003-03-31

没有人可以帮我解决这个问题么？

独帅 · 2003-04-07

//楼上的大哥好象搞错了．我要的文件操作，不是文件夹的，而且更重要是拦截创建文件的 //消息．copyhook是对文件夹操作的。 对不起，我说的例子是搞错了[8D] 刚才倒发现一个可以监视文件及文件夹操作的程序，不过不能拦截 http://210.78.159.116:8080/dispbbspro.php?id=2 或许还有未公开的函数可以做到

zzutrain · 2003-04-07

先谢谢楼上的兄弟！我看看去

zzutrain · 2003-04-07

我看过了，上边的内容我已用来监视硬件的热插拔了。不过还是很谢谢您。

旭日升 · 2003-05-27

SendMessage(h,WM_Cut, 0, 0 ) ; SendMessage(h,WM_Copy, 0, 0 ) ; SendMessage(h,WM_Paste, 0, 0 ) ;

zzutrain · 2004-03-27

问题未解决，拖太久了，散分。

如何获取Windows复制、粘贴文件的消息?(300分)

zzutrain

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

baidie

Unregistered / Unconfirmed

abc_xp

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

Similar threads

如何获取Windows复制、粘贴文件的 消息?(300分)

zzutrain

Unregistered / Unconfirmed

淡淡的笑

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

baidie

Unregistered / Unconfirmed

abc_xp

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

hfghfghfg

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

zzutrain

Unregistered / Unconfirmed

Similar threads

如何获取Windows复制、粘贴文件的消息?(300分)