Vizitaţi-ne pe BitCell.info.

Of course I bought one for myself. It had the extraordinary capacity of 256 MB, was small, blue and transparent. It was the perfect toy. No more stress caused by diskettes, no more writing on CD-RW’s. Just like on a floppy disk, I could write and erase data as I saw fit … like on a CD, I could transfer a lot of data.

It did, also, make a big hole in my wallet. The huge 256 MB Flash Drive cost me, back then, almost a quarter of my salary. At the same price I could now buy a 16 GB, or even 32 GB, flash drive. I don’t see why I would do that, though, knowing the reduced transfer speeds of flash drives.

Recently, I found my Flash. It was one piece, functional, light blue and still transparent. As a bonus, I had data on it. Files from another era. Memories. A real treasure.

I inserted it in an USB slot in the front of the computer’s case and started checking everything on it. After a half an hour, amused, nostalgic, even happy, I went on the balcony for a smoke. When I came back, being caught in a discussion with a co-worker, I stepped right on the flash drive. I wasn’t content at all.

I looked at the remaining pieces under my show and I was quite surprised to see it almost intact. It was a bit bent, it stripped it’s blue plastic clothes and I could see the little control board which, too, was a little bent and seemed broken. I tried to insert the rests of the flash in the USB slot, but Windows said it couldn’t find a driver. Damn it! The only thought that went through my mind was that it needed another flash drive, not a driver.

I tried to unbend the control board, as delicate as possible, and I tried again. To my astonishment, this time it worked flawlessly. I copied all my data from it, and now … it’s a blog piece, as you can admire below.

[View with PicLens]

The first thought that crossed my mind was to install a new Wordpress for each language that I want to use, but when I thought of all those plugins, settings and all that crap that will bother me, I quit.

Unfortunately, there aren’t too many informations regarding the possibility of a Wordpress that supports more language at a given time. At a fairly deep search I found a single site that had some promises, so I kept it for when I would start testing.

Fortunately, there is also Smash in the world, who found me another two sites that seemed perfect.

I couldn’t wait anymore. I took xampp, installed it, I took Wordpress, installed it too, I took the database from the blog, imported it in my new localhost blog, adjusted the settings as to be as close to the original ones as possible and I went nuclear.

I started with qTranslate and I instantly dropped dead when, after I clicked on Activate Plugin, it displayed me a mile-long page cu errors. Good thing there was Google available.

The file “qtranslate_core.php” must be modified. More clearly, the next piece of code must be commented:

	if(is_object($text)||get_class($text) == '__PHP_Incomplete_Class') {
		foreach(get_object_vars($text) as $key => $t) {
			$text->$key = qtrans_use($lang,$text->$key,$show_available);
		}
		return $text;
	}

After modifying this file, the installation, activation and setting up the plugin are just a breeze.

All I still need to do is to modify the rest of the blog’s posts. I’m so screwed

Good luck with improving Wordpress !

Before the entrance exams in the summer of 1998 I was taken by my mother to her job where, at some offices, there were some computers, and the boss daughter used to play there often. Obviously, I went to see how a real computer looks like. Of course that, bright as I knew I was, I imagined that in two weeks I would learn everything that was possible about computers (I don’t really watch a lot of movies since that disillusionment ).. Ştefania, the aforementioned girl, was a year older than me (already in highschool, computer department too) wasn’t born to be a teacher, so she pushed the power button, some white on black lines started to move on the screen, and I was staring at it. When the lines got tired of moving around, Ştefania wrote three letters, w, i, n and then pushed Enter (Enter … meaning a big key near the center of the keyboard).

Windows. Versiune: 3.11. Everything became bright, mostly white. Some windows. Then little colorful drawings, in each ocean of white. I immediately noticed that she dived into an ocean full of games and kept on swimming until she found Solitaire. It has been interesting, but … I mean, I don’t let the playing cards home down to play cards on a computer.

It’s been a long time since (from my point of view), but I sticked with Windows. This is another way of saying that it’s still raining windows. To be honest, it’s been good years since Linux got windows, too…

Until recently, I had forgotten how much did the Windows’ windows fascinated me in high school (especially after the Olympiad in Informatics from the 9th grade … I was told to copy my source files onto a diskette, using Windows … very penitently, I had to explain to Mrs. Teacher that I had no clue how to do that). So much that, in my 11th grade, I made a program, in Delphi, that would list all the windows from the system, including the hidden ones … and, even more, to allow me to play with’em Put them always on top, hide them, move them … good days

