Как в делфи7 сделать программ а не юнит?

[spoool]

Привет все, помогите разобраться...
program robot;

type
...
ListBox: TListBox;
end;
--------
Вообщем сори конечно за нубство, ну вообщем помогите видете там программ робот первая строчка, далее идет тип лист бох тлист бокс, как в делфи7 сделать программ а не юнит? и еще код я смотрел один
begin
inc(Count); допустим вот сдесь вылазеет ошибка, помогите мне

[pu4koff]

Сообщение от spoool

Вообщем сори конечно за нубство, ну вообщем помогите видете там программ робот первая строчка, далее идет тип лист бох тлист бокс, как в делфи7 сделать программ а не юнит?

Зачем вам это надо? Какая разница модуль это или программа?
Если очень надо, то жмите Ctrl+F12 и выбирайте там ваш Project1 или как называется у вас проект. Это и есть program, остальное всё модули будут, т.к. не может же быть 2 программы.

Сообщение от spoool

inc(Count); допустим вот сдесь вылазеет ошибка, помогите мне

Ну вылезет ошибка. И что из этого? Ошибка компиляции или ошибка во время выполнения? Что вам надо сделать, когда ошибка вылезет?

[DeKot]

При создании программы в Delphi (правильней проекта, который составляет приложение) Вы выбираете File -> New -> Applicanion (создать новое приложение). После сохранения или компиляции среда Дельфи автоматически создает главный файл проекта (.DPR) - это и есть program и создается модуль проекта (.PAS) - Unit.
Далее разработка программы ведется в модуле Unit.Это принятый порядок и не вижу смысла его нарушать.
По поводу Inc(Count); - скорее всего не объявлена переменная
Count. Желательно в таких случаях приводить текст сообщений об ошибках.

[Stilet]

spoool

Тебе просто нужно консольное приложение в стиле а-ля Турбопаскаль?
File -> New -> Console Applicanion

вообще вопрос ниразу не понятный...

[spoool]

Вообщем сча объясню
program getpass; как он сделал программ и добавил в него типы листбох и т.п я занимаюсь по справочнику...

program getpass; как он сделал именно программ а не юнит понимаете?

type
  ...
  ListBox: TListBox;
  procedure getpasswords;
end;

const
  Count: Integer = 0;


type
  ...
  ListBox: TListBox;
  procedure getpasswords;
end;

const
  Count: Integer = 0;

function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte;
  PC: PChar; dw: DWord): Word; stdcall;

implementation

{$R *.DFM}

function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC:
  PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords';
type
  PWinPassword = ^TWinPassword;
  TWinPassword = record
    EntrySize: Word;
    ResourceSize: Word;
    PasswordSize: Word;
    EntryIndex: Byte;
    EntryType: Byte;
    PasswordC: Char;
  end;
var
  WinPassword: TWinPassword;

function AddPassword(WinPassword: PWinPassword;
  dw: DWord): LongBool; stdcall;
var
  Password: string;
  PC: array[0..$FF] of Char;
begin
  inc(Count); сдесь ошибка

  Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
  PC[WinPassword.ResourceSize] := #0;
  CharToOem(PC, PC);
  Password := StrPas(PC);

  Move(WinPassword.PasswordC, PC,
    WinPassword.PasswordSize + WinPassword.ResourceSize);
  Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
  PC[WinPassword.PasswordSize] := #0;
  CharToOem(PC, PC);
  Password := Password + ': ' + StrPas(PC);

  Form1.ListBox.Items.Add(Password);
  Result := True;
end;

procedure tform1.getpasswords;
var
  error: string;
begin
  if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
  begin
    error := 'Can not load passwords: User is not loged on.';
  end
  else if Count = 0 then
    error := 'No passwords found...'
end;

вообщем плиз проверьте код, м.б у меня делфи переустановить надо...

[]Wowan[]

Откуда в программ взялось IMPLEMENTATION, А?

[Stilet]

spoool

А ты хоть знаеш сам что этот код делает?

[spoool]

Конешь знаю, просто как бы сказать я изучаю програмирование самостоятельно и негде не учусь, по этому приходиться осваивать все самому =) + все что там идет после слово тип я разобрал проанализировал, но вот немогу понять л как он сделал именно программ а не юнит, под консоль я знаю как делать, интересует именно сами понимаете что +)

[Stilet]

Ну и что ж она делает?

[spoool]

пароли тянет из кеша, вы наверно меня недеоцениваете, я давально неплохо знаком с Delphi и всегда стремился сразу узнать то что мне интересно поэтому книги где первые страницы идут с ознакомлением классов и т.п я пропускал, а вот теперь залез почитать но там не где нету такого описания =) скоро ребятки вы будете у меня спрашивать а я буду вам отвечать -)