🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92340

Re: Skopiowanie do schowka

#92340
From: Bogdan iBogdan
Date: Fri, 28 Dec 2007 11:28
21 lines
1488 bytes
> 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".
Technical Details
Message-ID: <fl2n0t$1g9$1@nemesis.news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <fke8kn$7v$1@atlantis.news.tpi.pl> <fkgald$6sq$1@news.dialog.net.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Bogdan iBogdan" <bodob_SPAM_@wp.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Skopiowanie do schowka
Date: Fri, 28 Dec 2007 12:28:01 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 23
Message-ID: <fl2n0t$1g9$1@nemesis.news.tpi.pl>
References: <fke8kn$7v$1@atlantis.news.tpi.pl> <fkgald$6sq$1@news.dialog.net.pl>
NNTP-Posting-Host: 195.205.29.71
X-Trace: nemesis.news.tpi.pl 1198841694 1545 195.205.29.71 (28 Dec 2007 11:34:54 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Fri, 28 Dec 2007 11:34:54 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1409
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1409
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit