|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти ошибку
необходима прога для автоматической установки Netframework 2.0.,
что она делает: 1) проверяет есть ли Netframework 2.0 если да то на этом ее активность заканчивается, если нет то скачивает с офф сайта. 2) вопрос с установкой решен через батник. Есть исходники, по ним она должна работать, но я видать что то упустил при компиле пишет GetinetFile never used непойму почему. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Wininet,registry; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function ShellExecute(hWnd: HWnd; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall; function RunProcess (path, args : String) : THandle; var si : TStartupInfo; pi : TProcessInformation; cmdLine : String; Begin ZeroMemory(@si, sizeof(si)); cmdLine :='"' + path + '" ' + args; if CreateProcess(nil, PCHAR(cmdLine) ,nil,nil,TRUE, 0 ,nil,nil,si, pi) Then Result := pi.hProcess Else Result := 0; End; function GetInetFile(const fileURL, FileName: string): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: file; sAppName: string; begin Result := False; sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); try hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0); try AssignFile(f, FileName); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen); until BufferLen = 0; CloseFile(f); Result := True; finally InternetCloseHandle(hURL); end; finally InternetCloseHandle(hSession); end; end; function GetWinDir: string; var reg: TRegistry; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion',true); Result:=reg.ReadString('PathName'); reg.CloseKey; reg.Free; end; procedure InstallNETFramework; begin if DirectoryExists(GetWinDir+'\Microsoft.NET\Framework\v2.0.50727')=false then begin GetInetFile('http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe',ExtractFilePath(Application.ExeName)+'dotnetfx.exe'); Sleep(1000); ShellExecute(form1.handle,'open','bat.bat',nil,nil,SW_SHOW); Sleep(1000000); RunProcess('moy.exe',''); end; end; end; |
#2
|
|||
|
|||
не занимайся ерундой.
тебе для своей программы все равно нужен инсталятор. А практически все инсталяторы поддеррживают эту фичу (или путь как сделать это всем известен - гугл в помощь). |
#3
|
||||
|
||||
Скорее всего, он тренируется/эксперементирует.
Я сам пробовал забабахать собственный инсталлятор, так что зря наезжаете. P.S. И снова извините за бессодержательный коммент. Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! |
#4
|
||||
|
||||
Поддержу флейм не в тему. Давайте уже поможем человеку, не сложно же.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
|||
|
|||
Жду помощи сенсеев)
|
#6
|
||||
|
||||
К.О. в лице меня намекает, что можно "протрейсить" программу и посмотреть, что где и почему (не)выполняется...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#7
|
|||
|
|||
Намеки это хорошо, но разбирающемуся человеку
|
#8
|
||||
|
||||
Эм...
Ну, погугли про брейкпоинты в Delphi... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#9
|
|||
|
|||
Мб кто то посмотрев мой код подправит его и выложит рабочий?)
|
#10
|
||||
|
||||
Уважаемый!
Предлагаю такой вариант: Просто вместо запуска программы нажимай кнопочку F7 до посинения, и запомни строчку, на которой происходит ошибка. Вот её-то нам и сообщите. Собственно, на это и намекал тебе ув. тов. DJ PhoeniX. В идеале лучше использовать сначала BreakPoint, а потом F7, но раз ты не знаешь процедуры отладки, то тебе поможет только гугл. Да, это facepalm. А решать проблему за тебя никто тут не будет, скорее всего. Никто никому тут ничем не обязан. Я бы тебе помог, но я и сам не знаю, в чём проблема. Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! |
#11
|
|||
|
|||
[Hint] Unit1.pas(45): Value assigned to 'GetInetFile' never used
[Error] Unit1.pas(90): BEGIN expected but END found [Error] Unit1.pas(92): Declaration expected but end of file found [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' |
#12
|
|||
|
|||
Цитата:
Перевожу: [Подсказка] строка 45: Значение GetInetFile не используется [Ошибка] строка 90 требуется BEGIN, но END найдено [Ошибка] строка 92 Ожидается объявление, но достигнут конец файла [Фатальная ошибка] не могу скомпилировать проект, использован модуль Unit1.pas |
#13
|
||||
|
||||
Совет: отструктурируй код по-хорошему (по уровням вложенности блоков begin-end), с табуляцией. Сразу станет понятно, где косяк.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#14
|
||||
|
||||
Ты где-то напутал с begin-end.
Ищи, брат. Если не ты, то кто? (с) Терри Пратчетт Не забывайте ставить плюсы и говорить спасибо! |
#15
|
|||
|
|||
Незнаю где
|