From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.6 required=5.0 tests=BAYES_00,FROM_SUSPICIOUS_NTLD,
	FROM_SUSPICIOUS_NTLD_FP autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!cleanfeed4-a.proxad.net!nnrp1-2.free.fr!not-for-mail
Newsgroups: comp.lang.ada
X-Mozilla-News-Host: news://news.free.fr:119
From: Xavier Petit <le@vieux.pro>
Subject: win32 interfacing check (SetClipboardData)
Date: Tue, 29 Aug 2017 22:28:01 +0200
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101
 Thunderbird/52.3.0
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Language: fr
Content-Transfer-Encoding: 8bit
Message-ID: <59a5ce50$0$7168$426a74cc@news.free.fr>
Organization: Guest of ProXad - France
NNTP-Posting-Date: 29 Aug 2017 22:28:00 CEST
NNTP-Posting-Host: 78.217.21.11
X-Trace: 1504038480 news-3.free.fr 7168 78.217.21.11:59765
X-Complaints-To: abuse@proxad.net
Xref: news.eternal-september.org comp.lang.ada:47837
Date: 2017-08-29T22:28:00+02:00
List-Id: <comp.lang.ada>

Hi, I would like to know if this win32 code is “correct” from your PoV 
or could be written in a better way, especially this block :

declare
    Tmp : Wide_String (1 .. Source'Length + 1) with Address => AMem;
begin
    Tmp := Source & Wide_Character'First;
end;

Complete code : https://pastebin.com/raw/CnUbGVyk

It copies the Source Wide_String in the Windows clipboard and needs 
Win32Ada & -gnatW8 -gnata compilation flags (in order to get correct 
unicode characters and assertions enabled)

Thanks by advance

-- 
Xavier Petit