Сейчас обсуждают

[mephisto]

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

Куратором темы назначается ??????? (место вакантно )

[Linky]

Подскажите как сделать в Делфи, чтобы
1) программа при своем завершении тут же запускалась по новой или запускала другую(неважно какую), просто winXP sp2 при таком раскладе выдает сообщение о том что "программа пытается запустить другую... бла бла..." и необходимо его постоянно подтверждать
2)изменить имя процесса запущенной программы, т.е. например при нажатии на кнопку имя процесса менялось с "project1" на "asd"...
выложите примеры кода, заранее спасибо

[x0man]

Linky
1)

Код

WinExec('C:\Windows\system32\calc.exe', SW_SHOW);
ExitProcess(0);

при этом выключите защиту на компе...


2) нужно будет фиксить PEB процесса...

за примерами вам на
http://www.rootkits.ru
http://www.wasm.ru

ну даже можете на сайт в подписи моей сходить) там был пример по изменению имени процесса...

Сообщение отредактировал x0man - 12.6.2008, 23:02

[Linky]

x0man
пасиб
последний глупенький вопрос
нужно чтобы программа запускакась в фоновом режиме, как осуществить?

Сообщение отредактировал x0man - 12.6.2008, 23:13

[x0man]

Linky
Фоновый режим... мм... немного не понимаю...
Как это должно по вашему выглядеть... поточнее можно?

[mephisto]

Linky
Фоновый режим... мм... немного не понимаю...
Как это должно по вашему выглядеть... поточнее можно?

Судя по всему, чтоб окошко не появлялось

[Linky]

Судя по всему, чтоб окошко не появлялось

угу

[x0man]

В меню делфы...
Project -> View Source
будет чтото типа этого...

Код

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False; // <<<--------- Добавить это...
  Application.Run;
end.

или в коде основной формы(по умолчанию она называется "Form1")
при событии OnCreate добавить такой код

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Visible := False;
  // Self.Visible  := False; вот так...
  // (Sender as TForm1).Visible := False; так...
  // TForm1(Sender).Visible     := False; или так...
end;

или же просто в ObjectInspector'е параметр Visible у Form1 можно изменить на FALSE без всякого кода....

вспоминаю, когда писал первый и последний троян в своей жизни... столько радости было когда по сетке сидюк открывался...

Сообщение отредактировал x0man - 12.6.2008, 23:32

[Linky]

или же просто в ObjectInspector'е параметр Visible у Form1 можно изменить на FALSE без всякого кода....

спросил потому что,в delphi 7 по умолчанию у формы параматр visible = false, но в тоже время её видно
при запуске... хотя наверно это у меня так
спасибо за ответы.

[BATMEN]

Если форма вообще не нужна, то можно сделать службу. Либо просто без формы делать и все.

Цикл сам организуешь по обработке сообщений. Или не вызывать Application.CreateForm до необходимого момента.

[A_l_e_k_s]

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

[A_l_e_k_s]

ну вот человеку на будущее:

чтобы вызаваемая прога была без окошка надо писать
не WinExec('C:\Windows\system32\calc.exe', SW_SHOW);
а WinExec('C:\Windows\system32\calc.exe', SW_HIDE);

кроме WinExec для запуска чужих приложений (или своей копии) применяются функции
CreateProcess, CreateProcessAsUser, ShellExecute, ShellExecuteEx. Подробную информацию по ним с примерами (и вообще по кодингу в дельфе) можно посмотреть в DelphiWorldPro (как на сайте, так и скачанном с сайта справочнике). DelphiWorldPro - классный русскоязычный сборник примеров и статей, как для новичков, так и для профи.

по второму вопросу, об изменении имени процесса - можно создать свою копию с нужным именем, запустить её, и тут же закрыться, о чём человек в первом вопросе и спрашивал.

Сообщение отредактировал A_l_e_k_s - 14.6.2008, 8:28

[x0man]

по второму вопросу, об изменении имени процесса - можно создать свою копию с нужным именем, запустить её, и тут же закрыться, о чём человек в первом вопросе и спрашивал.

2)изменить имя процесса запущенной программы, т.е. например при нажатии на кнопку имя процесса менялось с "project1" на "asd"...

[oL___Eg]

Привет всем! Подскажите как в делфи сделать проверку,
если в combobox выбрано одно значение, то при нажатии на кнопку к label.caption присваевается допустим 1000, а если выбрано другое, то при нажатии присваивается 2000.

ps можно и без кнопки с помошью какогон-нибуть события: выбрал - сразу появилось.

pss ещё вопрос по делфи: ввод в бд на одной форме, таблица на другой. Добавил
запись захожу на форму где таблица - пусто, пока не нажмёшь кнопку обновить.
Как сделать обновление при входе автоматически?

Сообщение отредактировал oL___Eg - 15.6.2008, 16:41

[x0man]

oL___Eg
под значением в комбо бокс можно понимать 2 варианта... это индекс что выбран и текст который стоит... полагаю вам надо индекс...

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:Label1.Caption := '1000';
    1:Label1.Caption := '2000';
    else Label1.Caption := '>2000';
  end;
end;

также с событием... OnCloseUp

Код

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0:Label1.Caption := '1000';
    1:Label1.Caption := '2000';
    else Label1.Caption := '>2000';
  end;
end;

Про бд ничего не скажу, ибо не знаю...
но по логике -> засуньте код обновления в отдельную процедуру
и добавьте её в кусок кода где добавляется запись... чтобы после добавления записи таблица обновлялась...

[oL___Eg]

x0man
Спасибо за помошь!!!

ps

также с событием... OnCloseUp

Я такого чёт не нашёл... в Events? нету. Так вставить попробывал, ошибка какаета вылазит " expected '=' but '(' found".

[x0man]

Я такого чёт не нашёл... в Events? нету.

Ммм... смотрите внимательней...

[oL___Eg]

x0man
sorry, у меня dbcombobox для базы данных.

[x0man]

ммм... )) сразу бы и сказали))
ну а там ItemIndex работает?

[oL___Eg]

ну а там ItemIndex работает?

Да работает. Я через баттон сделал. Всё ок, ещё раз спс!

зы ещё маленький вопрос: Можно кнопки чтоб не стандартные были, а какие-нибуть овальные или ещё там чё... посимпотичнее вообщем можно сделать? И не могу на форму фон поставить... Я новичок в делфи, ещё много не знаю Всё впереди...

Сообщение отредактировал oL___Eg - 15.6.2008, 22:54