[SOM]

Пример
Delphi 7
File\New\Application
Создал, далее удаляю весь старый текс и вставляю из примера и компилирую F9 - Ругается! - «Error in module Unit1: Declaration of class TForm1 is missing or incorrect»

Есть книга потихоньку читаю.
Но пока ни могу в голове уложить принцип вот в сети выкладывают исподники, как ими пользоваться?


Например

Код:

uses
  ShlObj, ClipBrd; 

procedure CopyFilesToClipboard(FileList: string); 
var 
  DropFiles: PDropFiles; 
  hGlobal: THandle; 
  iLen: Integer; 
begin 
  iLen := Length(FileList) + 2; 
  FileList := FileList + #0#0; 
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
    SizeOf(TDropFiles) + iLen); 
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
  begin 
    DropFiles := GlobalLock(hGlobal); 
    DropFiles^.pFiles := SizeOf(TDropFiles); 
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
    GlobalUnlock(hGlobal); 
    Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
  end; 
end; 

// Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CopyFilesToClipboard('C:\Bootlog.Txt'#0'C:\AutoExec.Bat'); 
end;

Хочу понять общий принцип
Заранее благодарен!

[mav_c]

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

Пример
Delphi 7
File\New\Application
Создал, далее удаляю весь старый текс и вставляю из примера и компилирую F9 - Ругается! - «Error in module Unit1: Declaration of class TForm1 is missing or incorrect»

Есть книга потихоньку читаю.
Но пока ни могу в голове уложить принцип вот в сети выкладывают исподники, как ими пользоваться?


Например

Код:

uses
  ShlObj, ClipBrd; 

procedure CopyFilesToClipboard(FileList: string); 
var 
  DropFiles: PDropFiles; 
  hGlobal: THandle; 
  iLen: Integer; 
begin 
  iLen := Length(FileList) + 2; 
  FileList := FileList + #0#0; 
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
    SizeOf(TDropFiles) + iLen); 
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
  begin 
    DropFiles := GlobalLock(hGlobal); 
    DropFiles^.pFiles := SizeOf(TDropFiles); 
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
    GlobalUnlock(hGlobal); 
    Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
  end; 
end; 

// Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CopyFilesToClipboard('C:\Bootlog.Txt'#0'C:\AutoExec.Bat'); 
end;

Хочу понять общий принцип
Заранее благодарен!

Ну уж если на то пошло тогда:
-добавь ShlObj, ClipBrd в uses созданого проекта.
добавь процедуры.

[TitiS]

Прежде всего Delphi (object pascal) - структурный, подчёркиваю, структурный язык программирования. И для начала изучения тебе необходимо разобраться с этой структурой. Она очень проста и в любом нормальном учебнике по основам дельфина тема займёт страниц 5 не больше. Учить сейчас не чему не буду, а просто напишу как тебе воспользоваться тем примером, что ты написал в первом посте:

File\New\Application

смотри код. найди "uses ..." удали точку с запятой и напиши: ,ShlObj, ClipBrd;

это список подключённых модулей к проекту

теперь кинь с палитры компонентов (это там наверху =)) компонент кнопки - Button на форму. Кинул, да? Теперь иди сново в код. Найди что то в этом роде: {$R *.dfm}. Ставь туда курсор мышки, жми ENTER, даже для красоты оформления два раза жми и пиши

procedure CopyFilesT... и что там дальше у тебя в исходнике до //

теперь иди на форму. Щелкай два раза по кнопочке, которую ты положил на форму и пиши:
CopyFilesToClipboard('C:\Bootlog.Txt'#0'C:\AutoExe c.Bat');

сверся с исходником - форум может некоторые символы игнорировать.

Запускай проект (F9).

Ни чяго не гарантирую, т.к. я не имею представления как ты это всё сделаешь по моему "уроку"...

[SOM]

Так, а почему тогда это не указано в описании к данному исходнику?
Вспоминаю HTTP программирование, скопировал исходный текст и всё уже работает только под прописанные пути нужно файлы подставить (типо рисунок и прочие)
Тут не так я понимаю? Как разобраться?

[TitiS]

А как насчёт того что HTML и Pascal - это два абсолютно разных языка не только по возможностям, но и по их строению? А в исходнике это не было упомянуто (а оно и не должно быть упомянуто), т.к. предпалогалось знания языка и основ. Найди хороший учебник и изучай внимательно, прежде чем лезть за исходники и примеры

[Rokuell]

Иногда нужно изменять и другой файл - Project.dpr (это по умолчанию)
Например если изменяется имя формы
Открыть его можно, выбрав из списка модулей ( на панельки кнопка есть такая, пощелкай - найдешь, выглядит как два желтых листа , сложенных вместе, надеюсь знаешь )