procedure TForm1.Button1Click(Sender: TObject);var s, cmdline: ansistring; commands: array of string;begin tik := GetTickCount64; cmdline := ExtractFilePath(ParamStr(0)) + 'exiftool.exe'; SetLength(commands, 2{3}); commands[0] := '-s'; commands[1] := ExtractFilePath(ParamStr(0)) + 'img1.jpg'; //commands[2] := '-b'; if RunCommand(cmdline, commands, s) then begin Memo1.Append(s); end;end;
procedure TForm1.Button1Click(Sender: TObject);var s, cmdline: ansistring; commands: array of string;begin tik := GetTickCount64; cmdline := ExtractFilePath(ParamStr(0)) + 'exiftool.exe'; SetLength(commands, 3); commands[0] := '-s'; commands[1] := ExtractFilePath(ParamStr(0)) + 'img1.jpg'; commands[2] := '-b'; if RunCommand(cmdline, commands, s) then begin Memo1.Append(s); end;end;