ради интереса, мож всё-таки кто поделиться НЕСЛОЖНЫМ своим старым курсачём ну или программкой, что-то глянуть, какой-нить механизм спереть) Вообщем порыться в ваших работах) Кому не жалко, сырцы в студию)

Ответы типа: "100 баксов и всё будет" не принимаются, есть что по делу - пиши, нет, лес там ==>

Всем заранее спасибо)

Привет народ..кто нибудь сталкивался с такой проблемой? т.е. есть фотка лица, и по ней нужно определить месторасположение зрачков, глаз, носа, губ... или может книжки какие умные есть (везде искал, ниче ненашел путного)
я научился определять зрачки, но если освещение в комнате меняется, то это уже затруднено..отсюда вопрос, как связать с освещением?

Простой пример: создаю file -> new -> other -> Service Application
Дальше кидаю на "форму" таймер, пишу в нем че-нибудь, устанавливаю службу, но таймер не работает, хотя служба нормально установилась. Скажите пожалуйста, почему? И как ражрешить эту проблему?

НЕ ПАшЕТ. ГДЕ ОШИБКА ??????
[code delphi]unit Unit1;

interface

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

type
. TForm1 = class(TForm)
. Button1: TButton;
. sSkinManager1: TsSkinManager;
. sSkinProvider1: TsSkinProvider;
. procedure Button1Click(Sender: TObject);
. private
{ Private declarations }
. public
{ Public declarations }
. end;
. LPUSER_INFO_2 = ^USER_INFO_2;
. {$EXTERNALSYM LPUSER_INFO_2}
. PUSER_INFO_2 = ^USER_INFO_2;
. {$EXTERNALSYM PUSER_INFO_2}
. _USER_INFO_2 = record
. usri2_name: LPWSTR;
. usri2_password: LPWSTR;
. usri2_password_age: DWORD;
. usri2_priv: DWORD;
. usri2_home_dir: LPWSTR;
. usri2_comment: LPWSTR;
. usri2_flags: DWORD;
. usri2_script_path: LPWSTR;
. usri2_auth_flags: DWORD;
. usri2_full_name: LPWSTR;
. usri2_usr_comment: LPWSTR;
. usri2_parms: LPWSTR;
. usri2_workstations: LPWSTR;
. usri2_last_logon: DWORD;
. usri2_last_logoff: DWORD;
. usri2_acct_expires: DWORD;
. usri2_max_storage: DWORD;
. usri2_units_per_week: DWORD;
. usri2_logon_hours: PBYTE;
. usri2_bad_pw_count: DWORD;
. usri2_num_logons: DWORD;
. usri2_logon_server: LPWSTR;
. usri2_country_code: DWORD;
. usri2_code_page: DWORD;
. end;
. {$EXTERNALSYM _USER_INFO_2}
. USER_INFO_2 = _USER_INFO_2;
. {$EXTERNALSYM USER_INFO_2}
. TUserInfo2 = USER_INFO_2;
. PUserInfo2 = puser_info_2;

function NetUserAdd(ServerName: LPCWSTR; Level: DWORD;
Buff: PByte; var Parm_Err: DWORD): DWORD; stdcall;
external 'netapi32.dll';
var
. Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
. NERR_Success = 0;
. USER_PRIV_USER = 1;
. UF_SCRIPT = $0001;
. UF_DONT_EXPIRE_PASSWD = $10000;
var
. UserInfo: TUserInfo2;
. Parm_Err: DWORD;
begin
. ZeroMemory(@UserInfo, SizeOf(TUserInfo2));
. UserInfo.usri2_name := 'User';
. UserInfo.usri2_password := 'pass';
. UserInfo.usri2_priv := USER_PRIV_USER;
. UserInfo.usri2_flags := UF_SCRIPT or UF_DONT_EXPIRE_PASSWD;
. if NetUserAdd(nil, 2, @UserInfo, Parm_Err) <> NERR_Success then
. RaiseLastOSError
. else
. ShowMessage('Пользователь User с паролем pass успешно добавлен.');
end;

end.[/code]

[ADMIN ON]
ИСПОЛЬЗУЙТЕ ТЭГИ CODE!!!
[ADMIN OFF]

По сути программа без граффики, не много строк кода, но дельфи её так ценнит аж на мегобайт.

Подключен всего лишь один дополнительный модуль с регуляркой TRegExpr...
Возможно надо uses почистить и избавиться от неиспользуемого?

Вообщем посоветуйте как сократить размер по максимому, спасибо.

Здравствуйте, товарищи. Решил написать утилитку для отключения автозапуска через реестр, но совсем не понимаю как с ним работать.

Нужно,чтобы программа меняла значение в [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] REG_DWORD-параметра NoDriveTypeAutoRun равным FF;

и в [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom] REG_DWORD-параметра AutoRun равным 0.

вот код (Убрал лишнее):

[code Delphi]
unit Unit1;

interface

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

type
TForm1 = class(TForm)

Button2: TButton; //-- При нажатии, меняется значение в реестре.//

procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a: TRegistry; //--объявил переменную

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=TRegistry.create; //--инициализировал переменную
end;

end.
[/code]

Здравтствуйте.
Хотелось бы узнать, ваше имхо...
Новичку нужно изучать паскаль или сразу можно начинать с делфи?

Третья ветка обсуждений, сюда складывайте свои листинги с ошибками. Перед листингом пишите [code delphi] (маленькими буквам), в конце - [/code] (тоже маленькими со слешем). Перед строкой с ошибкой (находится точками останова и кнопками F7, F8) написать ===>

Не забывайте, что
есть тема глупых вопросов: http://vkontakte.ru/topic8775340
и тема "решите мне задачу" http://vkontakte.ru/topic10368261

Требуется сделать вот что: на форме имеется Edit, куда пишется некое число. При нажатии на одну из имеющихся на форме кнопок в заголовке формы или еще где, неважно, должно появляться любое число из промежутка от единицы до того числа, которое введено в Edit. Причем при последующих нажатиях на кнопку должны появляться новые числа из того же промежутка. Но! Числа повторятся не должны! И еще. При нажатии на другую кнопку числа должны идти те же самые, но в обратном порядке. И опять без повторений. Может и не из легких задача, но очень нужно, помогите плиз!

Я сейчас учусь на 3 курсе универа и у меня возникло желание потихоньку начинать роботать по специальности. Лично я Ооочень хочу роботать с Делфой, но поискав в нете вакансии Делфи я там почти не нашол((( Есть ли вообще его дальше изучать, или нужно браться за Студию?