Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Чтение файла   Найти похожие ветки 

 
Sh ©   (2005-01-31 16:57) [0]

Здравствуйте. Помогите пожалуйста решить одну небольшую проблемку.
Нужно чтобы программа открыла сама себя, затем, начиная с нуля, читает байт, ставит курсор мыши с коорднитами X=этому байту и Y=тоже этому байту, и так до конца файла.
Вот код:

program Project2;
uses
Windows, ShellAPI;
{$R *.res}
const fSize = 15100;//Здесь настоящий размер файла
var
ThisFile: tHandle;
FInfo: integer;
bw: cardinal;
buf: cardinal;
i: integer;
begin
ThisFile:=CreateFile(PChar(ParamStr(0)),GENERIC_READ, 0,nil,OPEN_EXISTING,0,0);
for i:=1 to fsize  do
begin
ReadFile(ThisFile,buf,sizeof(buf),bw,nil);
setcursorpos(buf,buf);
sleep(10);
end;
CloseHandle(ThisFile);
end.

Но ничего не происходит.


 
Fay ©   (2005-01-31 17:39) [1]

А Cardinal у нас теперь 1 байт весит? Занятно...


 
Sh ©   (2005-01-31 17:53) [2]


> А Cardinal у нас теперь 1 байт весит? Занятно...

Объясни пожалуйста, что в коде не так.


 
Anatoly Podgoretsky ©   (2005-01-31 17:59) [3]

Легче объяснить что так и также не понятно суть, зачем это делать. Вот с этого и начни.


 
Sh ©   (2005-01-31 18:02) [4]

Ну не вирус же. А какая разница что за программа? Если можешь и хочешь помоги, если нет, то и ненадо.


 
xShadow ©   (2005-01-31 18:03) [5]

Смысл сабжа видется туманным, а суть запутанной!


 
Sh ©   (2005-01-31 18:13) [6]


> Смысл сабжа видется туманным, а суть запутанной!

Я задал вопрос: Если можешь и хочешь помоги, если нет, то и ненадо. Зачем всякую туфту писать,как ты? Хочешь умным показаться?


 
Fay ©   (2005-01-31 20:58) [7]

>> Зачем всякую туфту писать,как ты?
Это только тебе можно писать туфту? Все хотят! 8)

program Project1;

uses
 Windows;

var
 sz, p, n, h : DWORD;
 b : Byte;
begin
 h := CreateFile(PChar(ParamStr(0)), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
 sz := GetFileSize(h, nil);
 p := 0;
 while p < sz do
   begin
     ReadFile(h, b, 1, n, nil);
     SetCursorPos(b, b);
     Sleep(10);
     Inc(p);
   end;
 CloseHandle(h);
end.


 
Anatoly Podgoretsky ©   (2005-01-31 21:13) [8]

Не будем даже обращать внимание на то, что это консольная программа, посмотрим на другое. Byte имеет значение от 0 до 255, что никак не совпадает с размерностью экрана и тут же видим как курсор пляшет со скоростью 10о раз в секунду.
И ты это называешь не вирус?
Чистое западлостроение. Юедный пользователь будет в панике вырубать компьютер кнопкой питания.


 
Sh ©   (2005-01-31 22:04) [9]

На самом деле я хотел просто узнать как читать из самого себя, а курсор должен был рисовать рисунок на экране, что-то типа программы sp-card. А сам вирусы никогда не писал и не буду, так как знаю по себе как они достают...


 
Sh ©   (2005-01-31 22:12) [10]


> Это только тебе можно писать туфту? Все хотят! 8)

Извини, а разве я туфту написал? Я написал участок кода и попросил помочь. Огромное тебе спасибо за код.


 
Sh ©   (2005-01-31 22:13) [11]


> консольная программа

Я не спорю, но я всегда думал, что консольной называется программа, где есть AppType console...


 
Anatoly Podgoretsky ©   (2005-01-31 22:32) [12]

Sh ©   (31.01.05 22:04) [9]
Ксли не писал, то считай что уже написал. Тебе просто не повещло что она не работает.


 
Sh ©   (2005-01-31 22:41) [13]


> Ксли не писал, то считай что уже написал. Тебе просто не
> повещло что она не работает.

Не повезло... Вирус, по краткому определению, это "программа, которая  что-то делает и не спрашивает на то разрешение пользователя". Т.е. если я удалю какие-нибудь файлы просто так, не спрашиваю пользователя, то уже напишу вирус. Получается вирус написать очень просто. Так что не надо ничего "считать". Я не задавался целью написать вирус. Вы прото на вирусах, по моему, помешаны...


 
default ©   (2005-01-31 22:44) [14]

Sh ©   (31.01.05 22:41) [13]
по-моему необходимое свойство вируса - плодиться


 
Sh ©   (2005-01-31 22:57) [15]

Несовсем. Если Вы запустили программу и она очистила полдиска от файлов без Вашего на то соглашение, то разве это не вирус?
Плодиться-это свойство вируса, хотя и необязательное. Хотя..., все вирусы обычно плодятся...


 
Digitman ©   (2005-02-01 08:24) [16]


> Вирус, по краткому определению, это "программа, которая
>  что-то делает и не спрашивает на то разрешение пользователя".


в соответствии с этим "определением" добрая половина из состава NT-служб, автоматически стартуемых при старте системы, является вирусами



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.045 c
1-1109425456
Leeechhhh
2005-02-26 16:44
2005.03.13
Как заставить FileListBox показывать только нужную мне директорию


14-1108729743
Adder
2005-02-18 15:29
2005.03.13
Надоело платить штрафы за превышение скорости?!


1-1109334745
andr484
2005-02-25 15:32
2005.03.13
Проблема с функцией из DLL


1-1109702829
quickblack
2005-03-01 21:47
2005.03.13
Пауза в программе


1-1109687795
Phoenix9000
2005-03-01 17:36
2005.03.13
Поиск в подкаталоге