var
STR : TStringList;
CMDFile: string;
begin
ExecuteFile('ipconfig.exe', '/flushdns', 0, 15000, true);
STR := TStringList.Create;
STR.Add('ipconfig /all > diag.txt');
STR.Add('route print >> diag.txt');
STR.Add('ping torrnado.ru >> diag.txt');
STR.Add('tracert torrnado.ru >> diag.txt');
STR.Add('pathping torrnado.ru >> diag.txt');
STR.SaveToFile(GetAVZDirectory + 'diag.cmd');
CMDFile:= GetAVZDirectory + 'diag.cmd';
ExecuteFile(CMDFile, '', 0, 200000, true);
ExecuteFile('cmd.exe', '/u /c type diag.txt > diag.log', 0, 10000, true);
DeleteFile(GetAVZDirectory + 'diag.txt');
DeleteFile(GetAVZDirectory + 'diag.cmd');
end.
Поверх ставьте.так , сейчас скачал новую Мозиллу , старую удалить ?
Пока сохраните в безопасном месте.И куда деть эти папки ?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?