ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
21.09.2009, 15:02
|
|
Новичок
Регистрация: 08.07.2008
Сообщений: 9
Провел на форуме:
41202
Репутация:
0
|
|
Всем спасибо =)
|
|
|
21.09.2009, 15:42
|
|
Познающий
Регистрация: 18.11.2008
Сообщений: 95
Провел на форуме:
270938
Репутация:
0
|
|
Как можно редактировать элемент TListBox при двойном шелчке
|
|
|
|
21.09.2009, 15:54
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Есть такой код на С++:
Код:
for (r = 0; r < ClCount; r++, FileSize -= BlockSize)
{
Offset.QuadPart = ClusterSize * Clusters[r];
SetFilePointer(hDrive, Offset.LowPart, &Offset.HighPart, FILE_BEGIN);
ReadFile(hDrive, Buff, ClusterSize, &Bytes, NULL);
BlockSize = FileSize < ClusterSize ? FileSize : ClusterSize;
WriteFile(hFile, Buff, BlockSize, &Bytes, NULL);
}
Как перевести его на Delphi, точнее не сам цикл, а всего лишь вот эту строчку:
Код:
BlockSize = FileSize < ClusterSize ? FileSize : ClusterSize;
подскажите =) |
|
|
|
21.09.2009, 16:25
|
|
Постоянный
Регистрация: 24.03.2009
Сообщений: 670
Провел на форуме:
2868783
Репутация:
414
|
|
Как перевести его на Delphi, точнее не сам цикл, а всего лишь вот эту строчку:
Код:
if FileSize < ClusterSize then BlockSize := FileSize
else BlockSize := ClusterSize;
|
|
|
|
21.09.2009, 16:32
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Сообщение от razb
Код:
if FileSize < ClusterSize then BlockSize := FileSize
else BlockSize := ClusterSize;
Пасиб) razb, я в принципе так и думал, но лучше уточнить, чем гадать так или не так)!
|
|
|
|
21.09.2009, 19:48
|
|
Познающий
Регистрация: 18.11.2008
Сообщений: 95
Провел на форуме:
270938
Репутация:
0
|
|
Как в ListBox-е вставить строку после определенной строки ?
|
|
|
|
21.09.2009, 19:51
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
ListBox1.Items.Insert(5, 'stroka')
5 - индекс строки
Последний раз редактировалось Nullsleep; 22.09.2009 в 08:59..
|
|
|
|
21.09.2009, 20:27
|
|
Познающий
Регистрация: 18.11.2008
Сообщений: 95
Провел на форуме:
270938
Репутация:
0
|
|
Сообщение от Nullsleep
Memo1.Lines.Insert(5, 'stroka');
5 - индекс строки
спасибо!
|
|
|
|
22.09.2009, 13:28
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
Провел на форуме:
520157
Репутация:
35
|
|
Ну кто нибудь все таки знает, как можно прочитать или скопировать файл открытый монопольно другим приложением?
OpenReadOnly и fmSharedDenyNone не подходят!
|
|
|
|
22.09.2009, 14:06
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
alexey-m, попробуй этот код, но я не уверен, что поможет (это почти тоже самое, что и у тебя)
Код:
var
whole: file;
buf: array[1..8192] of Byte;
begin
AssignFile(whole, whole_name);
FileMode := 0; //только чтение
Reset(whole, 1);
BlockRead(whole, buf, 8192);
CloseFile(whole);
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
