Which company is certifying y2k compliance for Installshield custom editions
for Delphi?
There is no mention on either Inprise or Installshield's web sites.
Patrick Dunford, Christchurch, NZ
Voluntary Student Membership: Equal Representation For All
Alistair,
Hi. I have an online registration proc, which gets the user to enter some
info, then executes another routine as below. Problem is, there is no wait
for the external dialog (the mail routine) to complete. It works, but is
messy. Can anyone suggest how to hold it till the mail box
I am trying to do a file association just to get the apps icon associated
with a special file type I create. It worked once, but since then (I double
checked by removing the reg entries) it wont make these .jps files appear
with the associated icon. Anyone see why?
r := TRegistry.Create;
Actually, my call to Execute file is a morph of ShellExecute, so it returns
a handle:
myhandle:=ExecuteFile('mailto:[EMAIL PROTECTED]?subject='+regstring, '',
'',SW_SHOWNOACTIVATE);
while (waitforsingleobject(myhandle,infinite)=WAIT_OBJECT_0)
and not(escape) do application.ProcessMessages;
I have a question regarding interface delegation and reference counting.
If a non interfaced object is extended with an interface and that interface uses
delegation to implement that interface then how is instance destruction detected
by the delegating class. Example below
if the following is
I have a quick question that I thought someone out there would have the answer to.
My understanding is that Microsoft no longer maintains/supports the DBLib interface to
MS SQL Server - instead they promote ODBC and more recently the OLE-DB provider, which
I believe do not use DBLib. If this
Actually, my call to Execute file is a morph of ShellExecute, so it returns
a handle:
myhandle:=ExecuteFile('mailto:[EMAIL PROTECTED]?subject='+regstring, '',
'',SW_SHOWNOACTIVATE);
while (waitforsingleobject(myhandle,infinite)=WAIT_OBJECT_0)
and not(escape) do application.ProcessMessages;
Happy Day.
This function might be of use for you...
procedure ExecuteAndWait (executable: string);
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
CreatedOK: boolean;
status: integer;
ev: TEvent;
i: integer;
begin
ev := TEvent.Create(nil, False, False,