Assuming you had patience up until now, in the next paragraphs I will present this little program, explaining some pieces of the code and, as before, to offer it as open-source.

The first function I needed was EnumWindows, an API function that retrieves the full list of the system’s windows, requiring two parameters: a callback function and programmer-defined value to be passed to this function. To be perfectly honest, I couldn’t quite get what that freaking callback is and why, in this case, it would need a parameter for a handle of a single window and my parameter. I mean, in a system there are hundreds of windows … how would it get them all in a single handle?

I solved this problem quickly by displaying that “unique” handle (as I was expecting) in a ShowMessage. Do I still need to say that after the 20th ShowMessage I went back in Delphi and hit Ctrl + F2 (program reset) ? The callback function was called for every main window found by EnumWindows, giving me it’s handle.

Oh goody … the list of windows is done. I have a list of handles to windows which, honestly, looks smashing. Hammer smashing. I wanted something flashy, eye-candy, something that would show, to whoever would watch, that the program is super-mega-ultra-blah-blah. Hmm … the title of the window (usually, it’s caption-bar) would go well …

I went to finding the window’s name, something that was generously offered by GetWindowText, if you bribe it with the window’s handle and a little room to spill the characters.

Yeah, it’s already looking better. Still, there are a lot of weird names around here. CiceroUIWndFrame, curtain, AXWIN Frame Window, DDE Server Window, SysFader … WTF ? Microsoft sucks! What the hell is with this windows ? We need to see them

ShowWindow to the rescue. A very attractive and funny function. Give a handle, say SW_SHOW and voila … the window got out from the mist. Say SW_HIDE and … you’ll never knew it’s been there. It also knows some other stuff, but if you’re interested, all you need to do is to RTFM on the above specified link.

This was a real big moment. I realized that, considering the Get / Set function pairs, there had to be a SetWindowText. Lucky bet. I rapidly implemented the functionality and I was very proud of myself when the Windows Explorer window was calling itself as “Bond. James Bond”. I’m kidding, obviously. It was calling itself “Pop. Victor Pop”.

No matter the name, the function SetWindowPos takes care the Z-window placement, setting the top-level windows, not to mention the obvious fact that it can move / resize the window. It has been a pleasure to use this function to set a randomly picked window to be Always On Top or Always … not.

The rest of the code should be clear enough, but if you have any problems with it, let me know. I’ll try to play the good Samaritan, once in my life

Download:

Sursa : [download id="2"]
Executabil : [download id="1"]
Screenshot

În vederea acestui scop, mi-am lăsat laptopul la încărcat până în ultima clipă, apoi l-am pus în hibernare şi am plecat. Ajuns în gară, am hotărât să mă aşez în singurul locşor din tren unde există priză (de fapt, două alăturate … doar suntem europeni acum, nu?).

Am avut, totuşi, o mică surpriză, nu neapărat plăcută, când, după ce am urcat în tren, am remarcat că pe cele mai apropiate două locuri (de priză) erau două femei, una la vreo 35 de ani şi cealaltă undeva peste 50. Doar locul de dincolo de ele era gol, dar îmi displăcea profund ideea de a butona înghiontit de colegii de drum, cum mi s-a mai întâmplat…

Mi-am luat inima în dinţi şi am rugat-o pe doamna mai tânără (cea care stătea chiar lângă priză), dacă se poate, să-mi doneze locul ei. Am contat pe faptul că nu avea telefon la încărcat şi nici nu părea să fie în stare să distingă un laptop închis de o cărămidă mai interesantă.

După ce a trebuit să repet de câteva ori întrebarea (s-a băgat şi doamna mai în vârstă în discuţie), a fost de acord să mă lase să-mi pun telefonul la încărcat acolo … când, într-un final, a înţeles că o rugam să se mute, a făcut o mutră mai acră, dar s-a mutat, lăsându-şi totuşi bagajul să-i ţină companie trollerului meu.

Nu a uitat, atunci când s-a aşezat pe noul loc, să arunce o ultimă replică mai veninoasă: “Ştii, nu e frumos să ridici femeile !”. Da, ştiu, doar pe piedestal …

Chiar m-a blocat niţel … probabil că s-a şi văzut pe faţa mea, pentru că nu a mai adăugat nimic.

Tanti nu avea nici un folos pentru amărâta aia de priză, iar în acel tren doar acolo există vreo priză. Cu ce-am deranjat-o atât de tare că am rugat-o să se mute în cealaltă parte a femeii în vârstă, ţinând cont de faptul că am rugat-o frumos?

