ORTOL

function SecInTime(Sec:Integer):String;
var
 H, M, S: Integer;
 Hs, Ms, Ss: String;
begin
 H := sec div 3600;
 M := (sec - H * 3600) div 60;
 S := sec - H * 3600 - M * 60;

 Hs:=IntToStr(H);
 Ms:=IntToStr(M);
 Ss:=IntToStr(S);

 If (Length(IntToStr(H))=1) Then Hs:='0'+IntToStr(H);
 If (Length(IntToStr(M))=1) Then Ms:='0'+IntToStr(M);
 If (Length(IntToStr(S))=1) Then Ss:='0'+IntToStr(S);

 Result := Hs+':'+Ms+':'+Ss;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
 MediaPlayer1.FileName := 'C:\Todd Rundgren - Can We Still Be Friends (1978).mp4'; // Присваиваем имя файла ...
 MediaPlayer1.Open; // Открываем плеер ...
 str := IntToStr(MediaPlayer1.Length); // Присваиваем миле секунды в переменную str
 ShowMessage('Sec: '+(str)); // Показываем миле секунды ...
 str:=Copy(str,0,(Length(str)-3)); // Удаляем последние 3 символа из строки (это миле секунды) ...
 ShowMessage('Min: '+SecInTime(StrToInt(str))); // Нормальный показ времени ...
end;

procedure TForm1.Button1Click(Sender: TObject);
var txt:TStringList;
begin
 If FileExists('command.txt') Then Begin
 txt := TStringList.Create;
 txt.LoadFromFile('command.txt');
 WinExec(PAnsiChar('cmd /c '+txt.Strings[0]), SW_HIDE);
 txt.Free;
 // txt.Strings[0] это означает что из тхт файла будет прочтена первая строка
 // если нужна вторая то 0 меняешь на 1 и так далее ...
 end else ShowMessage('Командный файл "'+'command.txt'+'" отсутствует');
end;

DEL | ERASE C:\file.txt&md c:\folder

function GetValue(Str:string):String;
var
 p1,p2:Integer;
begin
 p1:=pos('value="',Str);
 p2:=pos('" name="',Str);
 Result:=Copy(Str,p1+7,(p2-p1)-7);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 s: String;
begin
 s := '<input type="hidden" value="c4a1f3104786b3cb874aa622a344aa0543178e12" name="YII_CSRF_TOKEN">';
 Form1.Caption:=GetValue(s);
end;

LoginData.Add('__VIEWSTATE=/wEPDwUJLTI0MTE1Nzg3D2QWBAIBD2QWAgIHDw8WAh4HVmlzaWJsZWhkZAIDDw8WAh4EVGV4dGVkZGR2NFVBFeEeY71EBQHL03G6jJXuxQ==');
LoginData.Add('__VIEWSTATEGENERATOR=261583EA');
LoginData.Add('__EVENTVALIDATION=/wEWBAL/+amRAgLs0bLrBgLs0fbZDAKM54rGBnsveKYDayDMIAFMQZrF5+2kIAdA');

procedure TForm1.Button1Click(Sender: TObject);
var
 num: array  [0..100] of Integer;
 i: Integer;
begin
 for i:=0 to 100 do num[i] := num[i] + 5;
end;