Leaderboard

Cerea cineva pe forum un program dinasta, m-am gandit ca e folositor si pentru altii. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, mmsystem; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Button3: TButton; Timer1: TTimer; procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin // iesirea din program Application.Terminate; end; procedure TForm1.Button1Click(Sender: TObject); begin //porneste captura timer1.Enabled:=True; mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS MicSound', nil, 0, Handle); mciSendString('SET MicSound TIME FORMAT MS ' + // set the time format 'BITSPERSAMPLE 8 ' + // 8 Bit 'CHANNELS 1 ' + // MONO 'SAMPLESPERSEC 8000 ' + // 8 KHz 'BYTESPERSEC 8000', // 8000 Bytes/s nil, 0, Handle); mciSendString('RECORD MicSound', nil, 0, Handle); end; procedure TForm1.Button2Click(Sender: TObject); begin //opreste captura si salveaza fisierul FileName.wav in calea unde e si programul timer1.Enabled:=false; mciSendString('STOP MicSound', nil, 0, Handle); mciSendString(PChar('SAVE MicSound ' + ExtractFilePath(Application.ExeName)+'FileName.wav'), nil, 0, Handle); mciSendString('CLOSE MicSound', nil, 0, Handle); end; procedure TForm1.Timer1Timer(Sender: TObject); begin // arata cate secunde se inregistreaza Label2.Caption:=IntToStr(StrToInt(Label2.caption)+1); end; end. deci o forma cu 3 butoane, start + stop + iesire un timer care numara secundele o eticheta care arata tipul scurs. Daca se doreste modul "stealth" se poate renunta la butoane, etichete, iar form1.show:=false

Delete undeletable files far? nici un soft 1) Crea?i un folder numit “Windows.old” 2) Mutarea fi?ierelor care nu pot fi ?terse în acel folder 3) Rula?i Cur??ire disc în Start – Toate Program – Accesorii – System Tools (sau c?utare în meniul Start) 4) Alege?i partitia în care folderull Windows.old se afl? ?i face?i clic pe OK. 5) Bifati?i “anterioar? Windows Instala?ii” casu?? ?i face?i clic pe OK