Cireaşa de pe tort a venit un pic mai încolo, totuşi … la prima staţie ambele femei au coborât … asta chiar m-a lăsat mască. Pentru 10 minute de călătorie s-a gândit să-mi arunce remarca aia? Sau doar pentru că era de la ţară?

Cred că oamenii nu se simt bine dacă nu încearcă să facă pe alţi oameni să se simtă prost … just for the fun of it.

Cu toate acestea, ce trebuie să ştiţi este că aceste cicluri bioritmice nu sunt dovedite ştiinţific, ba chiar, mai curând, infirmate. Pentru detalii, vedeţi ce zice Wikipedia.

Acestea fiind spuse, să trecem la partea tehnică și informatică din spatele acestui program.

Probabil că știți că pentru a desena o sinusoidală pe calculator, calculezi o serie de puncte, care le unești prin linii. O treabă foarte ușoară în Delphi. Ceea ce probabil că nu știți e faptul că există o funcție în Delphi, care unește o serie de puncte prin linii mult mai rapid decât dacă ai face o buclă, desenând liniile una câte una. Funcția se numește PolyLine (o puteți căuta în Help).

Mai exact, un cod de forma

begin
   MoveTo(0, F(0));
   for i := 1 to 100 do
      LineTo(i, F(i));
end;

ar putea fi optimizat cu codul următor:

var lPoints: array of TPoint;
begin
   SetLength(lPoints, 101 );
 
   for i := 0 to 100 do
      with lPoints[i] do
      begin
         X := i;
         Y := F(i);
      end;
 
   Polyline(lPoints);
end;

În afară de acest lucru, restul codului este ușor de înțeles, fiind și parțial comentat. Sursa este scrisă în Delphi 7, dar probabil că va compila și cu alte versiuni de Delphi (mai vechi sau mai noi).

Download : Sursa :: Executabil :: Screenshot

Comentarii, bug-uri, sugestii : binevenite. Also, partea grafică a programului m-a interesat doar din punctul de vedere al graficelor, deci … știu că poate fi îmbunătățit designul.

SRWare Iron is a real alternative [to Chrome]. The browser is based on the Chromium-source and offers the same features as Chrome – but without the critical points that the privacy concern.

I recently found an alternative to Chrome which boasts to be on par with it, but doesn’t collect private data from users.

I use for more than two weeks and I can say I like it. It really does have the same capabilities as Chrome (being based on it’s source, it’s quite natural), but (and I may be wrong) it seems to move faster.

Go take a look, maybe you’ll like it, too.

SRWare Iron – The Browser of the Future

La început, a fost Internetul. Apoi a fost creat 3xforum.ro şi au apărut, încet, apoi din ce în ce mai rapid, comunităţi hostate pe 3xforum care erau pe placul lui The Mentor … bineînţeles, unele comunităţi au muşcat din mărul discordiei şi s-au apucat de “hecărit”, fără să înţeleagă ce înseamnă un hacker, lucru care a dus la ploile cu foc şi pucioasă din Erele Întunecate ale Internetului (ah, şi au contribuit la încetăţenirea termenului de “hacker” … bineînţeles, cu un sens niţel diametral opus decât cel original).

Apoi a venit potopul de forumuri care apăreau ca şi ciupercile după ploaie, care mai de care pline de oameni (mai bine zis, copii teribilişti) care visau doar deface-uri, furturi de parole si cc-uri, and so on … Cu timpul, s-au cernut câţiva oameni care au vrut să facă ceva mai bun… un loc în care să înveţi, dar să înveţi ce e bine să faci. Un loc unde muzica rock să fie la mare cinste, iar maneliştii să fie banaţi (scratch the last few words, d’oh). Un loc care să te stimuleze să înveţi, să te stimuleze să creezi … să crească Oameni, nu doar persoane care ştiu butona.

Am avut norocul să fiu inclus în echipa care s-a ocupat de construcţia acestui locşor şi mi-am adus şi eu contribuţia, în măsura posibilităţilor, încă de pe când se săpau şanţurile şi se puneau fundaţiile. Evident, asta e un amănunt care explică foarte clar de ce nu pot fi obiectiv vorbind despre SkullBox, fiind primul loc de pe Internet unde chiar m-am simţit ca acasă.

