[delphi-br] Truecrypt - montar/desmontar volume

Mon, 15 Mar 2010 04:08:28 -0700 

Bom dia!

Estou usando a função abaixo que executa o programa truecrypt.exe com os 
paramentros passados. Funcionou corretamente algumas vezes, mas depois passou a 
não montar mais o volume e a aparecer muitos erros, que nem dá pra ficar 
detalhando. Procurei na web por alguma solução usando truecrypt com delphi mas 
não achei.
Será que alguém aqui na lista utiliza truecrypt e pode ajudar com isso?


cmd: 'trueCrypt.exe /q /l T /v volume.tc /p 12345'

function proc_truecrypt(cmd: string): Boolean;
var
  SUInfo   : TStartupInfo;
  ProcInfo : TProcessInformation;
  nomeFmt  : Array[0..512] of Char;
begin

  FillChar(SUInfo, SizeOf(SUInfo), #0);
  SUInfo.cb          := SizeOf(SUInfo);
  SUInfo.dwFlags     := STARTF_USESHOWWINDOW;
  SUInfo.wShowWindow := SW_HIDE;

  StrCopy(nomeFmt, PWideChar(cmd));

  Result := CreateProcess(
    nil, nomeFmt, nil, nil, false,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
    nil, nil, SUInfo, ProcInfo);

  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;

end;


obrigado,

Paulo

Responder a