nose 0 Newbie Poster

I am trying to convert this to Delphi, but I'm lost, please help

enum Error
{
	Ok = 0,
	ErrorUnsupportedFunction,
	ErrorInvalidParamaters,
	ErrorInternal,
	ErrorUnknown = 0xffffffff
};
typedef enum Error Error;

Error __stdcall GetLastError()
{
	typedef Error(__stdcall *FunctionType)(); 
	FunctionType GetLastError = (FunctionType)GetProcAddress(GetModuleHandle(NULL), "GetLastError");
	return GetLastError();
}
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.