archive-com.com » COM » E » EFG2.COM

Total: 878

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".

  • Type text plain charset us ascii Organization TeamB Mime Version 1 0 Reply To pandeng telepath com Newsgroups borland public delphi graphics On Sat 13 Nov 1999 23 32 00 0000 Jon Perry wrote If it was useless Delphi wouldn t have it A lot of things in Delphi are there for reasons of backward compatibility In the old days Delphi 1 0 and prior the compiler did no optimization

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/1114.txt (2016-02-14)
    Open archived version from archive



  • products description php id prdPack 8 prd 8 Please consider this only as examples since you ll be missing some of the referenced functions You should be able to figure out their meaning from name Like CreateException it does wht it says 1 How can i get then computer name var Buf array 0 255 of char n DWORD begin n SizeOf Buf if not GetComputerName Buf n then CreateException Result Buf end 2 How can i get get the computer description You have to use NetServerGetInfo MachineName must start with like myserver This code is taken from TNTServerInfo component function GetServerDescription MachineName string String var Res DWORD vServerName array 0 255 of WideChar buf Pserver info 101 begin StringToSomeChar MachineName vServerName SizeOf vServerName Res NetServerGetInfo vServerName 101 Pointer buf if Res 3 I can get user logged on but how can i get the user description This sample is taken from TNTUserMan function GetUserDescription MachineName Username string String var Res NET API STATUS PWChUser PWChMachine array 0 255 of WideChar PWChM Pointer Buf PUSER INFO 10 begin Result if Trim UserName then Exit Buf nil StringToSomeChar MachineName PWChMachine SizeOf PWChMachine if MachineName then PWChM nil else PWChM PWChMachine StringToSomeChar

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2003/0106.txt (2016-02-14)
    Open archived version from archive


  • TForm ButtonGetProcessList TButton Memo1 TMemo procedure ButtonGetProcessListClick Sender TObject private Private declarations public Public declarations end var Form1 TForm1 implementation R DFM USES TLHelp32 FUNCTION GetProcessList TStringList VAR hSnapShot THandle ProcessEntry TProcessEntry32 begin RESULT TStringList Create hSnapshot CreateToolHelp32Snapshot TH32CS SNAPPROCESS 0 TRY IF Process32First hSnapShot ProcessEntry THEN BEGIN REPEAT ExtractFileName not needed in Windows 2000 RESULT Add ExtractFileName ProcessEntry szExeFile UNTIL NOT Process32Next hSnapShot ProcessEntry END FINALLY CloseHandle hSnapShot END

    Original URL path: http://www.efg2.com/Lab/Library/Delphi/Miscellany/GetProcessList.TXT (2016-02-14)
    Open archived version from archive


  • TForm1 implementation R DFM procedure TForm1 FormActivate Sender TObject var p PChar l longint zw string dc hdc memory TMEMORYSTATUS systeminfo TSystemInfo dw dword os TOSVERSIONINFO begin with stringgrid1 do begin colwidths 0 clientwidth div 2 colwidths 1 clientwidth div 2 memory dwLength sizeof memory GlobalMemoryStatus memory cells 0 0 phys Speicher cells 1 0 inttostr memory dwTotalPhys Bytes cells 0 1 phys Speicher frei cells 1 1 inttostr memory dwAvailPhys Bytes cells 0 2 Auslagerungsspeicher cells 1 2 inttostr memory dwTotalPageFile Bytes cells 0 3 Auslagerungsspeicher frei cells 1 3 inttostr memory dwAvailPageFile Bytes P StrAlloc MAX PATH 1 GetWindowsDirectory P MAX PATH 1 cells 0 4 Windowsverzeichnis cells 1 4 p StrDispose P P StrAlloc MAX PATH 1 GetSystemDirectory P MAX PATH 1 cells 0 5 Systemverzeichnis cells 1 5 p StrDispose P GetSystemInfo systeminfo cells 0 6 Prozessor en cells 1 6 inttostr systeminfo dwNumberOfProcessors case systeminfo dwProcessorType of 386 zw Intel 386 486 zw Intel 486 586 zw Intel Pentium 860 zw Intel 860 2000 zw MIPS R2000 3000 zw MIPS R3000 4000 zw MIPS R4000 21064 zw ALPHA 21064 601 zw PPC 601 603 zw PPC 603 604 zw PPC 604 620 zw PPC 620 end cells 0 7 Prozessor cells 1 7 zw cells 0 8 Zeit cells 1 8 timetostr time cells 0 9 Zeit seit Systemstart cells 1 9 timetostr getcurrenttime 60000000 cells 0 10 Datum cells 1 10 datetostr date cells 0 11 Grafikauflösung cells 1 11 inttostr screen width x inttostr screen height dc GetDC 0 cells 0 12 Farben cells 1 12 inttostr 1 shl GetDeviceCaps dc BITSPIXEL ReleaseDC 0 dc dw 255 P StrAlloc 256 GetUserName p dw cells 0 13 Username cells 1 13 p StrDispose P P StrAlloc 256 GetComputerName p dw cells 0 14 Computername

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2001/0704b.txt (2016-02-14)
    Open archived version from archive


  • 0 Dummy2 array FF87 FF9F of char check array 1 13 of char UVPD0RESERVE EPROM array 1 9 of char NZKT36AFR SerialNumber array 1 7 of char 5503X49 BoardSN array 1 11 of char 80K3GX7419L PCType array 1 4 of char 6561 Modele array 1 3 of char 320 Dummy3 array FFCF FFF4 of char Date array 1 8 of char Dummy4 array FFFD FFFF of char end API function

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0722.txt (2016-02-14)
    Open archived version from archive


  • 03 43 0800 X Trace dnews 1011701023 207 105 83 65 22 Jan 2002 04 03 43 0800 Lines 37 Path dnews Xref dnews borland public delphi objectpascal 224897 Function ComputerName String var I Integer begin I 99 SetLength Result I 1 Win32Check GetComputerName PChar Result 1 I SetLength Result I end Pete Rose wrote Hi Can somebody help getting the computername I m trying to get it using the

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2002/0122.txt (2016-02-14)
    Open archived version from archive


  • 00 00 GMT Message ID Content Transfer Encoding 7bit References X Accept Language en Content Type text plain charset us ascii Organization Northwestern University Evanston IL USA Mime Version 1 0 Reply To rhlee nwu edu Newsgroups borland public delphi basm I d format a bit differently Procedure GetProcessorSerialNumber var Z1 Z2 Z3 Integer stdcall const CPUID A20F asm MOV EAX 1 DW CPUID MOV Z1 EAX MOV EAX 3

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/2000/0120c.txt (2016-02-14)
    Open archived version from archive


  • Longword this work var i Longword begin asm mov eax 1 db 0F A2 cpuid mov i EDX end Result i end function cpuid Longword but this don t var i Longword begin asm mov eax 1 cpuid mov i EDX end Result i end thanks luis Stefan Hoffmeister TeamB wrote in message news 376e041e 13333742 forums inprise com Luis Ortega wrote Yes I know that delphi don t support

    Original URL path: http://www.efg2.com/Lab/Library/UseNet/1999/0617b.txt (2016-02-14)
    Open archived version from archive



  •