🚀 go-pugleaf

> Witam
> 
> Jak wygladalby programik ktory skopiowalby do schowka
> scizke (jako tekst) np.: C:\aaa\bbb\ccc\*.*
> 
> Pozdro
> 
> 

w delphi /lazarusie  mneij wiecej tak 
tak 


procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.PasteFromClipboard;
end;


jezeli sam freepsacal to obsluguje to napewno bedzie w przykladach .

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

Dnia Thu, 20 Dec 2007 18:25:41 +0100, jakże pięknego
"Bogdan iBogdan" <bodob_SPAM_@wp.pl> wystukał co zawarte poniżej:

: Witam
: 
: Jak wygladalby programik ktory skopiowalby do schowka
: scizke (jako tekst) np.: C:\aaa\bbb\ccc\*.*

Edit.Text:='C:\aaa\bbb\ccc\*.*';
Edit.SelStart:=0
Edit.SelLength:=Length(Edit.Text);
Edit.CopyToClipboard;

-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname 

Bogdan iBogdan wrote:
> Jak wygladalby programik ktory skopiowalby do schowka
> scizke (jako tekst) np.: C:\aaa\bbb\ccc\*.*


Komponentowi-Koledzy-KlikaczeR zaproponowali swoją metodę,
która się w lazarusie skompiluje do 8mb exeka ;),
ja zaproponuje pure Win32 API method ;).

uses Windows;

procedure CopyToClipboard(s:string);
var
  handle : HGLOBAL;
  ptr    : PChar;
begin
  OpenClipboard(0);
  EmptyClipboard();
  handle:=GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT, Length(s)+1);
  ptr := GlobalLock(handle);

  Move(s[1], ptr^, Length(s));

  GlobalUnlock(handle);

  SetClipboardData(CF_TEXT, handle);
  CloseClipboard();
end;

begin
  CopyToClipboard('foobar');
end.

Sposób użycia raczej oczywisty.

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/ 

> begin
>   CopyToClipboard('foobar');
> end.
>
> Sposób użycia raczej oczywisty.

Dziala - dzieki.
A jak by zmodyfikowac by program poprosil o podanie tekstu jaki ma sie
znalesc
w schowku ale przed ta zmienna (a) wstawi pewna stala (bla-bla-bla), czyli
np.

var a: shortstring;
begin
 Writeln('Podaj tekst do skopiowania'); read(a); {wpisujemy cokolwiek np.
siu-siu}
CopyToClipboard('bla-bla-bla'{tu improwizuje, bo nie dziala jak tak
wpisze},a);
end.

Wynikiem tego mialo by byc wziecie do pamieci tekstu "siu-siubla-bla-bla".

Dnia Fri, 28 Dec 2007 12:28:01 +0100, jakże pięknego
"Bogdan iBogdan" <bodob_SPAM_@wp.pl> wystukał co zawarte poniżej:

: > begin
: >   CopyToClipboard('foobar');
: > end.
: >
: > Sposób u¿ycia raczej oczywisty.
: 
: Dziala - dzieki.
: A jak by zmodyfikowac by program poprosil o podanie tekstu jaki ma sie
: znalesc
: w schowku ale przed ta zmienna (a) wstawi pewna stala (bla-bla-bla), czyli
: np.
: 
: var a: shortstring;
: begin
:  Writeln('Podaj tekst do skopiowania'); read(a); {wpisujemy cokolwiek np.
: siu-siu}
: CopyToClipboard('bla-bla-bla'{tu improwizuje, bo nie dziala jak tak
: wpisze},a);
: end.

CopyToClipboard('blablabla'+a);


-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname