var
aa,ba,ca: TProcessInformation;
ab,bb,cb: TStartupInfo;
filelo, setssh1, setssh2, setssh3:string;
begin
filelo := 'BvSsh.exe' ;
setssh1 := ' -profile=ssh1.bscp -host=0 -port=443 -loginOnStartup -username=0 -password=0 -proxy=y -proxyType=HTTP -ProxyServer=127.0.0.1 -ProxyPort=7777 -menu=small';
setssh2 := ' -profile=ssh2.bscp -host=0 -port=443 -loginOnStartup -username=0 -password=0 -proxy=y -proxyType=HTTP -ProxyServer=127.0.0.1 -ProxyPort=7777 -menu=small';
setssh3 := ' -profile=ssh3.bscp -host=0 -port=443 -loginOnStartup -username=0 -password=0 -proxy=y -proxyType=HTTP -ProxyServer=127.0.0.1 -ProxyPort=7777 -menu=small';
FillChar(aa, sizeof(TProcessInformation), 0);
FillChar(ab, sizeof(TStartupInfo), 0);
FillChar(ba, sizeof(TProcessInformation), 0);
FillChar(bb, sizeof(TStartupInfo), 0);
FillChar(ca, sizeof(TProcessInformation), 0);
FillChar(cb, sizeof(TStartupInfo), 0);
ab.cb := sizeof(TStartupInfo);
bb.cb := sizeof(TStartupInfo);
cb.cb := sizeof(TStartupInfo);
CreateProcess(pchar(filelo), pchar(setssh1), nil, nil,false, NORMAL_PRIORITY_CLASS, nil, nil, ab,aa);
Sleep(2000);
CreateProcess(pchar(filelo), pchar(setssh2), nil, nil,false, NORMAL_PRIORITY_CLASS, nil, nil, bb,ba);
Sleep(2000);
CreateProcess(pchar(filelo), pchar(setssh3), nil, nil,false, NORMAL_PRIORITY_CLASS, nil, nil, cb,ca);
WaitForSingleObject(aa.hProcess,20000);
TerminateProcess(aa.hProcess,0);
WaitForSingleObject(ba.hProcess,20000);
TerminateProcess(ba.hProcess,0);
CreateProcess(pchar(filelo), pchar(setssh1), nil, nil,false, NORMAL_PRIORITY_CLASS, nil, nil, ab,aa);
Sleep(2000);
CreateProcess(pchar(filelo), pchar(setssh2), nil, nil,false, NORMAL_PRIORITY_CLASS, nil, nil, bb,ba);
Sleep(2000);
WaitForSingleObject(ca.hProcess,10000);
TerminateProcess(ca.hProcess,0);
WaitForSingleObject(ba.hProcess,5000);
TerminateProcess(ba.hProcess,0);
WaitForSingleObject(aa.hProcess,1000);
TerminateProcess(aa.hProcess,0);
end;
tak faham abaikan

)