Re: Deklaracja API Office 64 Bit i Win10 64 Bit

Article View: pl.comp.bazy-danych.msaccess

Article #137597

Back to pl.comp.bazy-danych.msaccess Previous Next

#137597

From: minfo
Date: Thu, 19 Apr 2018 12:06

24 lines
2324 bytes

#If VBA7 Then
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
    Public i As Long  ' teraz jako zmienna globalna
    Const interv As Integer = 1000

    Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long

    Private Declare PtrSafe Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

#Else
    Declare Function GetTickCount Lib "kernel32" () As Long
    Public i As Long  ' teraz jako zmienna globalna
    Const interv As Integer = 1000

    Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long

    Private Declare Function apiGetComputerName Lib "kernel32" Alias _
    "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

#End If

Technical Details

Message-ID: <2bfe17fb-ca22-410d-9be2-928ace7e4bc6@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!f34-v6no5171885qtb.0!news-out.google.com!p5-v6ni17197qtp.1!nntp.google.com!f34-v6no5171882qtb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

References: <d9d86fa0-0df7-461e-9fde-efa0d51cb1e4@googlegroups.com>

Show Full Headers

Complete Article Headers

X-Received: by 2002:ac8:140b:: with SMTP id k11-v6mr4148470qtj.45.1524139562632;        Thu, 19 Apr 2018 05:06:02 -0700 (PDT)
X-Received: by 10.31.155.85 with SMTP id d82mr690219vke.12.1524139562079; Thu, 19 Apr 2018 05:06:02 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!f34-v6no5171885qtb.0!news-out.google.com!p5-v6ni17197qtp.1!nntp.google.com!f34-v6no5171882qtb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.bazy-danych.msaccess
Date: Thu, 19 Apr 2018 05:06:01 -0700 (PDT)
In-Reply-To: <d9d86fa0-0df7-461e-9fde-efa0d51cb1e4@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.241.94.194; posting-account=vYGi6woAAAA6NlWlzOm2dBNZ6sPJDKfx
NNTP-Posting-Host: 213.241.94.194
References: <d9d86fa0-0df7-461e-9fde-efa0d51cb1e4@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2bfe17fb-ca22-410d-9be2-928ace7e4bc6@googlegroups.com>
Subject: Re: Deklaracja API Office 64 Bit i Win10 64 Bit
From: minfo@onet.pl
Injection-Date: Thu, 19 Apr 2018 12:06:02 +0000
X-Received-Bytes: 2177
X-Received-Body-CRC: 4046087158
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message