Nuevo patche 1.14 para Broodwar…

Hola a todos los fans de este maravilloso game…

La Blizzard acaba de anunciar su nuevo patche 1.14 para el Starcraft/Broodwar, aquí les dejo los detalles del mismo y su enlace para la descarga…

Starcraft and Brood War Patch Information

——————————————————————————–
- patch 1.14
——————————————————————————–

Feature Changes

- European ladder now affiliated with WGTour (http://www.wgtour.com/blizz.php).
See http://www.battle.net/scladder/ for additional information about the new
European ladder.
- Ladder games disabled for all other regions.
- For Top vs. Bottom games, the default chat filter is now ‘Chat To Allies’.
- In-game chat messages now show the speaker’s name in his/her team color.
- Users can now use the mouse wheel to scroll chat and selection boxes in
Windows 98 (or later) and Macintosh OS X.
- Screen shots now use a time/date stamp; they are no longer limited to 100.
- Improved version numbering system.
- The high-color application icon from the Macintosh version is now used on PC.
- Small corrections to the Lost Temple and Dire Straits maps.

Bug Fixes

- Fixed Hatchery cancellation crash bug.
- Fixed crash that can occur when SCVs are repairing a unit boarding a Dropship.
- Fixed crash when Mac users very quickly cancel connection to Battle.net.
- Fixed a scoring bug that gave Zerg unit points for building cancellation.
- Users can now take screen shots on Macintosh OS X.
- Updated Battle.net account creation information text.
- Logging onto an account closed for a Battle.net Terms of Service violation
will now say the account is closed, rather than ‘invalid password’.
- Fixed bug preventing Portuguese StarCraft clients from receiving patches from
Battle.net. Portuguese users must still patch to this level manually, but
subsequent patches can be obtained automatically from Battle.net.
- No longer displays control characters in Battle.net’s map description pane.
- Color codes and control codes are no longer allowed in chat messages.
- Fixed a crash in StarEdit when attempting to save modified Blizzard maps.
- Fixed undesired text wrapping in Spanish and Portuguese Battle.net screens.
- Fixed a rare crash in multiplayer games.

Exploits

- Fixed the Nydus Canal cancellation bug that allowed creating a mobile exit.
- Fixed two exploits that allowed players to gain minerals very quickly.
- Fixed exploit with Arbiter that allowed Zerg buildings to become cloaked.
- Fixed exploit that allowed units to kill themselves instantly.
- Fixed exploit that allowed Command Center infestation without a Queen.
- Fixed exploit that allowed Command Center infestation from a distance.
- Fixed exploit that allowed players to float Zerg Drones over obstacles.
- Fixed exploit that allowed worker units to mine at a distance.
- Fixed exploit that allowed Terran buildings to lift off while training units.
- Fixed exploit that allowed SCVs to repair Protoss buildings.
- Fixed exploit that allowed SCVs to detach Larvae from Hatcheries.
- Fixed exploit that allowed morphing Terran and Protoss buildings.
- Fixed exploit that allowed buildings to be stacked on top of each other.
- Playing against illegally named players on Battle.net no longer results in a
disconnect game result.

Link para la descarga:

http://ftp.blizzard.com/pub/broodwar/patches/PC/BW-114.exe

Salu2,

Lester Espinosa Martínez

Truco: Finalizar una aplicación conociendo el nombre…

Hola a todos, aquí les dejo un código que finaliza una aplicación conociendo el nombre de la misma.

function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Para utilizarlo bastaría solamente con poner un botón y en su evento OnClick escribimos:

KillTask(‘ntvdm.exe’); //Donde ntvdm.exe es el nombre de la aplicación…

Salu2,

Lester Espinosa Martínez

Truco: Mandar un NET SEND desde una aplicación…

Hola a todos, he aquí otro código que puede serles útil a la hora de programar una aplicación:

Añadimos al Uses la unit ShellAPI

Insertamos 2 Edits y un Button, el Edit1 será el IP de la máquina a quien vamos a enviar el mensaje o el nombre de la misma y el Edit2 será el mensaje a enviar…
Y añadimos en el evento OnClick del Button el siguiente código…

procedure TForm1.Button1Click(Sender: TObject);
begin
Try
WinExec(Pchar(‘net send ‘ + Edit1.Text + ‘ ‘ + Edit2.Text),0);
MessageDlg(‘El mensaje ha sido enviado satisfactoriamente al usuario: [' + Edit1.Text + ']‘,mtInformation, [mbOK], 0);
Except
MessageDlg(‘El mensaje no se ha podido enviar…’, mtError, [mbOK], 0);
End;
end;

Salu2,

Lester Espinosa Martínez

Truco: Buscar ficheros y/o carpetas…

Hola a todos, aquí les dejo un código que busca carpetas y/o ficheros:

procedure BuscaFicheros(path, mask : AnsiString; var Value : TStringList; brec : Boolean);
var
srRes : TSearchRec;
iFound : Integer;
I : Integer;
begin
I := 0;
if ( brec ) then
begin
if path[Length(path)] <> ‘\’ then path := path +’\';
iFound := FindFirst( path + ‘*.*’, faAnyfile, srRes );
while iFound = 0 do
begin
if ( srRes.Name <> ‘.’ ) and ( srRes.Name <> ‘..’ ) then
if srRes.Attr and faDirectory > 0 then
BuscaFicheros( path + srRes.Name, mask, Value, brec );
iFound := FindNext(srRes);
end;
FindClose(srRes);
end;
if path[Length(path)] <> ‘\’ then path := path +’\';
iFound := FindFirst(path+mask, faAnyFile-faDirectory, srRes);
while iFound = 0 do
begin
if ( srRes.Name <> ‘.’ ) and ( srRes.Name <> ‘..’ ) and ( srRes.Name <> ” ) then
Begin
For I := 1 To Length(Path) Do
If Path[I] = ‘\’ Then Path[I] := ‘-’;
If Value.IndexOf(Copy(Path,11,Length(Path))) = -1 Then Value.Add(Copy(Path, 11,Length(Path)));
End;
iFound := FindNext(srRes);
end;
FindClose( srRes );
end;

Añadimos a nuestra aplicación un MEMO y un botón, en el evento OnClick del botón escribimos lo siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
Ficheros:TStringList;
begin
Memo1.Clear;
Ficheros := TStringList.Create;
BuscaFicheros(‘c:\’,'*.*’,Ficheros,TRUE); //podemos cambiar el path y las extensiones de los ficheros a buscar…
Memo1.Lines.Assign(Ficheros);
Memo1.Lines.SaveToFile(‘Busqueda.txt’); //Si queremos salvar los resultados de la búsqueda…
MessageDlg(‘Se encontró un total de: ‘ + IntToStr(Ficheros.Count) + ‘ carpetas’, mtInformation, [mbOK],0);
Ficheros.Free;
end;

Salu2,

Lester Espinosa Martínez

Mi pantalla de inicio

Hola a todos, aquí les dejo mi pantalla de inicio, es la que siempre he usado y la comparto con todos para su disfrute…

Espero que les sea de su agrado…
Salu2,

Lester Espinosa Martínez

Un poco de mi…

Hola a todos nuevamente, en este apartado pondré una breve descripción de mi para que me vayan conociendo.

Nombre: Lester Espinosa Martínez
Edad: 27 años
Ciudad: Cienfuegos
País: Cuba
Profesión: Especialista en Ciencias Informáticas
Estado civil: Casado

Aquí les dejo una foto mía en mi oficina, una de mi esposa y otra de mis 2 niños (2 Pastores Alemanes [CAIXA y SEIMOL])

<< Yo en mi oficina >>

<< Ainery Alemán Cabrera (mi esposa) >>

<< CAIXA y SEIMOL >>

Salu2,

Lester Espinosa Martínez

Hola a todos…

Bienvenidos a mi blog personal, aquí trataré de temas de todos tipos, como Linux, Programación .NET en C#, Delphi, SQL, etc…

Acompáñame…!!!