DG8SAQ VECTOR NETWORK ANALYZER VNWA HILFE - SDR-Kits

path:=EPath.Text;argument:=ERuntimeArgument.Text;ListBox.Clear;ListBox.AddItem('ShellExecute return code = '+inttostr(ShellExecute(Handle,'open', PChar( Path),PChar( Argument), nil, SW_SHOWNORMAL)),nil );end;procedure TForm1.FormCreate(Sender: TObject);beginEPath.Text:='D:\VNWA\VNWA.exe';ERuntimeArgument.Text:='-remote -silent -debug -callback '+inttostr(self.handle)+' '+inttostr(WM_USER);end;procedure TForm1.Receiver(var Msg: TMessage);var cmd: integer;begincmd:=Msg.WParam shr 16;ListBox.AddItem('Message received LParam='+inttostr(Msg.LParam)+' WParam='+inttostr(Msg.WParam),nil);case cmd of0: beginWM_REMOTE:=Msg.WParam;remotehandle:=Msg.LParam;ListBox.AddItem('remote handle received',nil);end;1: beginListBox.AddItem('remote command executed successfully',nil);end;else ListBox.AddItem('remote command executed with ERROR! Error code = '+inttostr(cmd-1),nil);end;end;procedure TForm1.BSendMessageClick(Sender: TObject);beginPostMessage(remotehandle, WM_REMOTE, strtoint(ECommand.Text), strtoint(EParameter.Text));end;procedure TForm1.ClearScreen1Click(Sender: TObject);beginListBox.Clear;end;procedure TForm1.BSendWNameClick(Sender: TObject);var s: string;i: integer;begins:=Edit5.Text;PostMessage(remotehandle, WM_REMOTE, 7, 0);for i:=1 to length(s) doPostMessage(remotehandle, WM_REMOTE, 7, byte(s[i]));end;procedure TForm1.BSendRNameClick(Sender: TObject);var s: string;i: integer;begins:=Edit6.Text;PostMessage(remotehandle, WM_REMOTE, 6, 0);for i:=1 to length(s) doPostMessage(remotehandle, WM_REMOTE, 6, byte(s[i]));end;end.- 371 -