FYI - Removed a not needed SMTP component from the test project and restarted 
the PC – I think it was the latter, that somehow Windows 7 remembered something 
about the project/exe and still put UAC on it.   Then debugger worked without 
Run as Administrator.

John Bird
JBCL
Contact:
johnkb...@paradise.net.nz
jbc...@xtra.co.nz
027 4844528
http://www.jbcl.co.nz
http://jbclnz.googlepages.com



From: Leigh Wanstead 
Sent: Friday, July 15, 2011 11:37 AM
To: NZ Borland Developers Group - Delphi List 
Subject: Re: [DUG] Email/SMTP code

Why not get a Windows XP to debug? Shall not be that hard, right?


2011/7/14 John Bird <johnkb...@paradise.net.nz>

  Here is details of the “unable to create process” when I try to debug the 
SMTP test program on Windows 7, with the IDE running as administrator

  in case anyone has a bright idea whats going on

  [20885408]{dbkdebugide100.bpl} Debug.TDebugger.DBKError (Line 11445, 
"Debug.pas" + 3) + $23
  [20852DB1]{dbkdebugide100.bpl} DbkHelper.CheckRetVal (Line 268, 
"DbkHelper.pas" + 4) + $8
  [20852D31]{dbkdebugide100.bpl} DbkHelper.ErrCode (Line 249, "DbkHelper.pas" + 
1) + $2
  [20877C62]{dbkdebugide100.bpl} Debug.TDebugKernel.CreateProcess (Line 5070, 
"Debug.pas" + 14) + $2
  [20883115]{dbkdebugide100.bpl} Debug.TDebugger.DoCreateProcess (Line 10403, 
"Debug.pas" + 29) + $36
  [20883228]{dbkdebugide100.bpl} Debug.TDebugger.CreateProcess (Line 10429, 
"Debug.pas" + 6) + $2B
  [20883D6D]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 10869, "Debug.pas" + 
50) + $2D
  [208844FA]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 11120, "Debug.pas" + 
70) + $37
  [2087F40A]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 9001, "Debug.pas" + 
0) + $2
  [20A469E1]{coreide100.bpl} DebuggerMgr.TDebuggerMgr.Run (Line 1410, 
"DebuggerMgr.pas" + 4) + $F
  [004164FF]{bds.exe     } AppMain.TAppBuilder.RunRun (Line 2844, 
"ui\AppMain.pas" + 0) + $7
  [2004018B]{rtl100.bpl  } Classes.TBasicAction.Execute (Line 11081, 
"common\Classes.pas" + 3) + $7
  [20151359]{vcl100.bpl  } ActnList.TContainedAction.Execute (Line 388, 
"ActnList.pas" + 1) + $2C
  [201520BC]{vcl100.bpl  } ActnList.TCustomAction.Execute (Line 1000, 
"ActnList.pas" + 7) + $8
  [20040057]{rtl100.bpl  } Classes.TBasicActionLink.Execute (Line 11010, 
"common\Classes.pas" + 2) + $7
  [2013CA15]{vcl100.bpl  } Controls.TControl.Click (Line 5227, "Controls.pas" + 
7) + $7
  [2019BCF0]{vcl100.bpl  } ComCtrls.TToolButton.Click (Line 17003, 
"ComCtrls.pas" + 0) + $0
  [2013CEA7]{vcl100.bpl  } Controls.TControl.WMLButtonUp (Line 5365, 
"Controls.pas" + 6) + $3E
  [2013C527]{vcl100.bpl  } Controls.TControl.WndProc (Line 5146, "Controls.pas" 
+ 83) + $6
  [2013C1B4]{vcl100.bpl  } Controls.TControl.Perform (Line 5021, "Controls.pas" 
+ 5) + $C
  [2013FEC6]{vcl100.bpl  } Controls.GetControlAtPos (Line 7095, "Controls.pas" 
+ 4) + $73
  [2013FF8E]{vcl100.bpl  } Controls.TWinControl.ControlAtPos (Line 7118, 
"Controls.pas" + 13) + $E
  [2013C1B4]{vcl100.bpl  } Controls.TControl.Perform (Line 5021, "Controls.pas" 
+ 5) + $C
  [20140199]{vcl100.bpl  } Controls.TWinControl.IsControlMouseMsg (Line 7182, 
"Controls.pas" + 15) + $1F
  [20140561]{vcl100.bpl  } Controls.TWinControl.WndProc (Line 7269, 
"Controls.pas" + 76) + $6
  [2019DD33]{vcl100.bpl  } ComCtrls.TToolBar.UpdateButtonState (Line 18148, 
"ComCtrls.pas" + 5) + $1C
  [2019DD76]{vcl100.bpl  } ComCtrls.TToolBar.UpdateButtonStates (Line 18158, 
"ComCtrls.pas" + 3) + $4
  [201A06A9]{vcl100.bpl  } ComCtrls.TToolBar.WndProc (Line 19588, 
"ComCtrls.pas" + 80) + $6
  [2013FDD0]{vcl100.bpl  } Controls.TWinControl.MainWndProc (Line 7073, 
"Controls.pas" + 3) + $6
  [20040E4C]{rtl100.bpl  } Classes.StdWndProc (Line 11583, "common\Classes.pas" 
+ 8) + $0
  [20163691]{vcl100.bpl  } Forms.TApplication.StopHintTimer (Line 8673, 
"Forms.pas" + 3) + $6
  [201625F0]{vcl100.bpl  } Forms.TApplication.ProcessMessage (Line 8105, 
"Forms.pas" + 23) + $1
  [2016262A]{vcl100.bpl  } Forms.TApplication.HandleMessage (Line 8124, 
"Forms.pas" + 1) + $4
  [2016291F]{vcl100.bpl  } Forms.TApplication.Run (Line 8223, "Forms.pas" + 20) 
+ $3
  [0042297A]{bds.exe     } bds.bds (Line 195, "" + 7) + $7

  John


  _______________________________________________
  NZ Borland Developers Group - Delphi mailing list
  Post: delphi@delphi.org.nz
  Admin: http://delphi.org.nz/mailman/listinfo/delphi
  Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe




--------------------------------------------------------------------------------
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe

Reply via email to