Windows you want to be original please download the software and follow the tutorial
Download
Description:This code enables you to v
! iew all procedures and
functions what DLL,DAT,EXE,DRV file has. It displays them to your screen and later you can
use this file with Delphi.
procedure GetFunctionNamesFromDLL(DLLName: string; List: TStrings);
type chararr = array[0..$FFFFFF] of char;
var h: THandle;
i, fc: integer;
st: string;
arr: pointer;
ImageDebugInformation: PImageDebugInformation;
begin
List.Clear;
DLLName := ExpandFileName(DLLName);
if not FileExists(DLLName) then Exit;
h := CreateFile(PChar(DLLName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if h = -1 then Exit;
ImageDebugInformation := MapDebugInformation(h, PChar(DLLName), nil, 0);
if ImageDebugInformation = nil then Exit;
arr := ImageDebugInformation^.ExportedNames;
fc := 0;
for i := 0 to ImageDebugInformation^.ExportedNamesSize - 1 do
begin
if chararr(arr^)[i] = #0 then
begin
st := PChar(@chararr(arr^)[fc]);
if length(st) > 0 then List.Add(st);
if (i > 0) and (chararr(arr^)[i - 1] = #0) then Break;
fc := i + 1; end;
end;
UnmapDebugInformation(ImageDebugInformation);
CloseHandle(h);
end;
info planetsourcecode.com
Name: access application version information programmatically.
Description:This function will read the file version information from your application's executable file. It does this through the Win32 API functions GetFileV ersionInfoSize(), GetFileVersionInfo(),and VerQueryValue(). This can be very useful if you have your IDE set to increment build numbers each time you compile your project, as it can be used to return the current version number. Since I use the version number in a lot of my applications, it's really a pain to have to update a global constant each time the version number changes. This makes it mucheasier. Please note: I found a version of this code in the Borland Delphi 6 help files, and modified it so it would be a function, and return only the file versi on information. Additionally, there were very few comments, so I commented much of the code as well. You can view the original code if you do a search in the help files for "Reading version information
Description:This function will read the file version information from your application's executable file. It does this through the Win32 API functions GetFileV ersionInfoSize(), GetFileVersionInfo(),and VerQueryValue(). This can be very useful if you have your IDE set to increment build numbers each time you compile your project, as it can be used to return the current version number. Since I use the version number in a lot of my applications, it's really a pain to have to update a global constant each time the version number changes. This makes it mucheasier. Please note: I found a version of this code in the Borland Delphi 6 help files, and modified it so it would be a function, and return only the file versi on information. Additionally, there were very few comments, so I commented much of the code as well. You can view the original code if you do a search in the help files for "Reading version information
function Application_Version: String;
const
InfoNum = 10;
InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
S: string; n, Len, i: DWORD;
Buf: PChar; Value: PChar;
begin
S := Application.ExeName; //this application's EXE filename
n := GetFileVersionInfoSize(PChar(S), n); // the return value is the size in bytes of the file's version information.
Result := ''; (* this sets a default result in case a file version isn't found.
I add this to functions because the compiler will bug you that
the result may not be defined otherwise. you could change this,
or remove it alltogether, although it's probably best to leave it. *)
if n > 0 then begin
Buf := AllocMem(n); // allocate the needed amount of memory into the buffer
GetFileVersionInfo(PChar(S), 0, n, Buf); // store the file version information in the memory buffer. it stores all of the values listed in the InfoStr array.
for i := 1 to InfoNum do
if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
if trim(lowerCase(InfoStr[i])) = 'fileversion' then Result := Value;// loop through each value until we find the "FileVersion" information.
FreeMem(Buf, n); // free the memory we stored in the buffer.
end;
end;
info planetsourcecode.com
Read More..
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "techsupport@xyz.com"
objMail.To = "mary@aol.com"
objMail.Subject = "Welcome"
objMail.Body = "You have been added to our automated tech support system. Thank you."
objMail.Send
Set objMail = Nothing
Subscribe to:
Posts (Atom)