如何用线程调用外部程序的时候，给他分配内存(50分)

用线程调用外部程序的时候，运行时报错Access Violation at address 0045E712 in module 'a.exe'.
Read of address 00000000.
帮助上说；
EAccessViolation is raised when an application
Dereferences a nil (Delphi) or NULL (C++) pointer.
Writes to memory reserved for executable code.
Attempts to access a memory address for which there is no virtual memory allocated to the application.
我觉得是没有给程序分配内存
大家看看该怎么办

源码源码~~

Unit1
procedure TForm1.IntegratClick(Sender: TObject);
Const
Prog = 'a.exe';
ProgEnd = 'The termination of Preint.';
Var
ExitCode : Dword;
FileName,Result: String;
Restr : TStrings;
begin
ExitCode := 0;
FileName := XmPath + '/' + XmName;
CommandLine := Prog + ' ' + '"' + FileName + '"' ;
Dir := XmPath;
If (Dir = '') then
begin
save1Click(Sender);
Dir :=XmPath;
end;
MemoDisplay.Clear ;
Mediavar.Clear;
MediaVar.Strings[0] := CommandLine;
MediaVar.Strings[1] := Dir;
RunDosThread.Resume ;
MediaVar.Free ;
Result := 'Blank testing';
Restr := TStringList.Create ;
Restr.Add(Result);
MemoDisplay.Lines := Restr;
MemoDisPlay.Lines.Append(ProgEnd);
MemoDisPlay.Lines.Append('');
Restr.Free ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MemoDisplay.Clear;
MemoDisplay.ReadOnly := True;
RunDosThread:=TRunDosThread.Create(True);
end;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Unit2
procedure TRunDosThread.Execute;
var
Cmdl,dr:string;
ExitCdword;
begin
cmdl := Form1.MediaVar[0];
dr := Form1.MediaVar[1];
ExitCd :=0;
{ Place thread code here }
If(Terminated)then
exit;
RunDOS(Cmdl, Dr, ExitCd);
end;

procedure TRunDosThread.CheckResult (b: Boolean);
begin
if not b then
Raise Exception.Create(SysErrorMessage(GetLastError));
end;

function TRunDosThread.RunDOS (const CommandLine,Dir: String;
ExitCode word): String;
var
HRead,HWrite:THandle;
StartInfo:TStartupInfo;
ProceInfo:TProcessInformation;
b:Boolean;
sa:TSecurityAttributes;
inS:THandleStream;
sRet:TStrings;
begin
Result := '';
FillChar(sa,sizeof(sa),0);
//设置允许继承，否则在NT和2000下无法取得输出结果
sa.nLength := sizeof(sa);
sa.bInheritHandle := True;
sa.lpSecurityDescriptor := nil;
b := CreatePipe(HRead,HWrite,@sa,0);
CheckResult(b);
FillChar(StartInfo,SizeOf(StartInfo),0);
StartInfo.cb := SizeOf(StartInfo);
StartInfo.wShowWindow := SW_HIDE;
//使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式
StartInfo.dwFlags := STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW;
StartInfo.hStdError := HWrite;
StartInfo.hStdInput := GetStdHandle(STD_INPUT_HANDLE);//HRead;
StartInfo.hStdOutput := HWrite;
b := CreateProcess(Nil,//lpApplicationName: PChar
PChar(CommandLine), //lpCommandLine: PChar
nil, //lpProcessAttributes: PSecurityAttributes
nil, //lpThreadAttributes: PSecurityAttributes
True, //bInheritHandles: BOOL
CREATE_NEW_CONSOLE,
nil,
PChar(Dir),
StartInfo,
ProceInfo );
CheckResult(b);
WaitForSingleObject(ProceInfo.hProcess,INFINITE);
GetExitCodeProcess(ProceInfo.hProcess,ExitCode);
// GetExitCodeProcess(ProceInfo.hProcess,ExitCode);
inS := THandleStream.Create(HRead);
if inS.Size>0 then
begin
sRet := TStringList.Create;
sRet.LoadFromStream(inS);
Result := sRet.Text;
sRet.Free;
end;
inS.Free;
CloseHandle(HRead);
CloseHandle(HWrite);
end;

分段下断点吧。

分过，好像都不行啊
是不是要给应用程序分配内存啊

嗯？断点不能定位出错的代码在哪行么？

按着F8一直到程序出来

帮顶！
╭=========================================╮
80G海量源代码,控件，书籍全免费狂下不停！
http://www.source520.com

╰=========================================╯

kaoleoloi，我真的真的很烦你了。

VictorWoo老大， 我该怎么办啊？

啊，这种问题，没有现场调真的很不好办。
您说的“按着F8一直到出来”什么意思？

F8 Step Over 调试对吧

老兄，给个Email，我把代码发给你吧，帮忙看看

网上找到这个代码：
type
fProc=function:integer;
function FuncA:integer;
begin
result:=1;
end;

function FuncB:integer;
begin
result:=2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
proc:fProc;
begin
proc:=FuncA;
showmessage(inttostr(proc));
proc:=FuncB;
showmessage(inttostr(proc));
end;

我也写了一个
Type
fRDos = function :String;
var
RDos:fRDos;
begin
RDos := TRunDosThread.RunDOS (Cmdl, Dr, ExitCd);
If(Terminated)then
exit;
RDos;
end;
报错：
[Error] Unit2.pas(46): This form of method call only allowed for class methods

接受答案了.