How do I translate this Delphi code to BCB5?

Article View: borland.public.cppbuilder.nativeapi

Article #967

Back to borland.public.cppbuilder.nativeapi Previous Next

#967

From: Mark Jacobs
Date: Thu, 22 Nov 2007 14:57

25 lines
1575 bytes

How do I translate this Delphi code to BCB5?

      Listing 1:

function RegisterServiceProcess (ProcessID,RType:DWord):DWord; 
stdcall;external 'KERNEL32.DLL';
      Listing 2:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID,1);
end;
      Listing 3:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID,0);
end;



-- 
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk

Technical Details

Message-ID: <474598cd@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!newsgate.cistron.nl!xs4all!feeder.news-service.com!newsfeed.freenet.de!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 10cc67,d35c7f2f5f6b99bd,start
X-Google-Attributes: gid10cc67,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
From: "Mark Jacobs" <http://www.jacobsm.com/mjmsg.htm?BorlandNG>
Newsgroups: borland.public.cppbuilder.nativeapi
Subject: How do I translate this Delphi code to BCB5?
Date: Thu, 22 Nov 2007 14:57:17 -0000
Lines: 26
Organization: DK Computing
MIME-Version: 1.0
Content-Type: text/plain;
 format=flowed;
 charset="iso-8859-1";
 reply-type=original
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
NNTP-Posting-Host: 81.144.157.8
Message-ID: <474598cd@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1195743437 81.144.157.8 (22 Nov 2007 06:57:17 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!news.glorb.com!newsgate.cistron.nl!xs4all!feeder.news-service.com!newsfeed.freenet.de!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail