mike_vio

Salut, am gasit in kitul de la delphi 7 un .dll care facea efectul asta, pana la urma i-am gasit functiile si modul de apelare. Este misto mai ales pentru o forma de prezentare, "about" de exemplu. Am mai pus o functie ce face forma transparenta cu ce procent vrei. Yfrog Photo : yfrog.com/5rtestkuj waterctrl.dll de aici: MEGAUPLOAD - The leading online storage and file delivery service waterctrl.dll si imaginea "1.bmp" (care trebuie rotita la 180 grade sa o afiseze in picioare) trebuie sa fie in directorul proiectului. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; btn4: TButton; Timer1: TTimer; Button2: TButton; Button3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure btn4Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } bmp:TBitmap; end; var Form1: TForm1; // myFile : File of byte; function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP; WaterRadius, WaterHeight: integer): BOOL; stdcall; external 'waterctrl.dll'; function waterblob(x, y: integer; radius, height: integer): BOOL; stdcall; external 'waterctrl.dll'; function disablewater(): BOOL; stdcall; external 'waterctrl.dll'; function flattenwater(): BOOL; stdcall; external 'waterctrl.dll'; implementation {$R *.dfm} Function MakeWindowTransparent(Wnd: HWND; nAlpha: Integer): Boolean; Type TSetLayeredWindowAttributes = Function(HWnd: HWND; crKey: ColorREF; bAlpha: Byte; DwFlags: Longint): Longint; Stdcall; Const LWA_ColorKEY = 1; LWA_ALPHA = 2; WS_EX_LAYERED = $80000; Var hUser32: HMODULE; SetLayeredWindowAttributes: TSetLayeredWindowAttributes; Begin Result := False; hUser32 := GetModuleHandle('USER32.DLL'); If hUser32 <> 0 Then Begin @SetLayeredWindowAttributes := GetProcAddress(hUser32, 'SetLayeredWindowAttributes'); If @SetLayeredWindowAttributes <> nil Then Begin SetWindowLong(Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) Or WS_EX_LAYERED); SetLayeredWindowAttributes(Wnd, 0, Trunc((255 / 100) * (100 - nAlpha)), LWA_ALPHA); Result := True; End; End; End; procedure TForm1.btn1Click(Sender: TObject); begin Application.Terminate; end; procedure TForm1.btn2Click(Sender: TObject); begin Timer1.Enabled:=True; Btn3.Enabled:=true; Button3.Enabled:=true; Button2.Enabled:=true; try enablewater(Form1.Handle,0,0,bmp.handle,3,50); except end; end; procedure TForm1.btn3Click(Sender: TObject); begin waterblob(50, 50, 10, 1000); end; procedure TForm1.btn4Click(Sender: TObject); begin MakeWindowTransparent(Form1.Handle, 25); end; procedure TForm1.FormCreate(Sender: TObject); begin bmp:=TBitmap.Create; bmp.LoadFromFile((ExtractFilePath(Application.ExeName)+'1.bmp')); Btn3.Enabled:=False; Button3.Enabled:=False; Button2.Enabled:=False; end; procedure TForm1.Timer1Timer(Sender: TObject); begin waterblob(70, 198, 10, 1000); end; procedure TForm1.Button2Click(Sender: TObject); begin disablewater; Timer1.Enabled:=false; end; procedure TForm1.Button3Click(Sender: TObject); begin flattenwater(); end; procedure TForm1.FormDestroy(Sender: TObject); begin disablewater(); bmp.Free; end; end.

Eu am scanat serverul pe virustotal si e suspect de curat pentru un virus.

Sau o periuta de dinti - mai la indemana ca un cleste "papagal". Foloseam periuta inainte sa apara pompitele, merge si la integrate. Topesti cositorul de pe piciorus apoi dai repede cu periuta si il elimini cat e fluid.

Cu system restore poti incerca, daca nu merge, intra cu un livecd, ordoneaza fisierele dupa data crearii din discurile tale apoi sa stergi cele cu nume random create cand ai rulat scriptul. (sa dezactivezi recycle cand le stergi). Locatia lor e in urmatorul cod si sunt cu argumente speciale. "set ddir=D: set fdir=F: set gdir=G: set hdir=H: set idir=I: ::The Checking Sequence if exist C:\ (MD %windir%\crss) else (goto setdir) >nul if exist D:\ (MD %ddir%\System) else (goto setdir) >nul if exist F:\ (MD %fdir%\System) else (MD F:\system) >nul if exist G:\ (MD %gdir%\system) else (MD G:\system) >nul if exist H:\ (MD %hdir%\system) else (MD H:\system) >nul if exist I:\ (MD %idir%\system) else (MD I:\system) >nul" PS. daca nu intelegi ce am scris, nu mai intra pe forumul asta bafta.

Il ai pe stik pe undeva sau pe o alta partitie. Foarte greu am scapat si eu de confliker, sunt tooluri pe net impotriva lui - dar n-a functionat niciunul bine. Am scapat cu SymatecAV. Fa ca o protectie directoare pe fiecare partitie / stik numite "autorun.inf" asa n-o sa mai ai probleme cu genul asta de infectii.

Si probabil ca o sa manance resurse de 2 ori cat Vista . Prea frumos ca sa fie ok.

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, XPMan, sndkey32; type

Doar il scrii la uses si atat. Daca nu iti da eroare la compilare inseamna ca l-a gasit. Eu le-am pus si unde aveam programul (iti trebuie si .dcu si .pas). Eu am facut programul dar nu merge, nu face decat sa minimizeze fereastra de mess - altceva nu am vazut. N-am mai scris din cauza asta : "Totul este foarte explicit .. va rog sa nu veniti cu posturi de genu "nu functioneaza" , "imi da eroare" etc .."

Revenind la topic, a aparut Opera 11 beta Download Opera 11 beta - download go4it.ro care promite multe.

Si eu am unul simplist facut, codul e identic cu al tau si merge forward de mai multe ori. Chestia sa navighezi inainte cateva pagini sa stie browserul ce pagina e forward. Cred ca aia nu faceai tu.

De 4 ani... au iesit oamenii la pensie

Misto, deja i-am facut proba.

Mai fac o adaugare gasita pe un tutorial, a folositoare informatia : "Dupa cum stiti, in momentul instalarii Windowsului 7, acesta ne va crea o partitie de 100MB pe langa partitia C obisnuita. Partitia de 100MB este practic ascunsa si nu va aparea in My Computer insa daca vom da click dreapta pe iconita Computer si vom alege din meniul contextual functia Manage, la Disk Management, o sa observam ca pe langa partitiile obisnuite C, D etc, mai avem si o partitie de 100MB. In aceasta partitie sunt tinute practic fisiere de sistem, fisiere de boot cu ajutorul carora Windows 7 booteaza in momentul pornirii. Daca o sa stergeti partitia de 100MB o sa aveti supriza ca sistemul vostru de operare nu va mai boota."

Si eu l-am testat ieri, meserias tipul.

Ms., interesant.

Mai e o metoda smechera si curata chiar daca e contorul scos pe scara, fara fire trase sau altceva vizibil. Intreaba un elecrician mai cu vechime + da-i ceva.

Pai poti sa-l introduci iar in e71 si sa transferi datele de pe card in calculator prin miniusb / bluetooth.

Motoare de cautare dar care cauta unde nu ajunge goagal-ul. "In 2000, se estima ca Deep Web-ul contine aproximativ 7.500 de terabiti si 550 de miliarde de documente individuale. In iunie 2008, numarul de pagini web indexate cu succes se ridica la aproximativ 63 de miliarde. In momentul de fata, se estimeaza ca Deep Web-ul depaseste de 4 ori ca marime Surface Web-ul." Voua nu vi s-a intamplat sa cautati ceva cu "tata google" si sa nu gasiti cu toate ca e imposibil sa nu existe pe undeva ceva? La asta ma refeream, la extinderea posibilitatilor de cautare, daca ati folosit, daca stiti pe cineva care foloseste aceste motoare.

Salut, am gasit mai demult asta: Descopera Deep Web – internetul ascuns cine a mai folosit metoda asta de search si daca i-a fost de ajutor cumva ? Eu am incercat sa caut oarece dar mereu nu gaseam nimic folositor.

Eu stiam ca a existat un astfel de virus care iti marea rata de refresh la monitor pana il ardea (la LCD-uri si la protectiile actuale din monitoare nu stiu daca ar mai merge).

Wondershare Time freeze - e varianta free a lui deep freeze. E mai flexibil, poti proteja si directoare separate eu il folosesc fara probleme.

Bai voi ma credeti chiar batut in cap si pus pe contraziceri ? Merg si doi AV instalati pe un sistem dar nu oricare. Poate stiti ca lui NOD32 nu ii place sa aiba un alt AV ce ruleaza odata cu el, deci se exclude versiunea sa am in acelasi timp si NOD32 si Avira / alt AV instalat in acelasi timp. Observatiile le-am facut dupa ce dezinstalam nod, instalam avira si dadeam scanare. Nodul detecta doar copiile facute de virus si le stergea, avira a gasit si virusul care se clona.

In afara de sa-i verifici cablul coaxial de la rds sa fie cat mai ecranat sau chiar sa-l schimbi nu prea poti face nimic. Ar trebui ecranat tot televizorul sa nu mai intre unde straine in el, ecranarea laptopului e exclusa din cauza internetului mobil.

L-am pus pe multe calculatoare NOI, cu configuratii bune pentru ca stiam ca e bun si free. Incearca sa trimiti ceva la imprimare din linia de comanda cu avira instalat si dupaia fara, sa vezi diferenta. Te rog nu mai vorbi de ce nu stii.

Si eu l-am folosit, imi detecta ce scapa de NOD32 dar manca resurse multe.