Re: [Notes2-team] shell extension

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Aqui funcionou perfeitamente (colocando a unit clipbrd no uses, claro).

Me manda a tua unit inteira, suspeito que o erro esteja em alguma
outra parte do c=F3digo...

Ab.
Anderson

Daniel Roma wrote:

> Fora de cogita=E7=E3o usar a Unit Clpibrd... 250Kb!!!
> =20
> E fazendo o c=F3digo na unha n=E3o ta funcionando... fiz esse c=F3digo=20
> baseado no clipbrd.pas, trocando todas as fun=E7=F5es internas por APIs=
, e=20
> ele n=E3o copia direito... algu=E9m se habilita a dar uma olhada?
> =20
> =20
> procedure SetClipboardText(aText:PChar);
> var Data: THandle;
>     DataPtr: Pointer;
> begin
>   OpenClipboard(GetDesktopWindow);
>   try
>     Data :=3D GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, length(aText));
>     try
>       DataPtr :=3D GlobalLock(Data);
>       try
>         Move(aText^, DataPtr^, length(aText));
>         EmptyClipboard;
>         SetClipboardData(CF_TEXT, Data);
>       finally
>         GlobalUnlock(Data);
>       end;
>     except
>       GlobalFree(Data);
>       raise;
>     end;
>   finally
>     CloseClipboard;
>   end;
> end;
> =20
> =20
> =20
> []=B4s
> =20
> Daniel Roma
> #Equipe do Notes - Desenvolvimento
>
>     ----- Original Message -----
>     *From:* Anderson R. Barbieri <mailto:no...@ig...>
>     *To:* not...@li...
>     <mailto:not...@li...>
>     *Sent:* Thursday, November 20, 2003 3:53 PM
>     *Subject:* Re: [Notes2-team] shell extension
>
>
>     Adicione a unit "Clipbrd" no uses e
>
>     depois basta usar
>     --------------------
>     clipboard.Open;
>     Clipboard.SetTextBuf(PChar(S));
>     clipboard.Close;
>     --------------------
>
>     Onde S =E9 uma vari=E1vel do tipo String. Voc=EA n=E3o precisa
>     criar/destruir a classe Clipboard, isto =E9 feito automaticamente
>     pelo delphi...
>     Tem outros m=E9todos interessantes nesta classe...
>
>     Quanto a avisar, sei l=E1. De repente para arquivos com mais de 100=
KB
>     seja uma boa... e quanto a se =E9 o caminho inteiro, sim, o caminho
>     inteiro (pois convenhamos que d=E1 trabalho pegar o caminho inteiro
>     de um arquivo, =E9 preciso escrever manualmente ou usar algum
>     utilit=E1rio...)
>
>     Tu acha que devemos ter um checkbox para ativar/desativar a shell
>     extension nas prefer=EAncias do Notes?
>
>     Mais arguma coisa?
>
>     Abra=E7o,
>     Anderson
>
>
>     Daniel Roma wrote:
>
>>     Preciso copiar texto pra =E1rea de transfer=EAncia, para as op=E7=F5=
es de
>>     copiar conte=FAdo do arquivo e copiar nome do arquivo.
>>     S=F3 pra confirmar, no copiar nome, =E9 com caminho completo n=E9?
>>     E outra coisa, n=E3o seria legal avisar caso o cara queira copiar =
o
>>     conte=FAdo de um arquivo meio grandinho??
>>     =20
>>     []=B4s
>>     =20
>>     Daniel Roma
>>     #Equipe do Notes: Desenvolvimento
>>     =20
>>
>>         ----- Original Message -----
>>         *From:* Anderson R. Barbieri <mailto:no...@ig...>
>>         *To:* not...@li...
>>         <mailto:not...@li...>
>>         *Sent:* Thursday, November 20, 2003 3:04 PM
>>         *Subject:* Re: [Notes2-team] shell extension
>>
>>
>>         Eu tenho... o c=F3digo do Notes 1.5.4 manipula a =E1rea de
>>         transfer=EAncia
>>         no bra=E7o :)
>>
>>         Me diga o que tu quer fazer que eu te mando prontinho...
>>
>>         Ab.
>>         Anderson
>>
>>         Daniel Roma wrote:
>>
>>>         N=C3O TO ESTRESSADO!!! QUEM FALOU QUE EU TO ESTRESSADO, $#%$%=
#&??
>>>         =20
>>>         :)
>>>         =20
>>>         Desculpem se pareceu que eu tava bravo... s=F3 tava lembrando
>>>         voc=EAs do Shell Ext... achei que vcs tinham esquecido de
>>>         mim... :(
>>>         (nesse instante =E9 a transi=E7=E3o entre o Muito Irritado pr=
o
>>>         Profundamente Magoado)
>>>         =20
>>>         :)
>>>         =20
>>>         Chega de boiolice...
>>>         Espero at=E9 o final da semana mandar algo funcional do
>>>         ShellExt.. estou tendo um pouco de problemas em manipular a
>>>         =C1rea de Transfer=EAncia na unha... algu=E9m tem alguma cois=
a ai
>>>         disso??
>>>         =20
>>>         Quanto aos =EDcones, devo testar ainda hoje se o iconezinho
>>>         que vc fez fica melhor Alan, ai reporto pra voc=EAs.
>>>         =20
>>>         =20
>>>         Abra=E7os a todos,
>>>         =20
>>>         =20
>>>         Daniel Roma
>>>         #Equipe do Notes - Desenvolvimento e Lamenta=E7=F5es em Geral
>>>         "N=E3o importa onde voc=EA esteja, voc=EA sempre estar=E1 l=E1=
!"
>>>
>>>             ----- Original Message -----
>>>             *From:* Allan Rodrigo <mailto:all...@gm...>
>>>             *To:* not...@li...
>>>             <mailto:not...@li...>
>>>             *Sent:* Thursday, November 20, 2003 12:13 AM
>>>             *Subject:* [Notes2-team] shell extension
>>>
>>>             T=E1 estressado, homi (Daniel)? :)
>>>
>>>             Sinceramente, eu realmente n=E3o discuti sobre Shell
>>>             Extension na reuni=E3o e
>>>             nem iria...
>>>             Geralmente a gente provoca uma discuss=E3o quando algo
>>>             melhor pode ser feito
>>>             ou quando temos d=FAvidas sobre a verdadeira vantagem de
>>>             uma determinada coisa.
>>>
>>>             J=E1 o que voc=EA fez est=E1 =F3timo,  s=F3 faz enriquece=
r ainda
>>>             mais o programa e n=E3o
>>>             vejo nada melhor a ser feito.
>>>
>>>             Desculpe por n=E3o ter mandado o =EDcone antes... teste e=
 me
