Duas Duvidas, uma sobre execução e outra sobre uma função do pascal

[wagnermonteiro]

Bom dia a todos primeiramente, Bom eu precisava saber qual o delay referente a segundos e milesimos de segundo, exemplo se eu jogar 10 segundos, e depois lançar 100 milesimos. eu fiz uma estimativa e mais ou menos para o segundo o delay é (1000), e para os milesimos, usando 100 milesimos, o delay coloquei(10) porem até 3 minutos eles seguem juntos mais uma distancia maior de 10 minutos por exemplo, meu programa teve um atraso de 110 segundos quando o cronometro correto acabou seu tempo, se alguem puder me ajudar fico grato.

A minha outra dúvida é a seguinte, eu queria fazer um programa que ficasse ativo e num determinado momento ele executa-se algo no computador, por exemplo. fazer um programa em pascal que dê um shutdown no computador em 10 minutos por exemplo. pra alguem que tem mais profundidade no pascal existe essa correlação com o computador e o programa? como seria fazer algo assim?

desde ja grato.

[danillorc]

Tu usas o free pascal ou o lazarus para programar

no lazarus vc pode usar a unit "Process" e criar um procedimento:

procedure Reiniciar;
var
AProcess1 : TProcess;
AStringList: TStringList;
begin
try

AProcess1 := TProcess.Create(nil);
AStringList := TStringList.Create;
AProcess1.CommandLine := 'sudo shutdown -h now'; //"sudo shutdown -h 18:45"
AProcess1.Options := AProcess1.Options + [poWaitOnExit, poUsePipes];
AProcess1.Execute;

AStringList.LoadFromStream(AProcess1.Output);
AStringList.SaveToFile('shaper.txt');
AStringList.Free;
AProcess1.Free;
except
end;

end;