Bom dia!
Obrigado Dirlei! Encontrei alguma coisa no link que você passou e vou ver se consigo resolver com isso. abraço, Paulo --- Em delphi-br@yahoogrupos.com.br, Dirlei <dir...@...> escreveu > > Talvez você encontre algo pesquisando por "truecrypt" no Google Code > Search (http://www.google.com/codesearch). Na "pesquisa de código > avançada" você pode indicar uma linguagem para restringir a pesquisa. > > Dirlei. > > pcedisi escreveu: > > > > > > 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 > > >
