1.Vit сколько не пытался не получается отправить письмо.
Не признает Outlook_TLB; хотя импортировал!


2. И по поводу size, некуда не лезет!
СПАСИБО!

1) Что значит не лезет? На каком этапе ошибка
2) Размер чего?

1.Такой приблизительно код:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Outlook_TLB;
type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var outlook : _application;
g:mailitem;

begin
outlook := Coapplication_.Create;
begin
g:=Outlook.CreateItem(olMailItem) as mailitem;
g.To_ := '[email protected]’;
g.Subject := 'Victory';
g.Attachments.Add(Filename,1,1,'Attachment');
g.Body :='Hi Tom';
g.Send;
end;
end.
Ошибка в uses Outlook_TLB;


2.А по поводу size:
procedure TForm1.Button1Click(Sender: TObject);
label d,h;
var f:file of byte;
  b:Byte;
  k:Byte;
  Size:Int64;
begin
if OpenDialog1.execute then goto d else goto h;
d:
b:=$85;
AssignFile(f,OpenDialog1.Filename);
Reset(f);
seek(f,$000266A1);
write(f,b);
CloseFile(f);
showmessage('Поздравляю! Иньекция введена успешно )))');
h:
end;
end.
Как сделать проверку размера файла и вывести допустим в Tlabel или присвоить переменной ‘о’(допустим)?
СПАСИБО!

1) Найди где у тебя на диске находится Outlook_TLB.pas и пропиши путь в пути поиска модулей (опции среды)

2) Какой ужасный стиль!
 Так пробовали?
 Size:=FileSize(f);

Цитата(Vit @ 12.6.2002, 20:56)

1) Найди где у тебя на диске находится Outlook_TLB.pas и пропиши путь в пути поиска модулей (опции среды) 2) Какой ужасный стиль!  Так пробовали?  Size:=FileSize(f);

Почему ужасный!
Я самоучка и мало работаю в Delphi!
Научи или подскажи как надо!!!
СПАСИБО!

Стиль конечно не регламентируется, можешь писать как хочешь, тем более что стандартов довольно много. Просто более принят например такой способ:

Код

procedure TForm1.Button1Click(Sender: TObject); var f:file of byte;    b,k:Byte;    Size:Int64; begin  if OpenDialog.execute then    begin      b:=$85;      AssignFile(f,OpenDialog.Filename);      Reset(f);      seek(f,$000266A1);      write(f,b);      CloseFile(f);      showmessage('Поздравляю! Иньекция введена успешно');    end{if OpenDialog.execute then}  else    begin      showmessage('Patch has been failed!');    end;{if..else OpenDialog.execute then}

Здесь основное правило - каждый End пишеться с таким же отступом как и Begin, все что между ними делается с отступом в 1-2 знака. Обрати внимание на примечания после End - они точно определяют к чему этот End относится, и его легче отыскать при значительной вложенности.

Или иногда такой, хотя мне он лично не нравится, но это весьма распространенная форма записи, а мое мнение это лишь мое мнение и ничего больше:

Код

procedure TForm1.Button1Click(Sender: TObject); var f:file of byte;    b,k:Byte;    Size:Int64; begin  if OpenDialog.execute then begin    b:=$85;    AssignFile(f,OpenDialog.Filename);    Reset(f);    seek(f,$000266A1);    try      write(f,b);    except      on e:exception do Showmessage('File could not be patched. Error code: '+e.message);    end;    CloseFile(f);    showmessage('Поздравляю! Иньекция введена успешно');  end{if OpenDialog.execute then}  else begin    showmessage('Patch has been failed!');  end;{if..else OpenDialog.execute then}

Здесь Begin пишется в конце строки, а End на уровне относящегося к нему оператора. Все что между ними тоже идет с отступом в 1-2 знака.

Обрати внимание что переходы на метки в 99% случаев не нужны... Никто не запрещает ими пользоваться, но во всяком случае в таких конструкциях
как у тебя их применять нет никакого смысла.