Написал крипт/декрипт для PE Explorer.
Из настроек:
- бекапы файлов
- поверх всех окон
Есть один баг,не могу понять.Если из того же каталога ,где и файлы,запускаю свой сабж,то всё окей.Если из другого каталога,и с помощью Drag&Drop кидаю файлы на форму то мап не сохраняется в файл.

-----
Чтобы юзер в нэте не делал,его всё равно жалко..

| Сообщение посчитали полезным:

ну телепатов тут нет...

возможно проблема в пути файла при его создании (при дропе) ....

| Сообщение посчитали полезным:

В том то и дело.С общей папки,всё работает.
Под олей посмотрел,процесс идёт нормально.Ошибок нет.бекап(если надо) сохраняет,в памяти криптует/декриптует.А вот чё то в файл не сохраняет.И это только при Drag&Drop из разных папок.Хучить системные,опыта нет.
var
i, amount, size: integer;
Filename: PChar;
begin
inherited;
Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 256);
for i := 0 to (Amount - 1) do
begin
size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
Filename := StrAlloc(size);
DragQueryFile( THandle(Msg.WParam),0, Filename,SizeOf(Filename) ) ;
with edtFilePatch do begin
edtFilePatch.Text := UpperCase(StrPas(FileName));
end;
DragFinish(Msg.WParam);
end;
Вроде всё указано.

-----
Чтобы юзер в нэте не делал,его всё равно жалко..

| Сообщение посчитали полезным: