Подгрузка функции из .dll - Общие вопросы Delphi

iLnes · 22.01.2012, 21:07

Здравствуйте все.
Для уменьшения размера файла, вынес GetEnvironmentVariable и FileExists, получилось вот так:

Код:

function GetEnvironmentVariable(const Name: string): string; stdcall; external 'kernel32.dll' name 'GetEnvironmentVariable';

Код:

function FileExists(const FileName: string): Boolean; stdcall; external 'kernel32.dll' name 'FileExists';

Так вот, работать не хочет) На обе ошибки ругается, что не удалось найти такую функцию в kernel32.dll.
Либо не те .dll использую, либо где-то ошибки.
Помогите.

Stilet · 22.01.2012, 21:21

Цитата:

GetEnvironmentVariable

GetEnvironmentVariableA
Или GetEnvironmentVariableW для юникода

Цитата:

(const Name: string): string;

Смело... ИМХО пошлет он куда подальше с такими параметрами

iLnes · 22.01.2012, 21:29

Можно ваши предложения,, как лучше сделать?)

3D Hunter · 22.01.2012, 21:34

Для начала почитать литературу по основам работы с DLL и особенности линковки.

Пепел Феникса · 22.01.2012, 21:34

ну в принципе FileExists нету в kernel32.dll
особого смысла выносить нету, разве что переписывать модуль System.

iLnes · 22.01.2012, 21:43

Неужто никак не вынести?)
Мне надо избавиться от SysUtils.

Rock-n-Rolla · 22.01.2012, 22:00

Цитата:

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

Код:

function FileExists(const FileName: string): Boolean; stdcall; external 'kernel32.dll' name 'FileExists';

Так вот, работать не хочет) На обе ошибки ругается, что не удалось найти такую функцию в kernel32.dll.

не удивительно, потому что такой функции там нет!

Цитата:

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

Неужто никак не вынести?)

написать свою, там не очень сложно.

Цитата:

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

Мне надо избавиться от SysUtils.

а смысл?

ну можно не спрашивать, я знаю ответ - надо уменьшить размер экзешника. но это бестолковое занятие, экономия там почти никакая.

iLnes · 22.01.2012, 22:07

Для меня есть разница.
размер уменьшился хоть и на 28 кб, но мне это важно.
Вот и все.
Поэтому не могли бы Вы помочь?

Пепел Феникса · 22.01.2012, 22:20

забудьте про Forms и прочих. пишите приложение с нуля в dpr файле, экономия огромная будет.

iLnes · 22.01.2012, 22:34

А у меня этого ничего и нету.
только .dpr файл, не более.
Что использую: Windows, TlHelp32, SysUtils.
От SysUtils и хочу избавиться.

22.01.2012, 21:07	#1
iLnes Пользователь Регистрация: 07.10.2011 Сообщений: 66	Подгрузка функции из .dll Здравствуйте все. Для уменьшения размера файла, вынес GetEnvironmentVariable и FileExists, получилось вот так: Код: `function GetEnvironmentVariable(const Name: string): string; stdcall; external 'kernel32.dll' name 'GetEnvironmentVariable';` Код: `function FileExists(const FileName: string): Boolean; stdcall; external 'kernel32.dll' name 'FileExists';` Так вот, работать не хочет) На обе ошибки ругается, что не удалось найти такую функцию в kernel32.dll. Либо не те .dll использую, либо где-то ошибки. Помогите.

22.01.2012, 21:34	#4
3D Hunter Сумрачная тень Форумчанин Регистрация: 05.03.2009 Сообщений: 689	Для начала почитать литературу по основам работы с DLL и особенности линковки. "ковыряю изнутри" (с)

22.01.2012, 21:34	#5
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	ну в принципе FileExists нету в kernel32.dll особого смысла выносить нету, разве что переписывать модуль System. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

22.01.2012, 22:20	#9
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	забудьте про Forms и прочих. пишите приложение с нуля в dpr файле, экономия огромная будет. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Dll и функции	Antistas	Общие вопросы Delphi	16	08.02.2011 15:03
Вызов функции из DLL(C#)	ZverSS88	Помощь студентам	0	25.11.2010 11:27
Вызов функции из dll-ки	VVVadim	Общие вопросы Delphi	2	28.04.2009 10:37
Функции binkw32.dll	Volkogriz	Общие вопросы Delphi	3	16.10.2007 11:46
DLL + Процедуры(не функции)	LEKA	Общие вопросы Delphi	1	02.05.2007 20:37

22.01.2012, 21:29	#3
iLnes Пользователь Регистрация: 07.10.2011 Сообщений: 66	Можно ваши предложения,, как лучше сделать?)

22.01.2012, 21:43	#6
iLnes Пользователь Регистрация: 07.10.2011 Сообщений: 66	Неужто никак не вынести?) Мне надо избавиться от SysUtils.

22.01.2012, 22:07	#8
iLnes Пользователь Регистрация: 07.10.2011 Сообщений: 66	Для меня есть разница. размер уменьшился хоть и на 28 кб, но мне это важно. Вот и все. Поэтому не могли бы Вы помочь?

22.01.2012, 22:34	#10
iLnes Пользователь Регистрация: 07.10.2011 Сообщений: 66	А у меня этого ничего и нету. только .dpr файл, не более. Что использую: Windows, TlHelp32, SysUtils. От SysUtils и хочу избавиться.