Rareori am mai căutat în alte parte informaţii legate de calculatoare şi aura de software care le înconjoară, fiindca SkullBox, pe lângă cantitatea (deja enormă) de informaţii foarte preţioase pentru cei care au nevoie de ele, dispune de o echipă de oameni inteligenţi care fac tot posibilul să răspundă oricărei întrebări (decente !) legate de prietenii noştri alimentaţi la 220V (sau 110V, după caz).

So, dacă ai nevoie de sfaturi legate de setările sistemului de operare sau ale site-ului tău, tutoriale de programare sau sfinte scripturi de php sau java … sau, pur şi simplu, vrei să te simţi bine, SkullBox merită încercat.

I hope you like it, too.

You can find it, for the moment, in a small window, in the sidebar, displaying the categories and anothe few links that I considered to deserve this favour

See ya later

Să vedem cum am putea afla câte ceva legat de ferestrele vizibile şi cum am putea să le ascundem, să le dezactivăm, etc, totul din Borland Delphi, folosind funcţii API.

Pentru început, să vedem cum aflăm ce fereastră avem sub cursorul de mouse.

Pentru asta ne trebuie să ştim poziţia cursorului, care se poate afla folosind funcţia GetCursorPos, din care putem afla handle-ul ferestrei de sub cursor, folosind funcţia WindowFromPointSă vedem nişte cod.

var hWindow  : Longint;
    P : TPoint;
  ...
  GetCursorPos(P);
 
  hWindow := WindowFromPoint(P);

Destul de simplu, nu ? În variabila hWindow avem acum handle-ul care ne interesează.
Pentru a “vedea” în timp real ce fereastra e sub cursor, punem codul acesta într-un TTimer.

Să vedem cum afişăm informaţiile găsite, cum ar fi titlul ferestrei, clasa ferestrei (adică tipul componentei) şi handle-ul asociat părintelui ei, din TTimer. Pentru asta avem nevoie (în cazul acesta) de patru TEdit-uri.

procedure TForm1.Timer1Timer(Sender: TObject);
var hWindow  : Longint;
    P : TPoint;
    buff : Array[0..255] of char;
begin
  GetCursorPos(P);
 
  hWindow := WindowFromPoint(P);
  Edit2.Text := '$' + IntToHex(hWindow, 8);
 
  GetWindowText(StrToInt(Edit2.Text), Buff, 255);
  Edit1.Text := Buff;
 
  GetClassName(StrToInt(Edit2.Text), Buff, 255);
  Edit3.Text := Buff;
 
  If GetParent(StrToInt(Edit2.Text)) > 0
    then Edit4.Text := '$' + IntToHex(GetParent(StrToInt(Edit2.Text)), 8)
    else Edit4.Text := 'None';
end;

GetWindowText returnează titlul ferestrei (sau textul din fereastră, dacă e vorba de un TEdit), GetClassName returnează tipul componentei, iar GetParent handle-ul părintelui. Simplu, nu ?

Păcat că momentan tot ce aflăm sunt lucruri destul de puţin importante şi deloc atrăgătoare. Nişte numere şi ceva text care oricum se vedea şi fără un asemenea program. Să încercăm ceva mai atrăgător.

Pentru început vom ascunde / reafişa fereastra, apelând funcţia ShowWindow, care are nevoie de doi parametri: handle-ul ferestrei şi un parametru care specifică dacă vrem să afişăm sau să ascundem fereastra.

Afişare fereastră:

ShowWindow(wHandle, SW_SHOW);

Ascundere fereastră:

ShowWindow(wHandle, SW_HIDE);

Alt lucru care-l putem face : vom seta ca fereastra selectată să devină fereastră de top-level şi înapoi. Pentru acest lucru vom folosi funcţia SetWindowPos pentru a ne defini o procedură apelabilă cu un parametru de tip Boolean care să ştie modifica stilul ferestrei în ambele moduri, al doilea parametru fiind handle-ul ferestrei care vrem s-o modificăm.

procedure SetTop(Top : Boolean; Handle : HWnd);
Begin
  If Top
    Then
      Begin
        SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
                     SWP_SHOWWINDOW + SWP_NOMOVE + SWP_NOSIZE);
        SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0,
                     SWP_SHOWWINDOW + SWP_NOMOVE + SWP_NOSIZE);
      End
    Else SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
                      SWP_SHOWWINDOW + SWP_NOMOVE + SWP_NOSIZE);
End;

Acum nu mai avem decât să apelăm procedura asta din butonul corespunzător.

Ştiind handle-ul ferestrei, o putem şi activa / dezactiva folosind EnableWindow, care necesită specificarea handle-ului ferestrei şi un parametru logic care determină activarea / dezactivarea ei.

