SCHMaster
|
Posted: Fri Mar 04, 2005 03:46 Post subject: |
|
|
Nik
Code: | Отлавливаем сообщение
procedure TAnyApp.WMTransfer(var Msg: TWMCopyData);
var
i:Integer;
CmdStr:string;
CData:TCopyDataStruct;
len:integer;
begin
CData:=Msg.CopyDataStruct^;
CmdStr:='';
len:=CData.cbData;
for i:=0 to len-1 do
begin
CmdStr:=CmdStr+(PChar(CData.lpData)+i)^;
end;
if (not FileExists(CmdStr)) then Exit;
...
end;
Отправляем сообщение
...
DataStruct.lpData:=PChar(FileName);
DataStruct.cbData:=Length(FileName);
DataStruct.dwData:=0;
WParam:=SendFromHandle;
LParam:=Integer(@DataStruct);
SendMessage(W,WM_CopyData,WParam,LParam);
... |
Где-то так... |
|