-
Category : Windows Develop
Tags :
- Update : 2012-11-26
- Size : 214kb
- Downloaded ：0次
- Author ：del***
- About ：
Nobody
- PS : If download it fails, try it again. Download again for free!
Introduction - If you have any usage issues, please Google them yourself
unit Unit1
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls
type
TForm1 = class(TForm)
Button1: TButton
Edit1: TEdit
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R*.dfm}
uses Registry, MMSystem, DDEMAN, ClipBRD
procedure TForm1.Button1Click(Sender: TObject)
var
SerialNum:Dword
a,b: Dword
Buffer: array [0..255] of char
Num:string
begin
GetVolumeInformation( C:\ , nil,0,@SerialNum,a,b,nil,0)
Num:=IntToHex(HiWord(serialNum),4)+--+ IntToHex(LoWord(SerialNum),4)
Edit1.text:=(Num)
end
procedure TForm1.Button2Click(Sender: TObject)
Var
buffer:array [0..255] of char
buffsize:Dword
begin
buffsize:=sizeOf(Buffer)
GetUSERNAME(@buffer,buffsize)
ShowMessage(buffer)
end
end.
Packet file list
(Preview for download)
Project2.cfg
Project2.dof
Project2.dpr
Project2.exe
Project2.res
Unit1.dcu
Unit1.dfm
Unit1.pas
Unit1.~dfm
Unit1.~pas
Related instructions
- We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
- The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
- Please use Winrar for decompression tools
- If download fail, Try it againg or Feedback to us.
- If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
- Before downloading, you can inquire through the uploaded person information