Program w Delphi

[MK4]

Cze. Chce zrobic w delphi program który umożliwi np. Wyłaczenia komputera przez ten program no wiecie takie badziewia co idzie zrobić w trojanie. Ale mi chodzi o to jak mam zrobić np. Mam buttona i chce żeby otwierał mi napęd cd-rom bo ja jestem za zgniły żeby go ręcznie otwierał i wsadzał płytke. Niechce nic przez inerneta tylko ja chce sobie zrobic programik że ja sobie będe mógł otwierać.
np. w trojanie jest tak że jest button open cd-rom

• 
  clientsocket1.socket.SendText('cdopen'); // 'cdopen' jest to zmienna ktora klient wysyla do server
  • - to jest jego treść w trojanie jak mam go zmienić żeby działał normalnie na moiej kompie że niebęde musiał nic połączać i tak dalej...||| Mam nadzieje że pomożecie z góry THX
    
    Przepraszam za złe opisy ale niewiem jak to napisać najprostrzej.
    
    
    
    
    
    _________________________________________________________________________
    Bez WAS mi się nieuda.
    

 

[WinX]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait',nil,0,handle); // wysunięcie
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait',nil,0,handle); // wsunięcie
end;

end.[/b]

Program do wysuwania i wsuwania Cdromu :-| Z pozostalymi opcjami sobie chyba poradzisz...

 

[MK4]

THX

Dziękuje ci. Mam nadzieje sobie poradzić... a jak masz jecze jakieś inne co mało jest w trojanach no napisz... pa...

___________________________________________________________________________
Bez WAS się nieuda

 

[BolekTrojan]

najpierw zacznij uczyc sie programowac i wejdz tutaj jak czegos nie bedziesz wiedzial
TUTAJ 8)

 

[MK4]

Jescze jedno...

OOooo... Mam pytanko mam w delphi button i chciłbym zrobić takie coś że jesli koleś kliknie na tego buttona to wypakuje sie plik *.rar
Jest to możliwe?
Jeśli tak to prosze o:

kod[/b]

 

[Lechusky]

Tak jest to mozliwe, zasoby. Kodu Ci nie podam bo mi sie nie chce ale mam dla Ciebie cos lepszego (to wcale nie jest zlosliwosc, w ten sposob wiecej sie nauczysz niz jakbym Ci podal gotowy kod

).