Codul pentru cele şase butoane de până acum:

procedure TForm1.bShowClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  ShowWindow(hWindow, SW_SHOW);
end;
 
procedure TForm1.bHideClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  ShowWindow(hWindow, SW_HIDE);
end;
 
procedure TForm1.bTopClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  SetTop(True, hWindow);
end;
 
procedure TForm1.bPotClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  SetTop(False, hWindow);
end;
 
procedure TForm1.bEnableClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  EnableWindow(hWindow, True);
end;
 
procedure TForm1.bDisableClick(Sender: TObject);
begin
  hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));
  EnableWindow(hWindow, False);
end;

Probabil că aţi remarcat linia

hWindow := HexToInt(Copy(Edit2.Text, 2, Length(Edit2.Text) - 1));

, despre care nu am scos nici un cuvânt până acum. Este inversa funcţiei IntToHex din Delphi, şi este definită mai jos.

function HexToInt(S : String): Longint;
var B : Byte;
    C : Char;
Begin
  Result := 0;
  s := UpperCase(s);
  For B := 1 To Length(s) Do
    Begin
      Result := Result * 16;
      c := S[B];
      Case c Of
        '0'..'9': Inc(Result, Ord(c) - Ord('0'));
        'A'..'F': Inc(Result, Ord(c) - Ord('A') + 10);
        Else
          Begin
            Result := 0;
            Exit;
          End;
      End;
    End;
End;

Puteam folosi variabila hWindow ca variabilă globală şi atunci scăpam de nevoia folosirii acestei funcţii, nu ? Dar ce se întâmpla dacă la utilizarea programului se voia reafişarea unei ferestre căreia îi ştim handle-ul ? În acest fel tot ce avem de făcut este editarea celei de-a doua căsuţe text cu handle-ul respectiv şi putem face orice, altfel putând lucra doar cu ferestrele vizibile pe ecran.

Cam acesta ar fi codul necesar pentru o mini-aplicaţie de lucru cu ferestrele … dar stai … e o problemă … dacă verificarea ferestrei de sub mouse se face în timp real, înseamnă că … da, dacă selectez butonul de “ascundere fereastră”, îmi va ascunde tocmai respectivul buton. Damn, nu e bine.

Trebuie să programăm o metodă de a opri scanarea ferestrelor în timp real, o dată ce am selectat fereastra cu care vrem să lucrăm, fără să mişcăm mouse-ul. Pentru asta ne vom defini o combinaţie de taste globală, folosind funcţia RegisterHotKey, care primeşte patru parametri: handle-ul ferestrei căreia să-i trimită mesaj în caz că s-a apăsat combinaţia noastră de taste, un identificator pentru combinaţie, definit de noi, şi combinaţia de taste, definită prin doi parametri – primul, care defineşte dacă tastele CTRL, ALT, SHIFT sau WIN sunt apăsate, şi al doilea, care defineşte o tastă normală (cum ar fi “R”. Apelul funcţiei, pentru a ne defini combinaţia CTRL + F8, este :

const StopKey = 100000;
  ...
  RegisterHotKey(Handle, StopKey, MOD_CONTROL, VK_F8);

Această linie trebuie apelată chiar la începutul rulării programului, în FormCreate.
Atenţie : StopKey este o constantă ce trebuie definită global, înaintea secţiunii implementation.

Pentru a fi anunţaţi când este apăsată combinaţia noastră de taste ne vom defini o procedură care să primească mesajul trimis de sistem, interceptând mesajul WM_HOTKEY.

type
  TForm1 = class(TForm)
  ...
  private
    { Private declarations }
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
 ...

Codul procedurii :

procedure TForm1.WMHotKey(var Message: TMessage);
begin
  If Message.WParam = StopKey
    Then Timer1.Enabled := not Timer1.Enabled;
end;

Practic, la fiecare apăsare a combinaţiei, TTimer-ul nostru se va opri / reporni. Pentru a nu lăsa mizerie după rularea programului, va trebui să distrugem această combinaţie de taste la oprire. Pentru acest lucru, în FormCloseQuery vom apela :

  UnregisterHotKey(Handle, StopKey);

Cam asta ar fi tot codul.

Pentru a nu vă pune să lucraţi cu copy / paste şi să vă faceţi griji de componente şi asignări de evenimente, aveţi mai jos sursele şi executabilul arhivate.

Download : Sursa :: Executabil