>>>             diga como ficou
>>>
>>>             Com rela=E7=E3o aos outros =EDcones se Moraes, Andrei ou =
Leite
>>>             puderem me ajudar,
>>>             seria =F3timo At=E9 porque, estou com a patinha direita=20
>>>             doendo bastante :-)
>>>             Parece-me que falta os =EDcones para templates, informa=E7=
=E3o
>>>             de arquivo e
>>>             comprimir HTML
>>>
>>>             Sds,
>>>             Allan Rodrigo
>>>             all...@gm... <mailto:all...@gm...>
>>>
>>>             --=20
>>>             NEU F=DCR ALLE - GMX MediaCenter - f=FCr Fotos, Musik,
>>>             Dateien...
>>>             Fotoalbum, File Sharing, MMS, Multimedia-Gru=DF, GMX
>>>             FotoService
>>>
>>>             Jetzt kostenlos anmelden unter http://www.gmx.net
>>>
>>>             +++ GMX - die erste Adresse f=FCr Mail, Message, More! ++=
+
>>>             =20
>>>
>>>             ---
>>>             Verifica=E7=E3o de V=EDrus executada:
>>>             Nenhum v=EDrus encontrado!
>>>             Sudeste Seguran=E7a e Transporte de Valores
>>>             Departamento de Tecnologia e Informa=E7=F5es
>>>             Checked by AVG anti-virus system (http://www.grisoft.com)=
.
>>>             Version: 6.0.538 / Virus Database: 333 - Release Date:
>>>             11/11/2003
>>>
>>
>>         =20
>>         =20
>>
>>         ---
>>         Verifica=E7=E3o de V=EDrus executada:
>>         Nenhum v=EDrus encontrado!
>>         Sudeste Seguran=E7a e Transporte de Valores
>>         Departamento de Tecnologia e Informa=E7=F5es
>>         Checked by AVG anti-virus system (http://www.grisoft.com).
>>         Version: 6.0.538 / Virus Database: 333 - Release Date: 11/11/2=
003
>>
>
>
>--=20
>Anderson Rodrigues Barbieri
>--------------------------------------------
>#Equipe do Notes - Coordenador/Desenvolvedor
>
>{ TAndInfo }
>ICQ #149391850 / no...@ig...
>Notes - http://notes.codigolivre.org.br
>NotesDev - http://notes2.sf.net/dev
>F=F3rum - http://notes2.sf.net/forum
>
>---
>Verifica=E7=E3o de V=EDrus executada:
>Nenhum v=EDrus encontrado!
>Sudeste Seguran=E7a e Transporte de Valores
>Departamento de Tecnologia e Informa=E7=F5es
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.538 / Virus Database: 333 - Release Date: 10/11/2003
>

--=20
Anderson Rodrigues Barbieri
--------------------------------------------
#Equipe do Notes - Coordenador/Desenvolvedor

{ TAndInfo }
ICQ #149391850 / no...@ig...
Notes - http://notes.codigolivre.org.br
NotesDev - http://notes2.sf.net/dev
F=F3rum - http://notes2.sf.net/forum