Re: Delphi XE2 co wywołało funcję

Article View: pl.comp.lang.delphi

Article #346292

Back to pl.comp.lang.delphi Previous Next

#346292

From: Karol
Date: Tue, 30 Jan 2018 19:07

25 lines
1705 bytes

Nie o t mi chodziło ale
EXE
function CreateTableForplugin(moduleInstance : HINST; sql: WideString): 
Boolean;
begin
   ShowMessage(System.SysUtils.GetModuleName(moduleInstance));
end;

bpl/DLL
var CreateTableForplugin : function (moduleInstance : HINST; sql : 
WideString):Boolean;
begin
   CreateTableForplugin:=GetProcAddress(MainInstance, 
'CreateTableForplugin');
   if (@CreateTableForplugin<>nil) then CreateTableForplugin(HInstance,'');
...

end;



Dostaję nazwę modułu.
Działa tak jak zakładałem.
Niestety trzeba podawać HInstance co teoretycznie może prowadzić do 
nadużyć ale na razie musi tak zostać.

Technical Details

Message-ID: <5a70c28e$0$692$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

References:

<5a70803f$0$694$65785112@news.neostrada.pl> <5a708df3$0$694$65785112@news.neostrada.pl> <5a70a2ad$0$604$65785112@news.neostrada.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Subject: Re: Delphi XE2 co wywołało funcję
Newsgroups: pl.comp.lang.delphi
References: <5a70803f$0$694$65785112@news.neostrada.pl> <5a708df3$0$694$65785112@news.neostrada.pl> <5a70a2ad$0$604$65785112@news.neostrada.pl>
From: Karol <konsul41@wp.pl>
Date: Tue, 30 Jan 2018 20:07:58 +0100
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Thunderbird/45.8.0
MIME-Version: 1.0
In-Reply-To: <5a70a2ad$0$604$65785112@news.neostrada.pl>
Lines: 27
Message-ID: <5a70c28e$0$692$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 37.47.45.8
X-Trace: 1517339278 unt-rea-a-01.news.neostrada.pl 692 37.47.45.8:17081
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message