본문 바로가기

Developist

Delphi/꿀팁 Registry에 키, 값 가져오기 - 2 uses .., Registry; procedure GetRegistry; var Reg: TRegistry; TempInteger: Integer; TempString: string; begin Reg := TRegistry.Create; //Reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY); try //Root를 선택합니다. Reg.RootKey := HKEY_LOCAL_MACHINE; //Key가 없을 경우 생성합니다. if Reg.OpenKey('\Software\Test', True) then begin //Key의 Value값 가져오기. TempString := Reg.ReadString('str'); TempInteger := Reg.R..
Delphi/간단하게 간단하게 Edit에서 숫자만 입력 받기 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // 0~9, 백스페이스, 엔터만 입력 허용 if not (Key in ['0'..'9', #8, #13]) then begin Key := #0; end; end;
Delphi/간단하게 간단하게 GUID 생성하기 - 1 uses .., ActiveX; var g: TGUID begin CoCreateGuid(g); ShowMessage(GUIDToString(g)); end; 2020/02/17 - [Delphi/간단하게] - 간단하게 GUID 생성하기 - 2

티스토리툴바