Re: Skopiowanie do schowka

Article View: pl.comp.lang.pascal

Article #92339

Back to pl.comp.lang.pascal Previous Next

#92339

From: Łukasz 'Maly' Ostrowski
Date: Fri, 21 Dec 2007 12:11

39 lines
1715 bytes

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/

Technical Details

Message-ID: <fkgald$6sq$1@news.dialog.net.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail

References: <fke8kn$7v$1@atlantis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail
From: Łukasz 'Maly' Ostrowski <maly@USUNnemo.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Skopiowanie do schowka
Date: Fri, 21 Dec 2007 13:11:00 +0100
Organization: Dialog Net
Lines: 40
Message-ID: <fkgald$6sq$1@news.dialog.net.pl>
References: <fke8kn$7v$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: xdsl-2911.zgora.dialog.net.pl
Mime-Version: 1.0
X-Trace: news.dialog.net.pl 1198239213 7066 81.168.239.95 (21 Dec 2007 12:13:33 GMT)
X-Complaints-To: abuse@dialog.net.pl
NNTP-Posting-Date: Fri, 21 Dec 2007 12:13:33 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message